File Coverage

blib/lib/Dancer/Serializer/Dumper.pm
Criterion Covered Total %
statement 30 33 90.9
branch 1 2 50.0
condition n/a
subroutine 10 11 90.9
pod 0 5 0.0
total 41 51 80.3


line stmt bran cond sub pod time code
1             package Dancer::Serializer::Dumper;
2             our $AUTHORITY = 'cpan:SUKRIA';
3             # ABSTRACT: Data::Dumper serialisation for Dancer
4             $Dancer::Serializer::Dumper::VERSION = '1.3521';
5 165     165   1176 use strict;
  165         370  
  165         4739  
6 165     165   939 use warnings;
  165         388  
  165         3825  
7 165     165   885 use Carp;
  165         406  
  165         8714  
8 165     165   1043 use base 'Dancer::Serializer::Abstract';
  165         462  
  165         17364  
9 165     165   1295 use Data::Dumper;
  165         474  
  165         9596  
10 165     165   1192 use Dancer::Exception qw(:all);
  165         533  
  165         59331  
11              
12             sub from_dumper {
13 0     0 0 0 my ($string) = @_;
14 0         0 my $s = Dancer::Serializer::Dumper->new;
15 0         0 $s->deserialize($string);
16             }
17              
18             sub to_dumper {
19 1     1 0 3 my ($data) = @_;
20 1         6 my $s = Dancer::Serializer::Dumper->new;
21 1         4 $s->serialize($data);
22             }
23              
24             sub serialize {
25 2     2 0 1879 my ($self, $entity) = @_;
26             {
27 2         3 local $Data::Dumper::Purity = 1;
  2         6  
28 2         12 return Dumper($entity);
29             }
30             }
31              
32             sub deserialize {
33 1     1 0 743 my ($self, $content) = @_;
34 1         64 my $res = eval "my \$VAR1; $content";
35 1 50       9 raise core_serializer => "unable to deserialize : $@" if $@;
36 1         3 return $res;
37             }
38              
39 1     1 0 708 sub content_type {'text/x-data-dumper'}
40              
41             1;
42              
43             __END__