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 | 800 | BEGIN { @Data::Serializer::YAML::ISA = qw(Data::Serializer) } | |||
3 | |||||||
4 | 11 | 11 | 73 | use warnings; | |||
11 | 104 | ||||||
11 | 516 | ||||||
5 | 11 | 11 | 61 | use strict; | |||
11 | 97 | ||||||
11 | 399 | ||||||
6 | 11 | 11 | 72 | use YAML; | |||
11 | 24 | ||||||
11 | 849 | ||||||
7 | 11 | 11 | 61 | use vars qw($VERSION @ISA); | |||
11 | 23 | ||||||
11 | 1446 | ||||||
8 | |||||||
9 | $VERSION = '0.02'; | ||||||
10 | |||||||
11 | sub serialize { | ||||||
12 | 231 | 231 | 1 | 1094 | return Dump($_[1]); | ||
13 | } | ||||||
14 | |||||||
15 | sub deserialize { | ||||||
16 | 231 | 231 | 1 | 1103 | return Load($_[1]); | ||
17 | } | ||||||
18 | |||||||
19 | |||||||
20 | |||||||
21 | 1; | ||||||
22 | __END__ |