File Coverage

blib/lib/Data/Serializer/Data/Taxi.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Data::Serializer::Data::Taxi;
2 11     11   621 BEGIN { @Data::Serializer::Data::Taxi::ISA = qw(Data::Serializer) }
3              
4 11     11   72 use warnings;
  11         22  
  11         375  
5 11     11   65 use strict;
  11         21  
  11         380  
6 11     11   63 use Data::Taxi;
  11         24  
  11         844  
7 11     11   60 use vars qw($VERSION @ISA);
  11         24  
  11         2325  
8              
9             $VERSION = '0.02';
10              
11              
12             sub serialize {
13 168     168 1 1054 return Data::Taxi::freeze($_[1]);
14             }
15              
16             sub deserialize {
17 168     168 1 781 my ($obj) = Data::Taxi::thaw($_[1]);
18 168         125628 return $obj;
19             }
20              
21              
22              
23             1;
24             __END__