PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` package Paws::API::JSONAttribute; use Moose::Role; Moose::Util::meta_attribute_alias('JSONAttribute'); use JSON::MaybeXS; use URL::Encode; has method => (is => 'rw', isa => 'Str', required => 1); has decode_as => (is => 'rw', isa => 'Str', required => 1); after 'install_accessors' => sub { my $self = shift; my $realclass = $self->associated_class(); my $closure = $self->name; my $coderef; if ($self->decode_as eq 'JSON') { $coderef = sub { my $self = shift; return decode_json($self->$closure()); }; } elsif ($self->decode_as eq 'URLJSON') { $coderef = sub { my $self = shift; return decode_json(URL::Encode::url_decode($self->$closure())); }; } else { die "Unrecognized JSONAttribute decode_as attribute"; } $realclass->add_method( $self->method => $coderef ); }; 1;