File Coverage

blib/lib/File/Serialize/Serializer/Data/Dumper.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package File::Serialize::Serializer::Data::Dumper;
2             our $AUTHORITY = 'cpan:YANICK';
3             #ABSTRACT: Data::Dumper serializer for File::Serialize
4             $File::Serialize::Serializer::Data::Dumper::VERSION = '1.4.0';
5 6     6   4105 use strict;
  6         59  
  6         186  
6 6     6   68 use warnings;
  6         13  
  6         145  
7              
8 6     6   28 use Moo;
  6         59  
  6         46  
9             with 'File::Serialize::Serializer';
10              
11 6     6   2258 use Module::Runtime 'use_module';
  6         24  
  6         40  
12              
13 58     58 1 293 sub extensions { qw/ pl perl / };
14              
15             sub serialize {
16             my( $self, $data, $options ) = @_;
17             Data::Dumper::Dumper($data);
18             }
19              
20              
21             sub deserialize {
22             my( $self, $data, $options ) = @_;
23 6     6   785 no strict;
  6         10  
  6         144  
24 6     6   47 no warnings;
  6         12  
  6         369  
25             return eval $data;
26             }
27              
28             1;
29              
30             __END__