File Coverage

blib/lib/Data/Serializer/YAML.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;
2 11     11   569 BEGIN { @Data::Serializer::YAML::ISA = qw(Data::Serializer) }
3              
4 11     11   89 use warnings;
  11         23  
  11         352  
5 11     11   64 use strict;
  11         36  
  11         292  
6 11     11   65 use YAML;
  11         24  
  11         996  
7             local $YAML::LoadBlessed = 0;
8              
9 11     11   75 use vars qw($VERSION @ISA);
  11         21  
  11         1447  
10              
11             $VERSION = '0.03';
12              
13             sub serialize {
14 210     210 1 748 return Dump($_[1]);
15             }
16              
17             sub deserialize {
18 210     210 1 810 return Load($_[1]);
19             }
20              
21              
22              
23             1;
24             __END__
25             #
26              
27             =head1 NAME
28              
29             Data::Serializer::YAML - Creates bridge between Data::Serializer and YAML
30              
31             =head1 SYNOPSIS
32              
33             use Data::Serializer::YAML;
34              
35             =head1 DESCRIPTION
36              
37             Module is used internally to Data::Serializer
38              
39              
40             =over 4
41              
42             =item B<serialize> - Wrapper to normalize serializer method name
43              
44             =item B<deserialize> - Wrapper to normalize deserializer method name
45              
46             =back
47              
48             =head1 AUTHOR
49              
50             Florian Helmberger <fh@laudatio.com>
51              
52             =head1 COPYRIGHT
53              
54             Copyright 2002 by Florian Helmberger. All rights reserved.
55             This program is free software; you can redistribute it
56             and/or modify it under the same terms as Perl itself.
57              
58             =head1 SEE ALSO
59              
60             perl(1), Data::Serializer(3), YAML(3).
61              
62             =cut
63