File Coverage

blib/lib/YAML/PP/Perl.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition 2 2 100.0
subroutine 11 11 100.0
pod 5 5 100.0
total 47 47 100.0


line stmt bran cond sub pod time code
1 2     2   862 use strict;
  2         4  
  2         56  
2 2     2   10 use warnings;
  2         2  
  2         91  
3             package YAML::PP::Perl;
4              
5             our $VERSION = '0.036_001'; # TRIAL VERSION
6              
7 2     2   11 use base 'Exporter';
  2         4  
  2         166  
8 2     2   11 use base 'YAML::PP';
  2         4  
  2         224  
9             our @EXPORT_OK = qw/ Load Dump LoadFile DumpFile /;
10              
11 2     2   14 use YAML::PP;
  2         4  
  2         74  
12 2     2   986 use YAML::PP::Schema::Perl;
  2         11  
  2         349  
13              
14             sub new {
15 14     14 1 96 my ($class, %args) = @_;
16 14   100     61 $args{schema} ||= [qw/ Core Perl /];
17 14         71 $class->SUPER::new(%args);
18             }
19              
20             sub Load {
21 2     2 1 4899 my ($yaml) = @_;
22 2         12 __PACKAGE__->new->load_string($yaml);
23             }
24              
25             sub LoadFile {
26 2     2 1 208 my ($file) = @_;
27 2         8 __PACKAGE__->new->load_file($file);
28             }
29              
30             sub Dump {
31 1     1 1 2046 my (@data) = @_;
32 1         7 __PACKAGE__->new->dump_string(@data);
33             }
34              
35             sub DumpFile {
36 1     1 1 732 my ($file, @data) = @_;
37 1         3 __PACKAGE__->new->dump_file($file, @data);
38             }
39              
40             1;
41              
42             __END__