1package Paws::API::StrToObjMapParser { 2 use Moose::Role; 3 4 sub ValueFor { 5 my ($self, $key) = shift; 6 my $value = $self->Map->{ $key }; 7 die "No value for $key" if not defined ($value); 8 return $value; 9 } 10} 11 121; 13