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.5.0';
5 6     6   4091 use strict;
  6         14  
  6         214  
6 6     6   31 use warnings;
  6         12  
  6         160  
7              
8 6     6   75 use Moo;
  6         12  
  6         94  
9             with 'File::Serialize::Serializer';
10              
11 6     6   1939 use Module::Runtime 'use_module';
  6         9  
  6         47  
12              
13 58     58 1 267 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   767 no strict;
  6         13  
  6         185  
24 6     6   31 no warnings;
  6         10  
  6         344  
25             return eval $data;
26             }
27              
28             1;
29              
30             __END__