File Coverage

blib/lib/Data/Serializer/JSON/Syck.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Data::Serializer::JSON::Syck;
2 11     11   512 BEGIN { @Data::Serializer::JSON::Syck::ISA = qw(Data::Serializer) }
3              
4 11     11   110 use warnings;
  11         22  
  11         399  
5 11     11   65 use strict;
  11         19  
  11         477  
6 11     11   65 use JSON::Syck;
  11         19  
  11         730  
7 11     11   66 use vars qw($VERSION @ISA);
  11         24  
  11         2427  
8              
9             $VERSION = '0.02';
10              
11             sub serialize {
12 105     105 1 4979 return JSON::Syck::Dump($_[1]);
13             }
14              
15             sub deserialize {
16 105     105 1 5228 return JSON::Syck::Load($_[1]);
17             }
18              
19             1;
20             __END__