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   869 use strict;
  2         5  
  2         61  
2 2     2   9 use warnings;
  2         4  
  2         91  
3             package YAML::PP::Perl;
4              
5             our $VERSION = '0.036_002'; # TRIAL VERSION
6              
7 2     2   13 use base 'Exporter';
  2         3  
  2         170  
8 2     2   14 use base 'YAML::PP';
  2         2  
  2         215  
9             our @EXPORT_OK = qw/ Load Dump LoadFile DumpFile /;
10              
11 2     2   16 use YAML::PP;
  2         4  
  2         74  
12 2     2   998 use YAML::PP::Schema::Perl;
  2         11  
  2         363  
13              
14             sub new {
15 14     14 1 97 my ($class, %args) = @_;
16 14   100     59 $args{schema} ||= [qw/ Core Perl /];
17 14         73 $class->SUPER::new(%args);
18             }
19              
20             sub Load {
21 2     2 1 5131 my ($yaml) = @_;
22 2         12 __PACKAGE__->new->load_string($yaml);
23             }
24              
25             sub LoadFile {
26 2     2 1 215 my ($file) = @_;
27 2         6 __PACKAGE__->new->load_file($file);
28             }
29              
30             sub Dump {
31 1     1 1 2197 my (@data) = @_;
32 1         8 __PACKAGE__->new->dump_string(@data);
33             }
34              
35             sub DumpFile {
36 1     1 1 735 my ($file, @data) = @_;
37 1         4 __PACKAGE__->new->dump_file($file, @data);
38             }
39              
40             1;
41              
42             __END__