File Coverage

blib/lib/Data/Serializer/YAML/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::YAML::Syck;
2 11     11   621 BEGIN { @Data::Serializer::YAML::Syck::ISA = qw(Data::Serializer) }
3              
4 11     11   85 use warnings;
  11         26  
  11         415  
5 11     11   69 use strict;
  11         23  
  11         396  
6 11     11   72 use YAML::Syck;
  11         22  
  11         1132  
7             local $YAML::Syck::LoadBlessed = 0;
8              
9 11     11   101 use vars qw($VERSION @ISA);
  11         25  
  11         1654  
10              
11             $VERSION = '0.03';
12              
13             sub serialize {
14 210     210 1 873 return YAML::Syck::Dump($_[1]);
15             }
16              
17             sub deserialize {
18 210     210 1 1051 return YAML::Syck::Load($_[1]);
19             }
20              
21             1;
22             __END__
23              
24             =head1 NAME
25              
26             Data::Serializer::YAML::Syck - Creates bridge between Data::Serializer and YAML::Syck
27              
28             =head1 SYNOPSIS
29              
30             use Data::Serializer::YAML::Syck;
31              
32             =head1 DESCRIPTION
33              
34             Module is used internally to Data::Serializer
35              
36              
37             =over 4
38              
39             =item B<serialize> - Wrapper to normalize serializer method name
40              
41             =item B<deserialize> - Wrapper to normalize deserializer method name
42              
43             =back
44              
45             =head1 AUTHOR
46              
47             Naoya Ito <naoya@bloghackers.net>
48              
49             =head1 COPYRIGHT
50              
51             This program is free software; you can redistribute it
52             and/or modify it under the same terms as Perl itself.
53              
54             =head1 SEE ALSO
55              
56             perl(1), Data::Serializer(3), YAML::Syck(3).
57              
58             =cut
59