view release on metacpan or  search on metacpan

scripts/dex  view on Meta::CPAN

9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9800
9801
use base 'https://metacpan.org/pod/Exporter">Exporter';
use base 'https://metacpan.org/pod/YAML::PP">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);