SYNOPSYS

  use Storable::AMF::Mapper;
  use Storable::AMF0 qw(freeze);

  my $mapper = Storable::AMF::Mapper->new( to_amf =>1 );

  sub T::TO_AMF {
          my $orig = shift;
          return { %$orig, some_key_to_be_added => "Key Value" };
  }
  my $obj  = bless { Zeta => 1 }, 'T';

  my $amf0 = freeze( $obj, $mapper); # use TO_AMF method for freezing perl_objects

  my $obj  = thaw( $amf0 ); # $obj = { Zeta=> , some_key_to_be_added => "Key Value" }

NOTICE

  This Mapper is experimental feature of Storable::AMF distro. So may change in future ...