Acme-PSON
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/PSON.pm view on Meta::CPAN
use strict;
use warnings;
our $VERSION = '0.05';
use strict;
use warnings;
use vars qw( @EXPORT_OK );
use Carp;
use Data::Dumper;
use Exporter::Lite;
@EXPORT_OK = qw(obj2pson pson2obj);
use Readonly;
Readonly my $VARNAME => 'PSON_VALUE';
sub obj2pson {
my $obj = shift;
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Varname = $VARNAME;
return Dumper($obj);
}
sub pson2obj {
my $str = shift;
no strict;
&_is_dumpeddata($str) ? eval($str) : croak "No PSON Data!";
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.286 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )