File Coverage

blib/lib/Data/Serializer/Bencode.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::Bencode;
2 11     11   609 BEGIN { @Data::Serializer::Bencode::ISA = qw(Data::Serializer) }
3              
4 11     11   83 use warnings;
  11         23  
  11         440  
5 11     11   62 use strict;
  11         24  
  11         282  
6 11     11   68 use Bencode;
  11         22  
  11         95  
7 11     11   511 use vars qw($VERSION @ISA);
  11         23  
  11         1650  
8              
9             $VERSION = '0.03';
10              
11             sub serialize {
12 189     189 1 608 return Bencode::bencode($_[1]);
13             }
14              
15             sub deserialize {
16 189     189 1 652 return Bencode::bdecode($_[1]);
17             }
18              
19             1;
20             __END__
21              
22              
23              
24             =head1 NAME
25              
26             Data::Serializer::Bencode - Creates bridge between Data::Serializer and Bencode
27              
28             =head1 SYNOPSIS
29              
30             use Data::Serializer::Bencode;
31              
32             =head1 DESCRIPTION
33              
34             Module is used internally to Data::Serializer
35              
36             =over 4
37            
38             =item B<serialize> - Wrapper to normalize serializer method name
39              
40             =item B<deserialize> - Wrapper to normalize deserializer method name
41              
42              
43             =back
44              
45             =head1 AUTHOR
46              
47             Neil Neely <F<neil@neely.cx>>.
48              
49             http://neil-neely.blogspot.com/
50              
51             =head1 BUGS
52              
53             Please report all bugs here:
54              
55             http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Serializer
56              
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             Copyright (c) 2011 Neil Neely. All rights reserved.
61              
62             This library is free software; you can redistribute it and/or modify
63             it under the same terms as Perl itself, either Perl version 5.8.2 or,
64             at your option, any later version of Perl 5 you may have available.
65              
66             =head1 SEE ALSO
67              
68             perl(1), Data::Serializer(3), Bencode(3).
69              
70             =cut
71