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

use strict;
use warnings;
package YAML::PP::Perl;

our $VERSION = '0.036_001'; # TRIAL VERSION

use base 'Exporter';
use base 'YAML::PP';
our @EXPORT_OK = qw/ Load Dump LoadFile DumpFile /;

use YAML::PP;
use YAML::PP::Schema::Perl;

sub new {
    my ($class, %args) = @_;
    $args{schema} ||= [qw/ Core Perl /];
    $class->SUPER::new(%args);
}

sub Load {
    my ($yaml) = @_;
    __PACKAGE__->new->load_string($yaml);
}

sub LoadFile {
    my ($file) = @_;
    __PACKAGE__->new->load_file($file);
}

sub Dump {
    my (@data) = @_;
    __PACKAGE__->new->dump_string(@data);
}

sub DumpFile {
    my ($file, @data) = @_;
    __PACKAGE__->new->dump_file($file, @data);
}

1;

__END__