Анатолий Гришаев > Storable-AMF > Storable::AMF::Mapper

Download:
Storable-AMF-1.00.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

Open  0
View/Report Bugs
Source  

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 ...
syntax highlighting: