File Coverage

lib/App/Serializer/Perl.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	2	4	50.0
condition			n/a
subroutine	6	7	85.7
pod	3	3	100.0
total	37	41	90.2

#############################################################################
## $Id: Perl.pm 11294 2008-05-20 03:53:53Z spadkins $
#############################################################################

package App::Serializer::Perl;
$VERSION = (q$Revision: 11294 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App;
use App::Serializer;
@ISA = ( "App::Serializer" );

use strict;

=head1 NAME

App::Serializer::Perl - Interface for serialization and deserialization

=head1 SYNOPSIS

    use App;

    $context = App->context();
    $serializer = $context->service("Serializer");  # or ...
    $serializer = $context->serializer();
    $data = {
        an => 'arbitrary',
        collection => [ 'of', 'data', ],
        of => {
            arbitrary => 'depth',
        },
    };
    $perl = $serializer->serialize($data);
    $data = $serializer->deserialize($perl);
    print $serializer->dump($data), "\n";

=head1 DESCRIPTION

A Serializer allows you to serialize a structure of data
of arbitrary depth to a scalar and deserialize it back to the
structure.

The Perl serializer uses perl data structure syntax as the serialized
form of the data.  It uses the Data::Dumper module from CPAN to perform
the deserialization and serialization.

=cut

use Data::Dumper;

sub serialize {
    my ($self, $data) = @_;
    my ($d, $perl);

    $d = Data::Dumper->new([ $data ], [ "data" ]);
    my $indent = $self->{indent};
    $indent = 1 if (!defined $indent);
    $d->Indent($indent);
    $perl = $d->Dump();

    return $perl;
}

sub deserialize {
    my ($self, $perl) = @_;
    my ($data);
    $perl =~ s/^\$([_a-zA-Z][_a-zA-Z0-9]*) *=/\$data =/;
    eval $perl;
    $data = $@ if ($@);
    return($data);
}

sub serialized_content_type {
    'text/plain';
}

1;