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.1';
5 5     5   3982 use strict;
  5         16  
  5         161  
6 5     5   71 use warnings;
  5         9  
  5         174  
7              
8 5     5   39 use Moo;
  5         13  
  5         28  
9             with 'File::Serialize::Serializer';
10              
11 5     5   1797 use Module::Runtime 'use_module';
  5         19  
  5         43  
12              
13 44     44 1 191 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 5     5   780 no strict;
  5         13  
  5         159  
24 5     5   28 no warnings;
  5         9  
  5         330  
25             return eval $data;
26             }
27              
28             1;
29              
30             __END__