golden hour

/usr/share/perl5/vendor_perl

File/Folder	Size	Actions
Algorithm	-
App	-
Archive	-
Authen	-
CGI	-
CGI.pm	122.63 KB
CGI.pod	66.13 KB
CPAN	-
CPAN.pm	144.4 KB
Carp	-
Carp.pm	35.12 KB
Config	-
Crypt	-
Data	-
Date	-
Digest	-
Digest.pm	10.96 KB
Encode	-
Env.pm	5.39 KB
Error	-
Error.pm	29.45 KB
Expect.pm	98.09 KB
Exporter	-
ExtUtils	-
Fatal.pm	57.7 KB
Fh.pm	166 B
File	-
Filter	-
Getopt	-
Git	-
Git.pm	46.87 KB
HTML	-
HTTP	-
IO	-
IPC	-
Importer.pm	41.53 KB
JSON	-
LWP	-
LWP.pm	21.17 KB
List	-
Locale	-
MIME	-
MRO	-
Math	-
Module	-
Mozilla	-
Net	-
Object	-
POD2	-
Package	-
Params	-
Parse	-
Perl	-
PerlIO	-
Pod	-
Regexp	-
Software	-
Sub	-
Switch.pm	28.19 KB
TAP	-
Term	-
Test	-
Test2	-
Test2.pm	6.24 KB
Text	-
Thread	-
Tie	-
Time	-
TimeDate.pm	267 B
Try	-
Types	-
WWW	-
XML	-
YAML	-
YAML.pm	3.12 KB
YAML.pod	22.62 KB
autodie	-
autodie.pm	12.14 KB
bigint.pm	22.85 KB
bignum.pm	20.64 KB
bigrat.pm	15.78 KB
constant.pm	14.38 KB
experimental.pm	7.39 KB
inc	-
lib	-
libwww	-
local	-
newgetopt.pl	2.15 KB
ok.pm	967 B
parent.pm	2.64 KB
perldoc.pod	9.16 KB
perlfaq.pm	77 B
perlfaq.pod	22.26 KB
perlfaq1.pod	14.09 KB
perlfaq2.pod	9.16 KB
perlfaq3.pod	36.72 KB
perlfaq4.pod	88.69 KB
perlfaq5.pod	54 KB
perlfaq6.pod	38.61 KB
perlfaq7.pod	36.93 KB
perlfaq8.pod	48.77 KB
perlfaq9.pod	14.86 KB
perlglossary.pod	134.02 KB
perlxs.pod	82.35 KB
perlxstut.pod	48.92 KB
perlxstypemap.pod	23.44 KB

Edit: YAML.pm

package YAML;
our $VERSION = '1.30';

use YAML::Mo;

use Exporter;
push @YAML::ISA, 'Exporter';
our @EXPORT = qw{ Dump Load };
our @EXPORT_OK = qw{ freeze thaw DumpFile LoadFile Bless Blessed };
our (
    $UseCode, $DumpCode, $LoadCode,
    $SpecVersion,
    $UseHeader, $UseVersion, $UseBlock, $UseFold, $UseAliases,
    $Indent, $SortKeys, $Preserve,
    $AnchorPrefix, $CompressSeries, $InlineSeries, $Purity,
    $Stringify, $Numify, $LoadBlessed, $QuoteNumericStrings,
    $DumperClass, $LoaderClass
);

use YAML::Node; # XXX This is a temp fix for Module::Build
use Scalar::Util qw/ openhandle /;

# XXX This VALUE nonsense needs to go.
use constant VALUE => "\x07YAML\x07VALUE\x07";

# YAML Object Properties
has dumper_class => default => sub {'YAML::Dumper'};
has loader_class => default => sub {'YAML::Loader'};
has dumper_object => default => sub {$_[0]->init_action_object("dumper")};
has loader_object => default => sub {$_[0]->init_action_object("loader")};

sub Dump {
    my $yaml = YAML->new;
    $yaml->dumper_class($YAML::DumperClass)
        if $YAML::DumperClass;
    return $yaml->dumper_object->dump(@_);
}

sub Load {
    my $yaml = YAML->new;
    $yaml->loader_class($YAML::LoaderClass)
        if $YAML::LoaderClass;
    return $yaml->loader_object->load(@_);
}

{
    no warnings 'once';
    # freeze/thaw is the API for Storable string serialization. Some
    # modules make use of serializing packages on if they use freeze/thaw.
    *freeze = \ &Dump;
    *thaw   = \ &Load;
}

sub DumpFile {
    my $OUT;
    my $filename = shift;
    if (openhandle $filename) {
        $OUT = $filename;
    }
    else {
        my $mode = '>';
        if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
            ($mode, $filename) = ($1, $2);
        }
        open $OUT, $mode, $filename
          or YAML::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
    }
    binmode $OUT, ':utf8';  # if $Config{useperlio} eq 'define';
    local $/ = "\n"; # reset special to "sane"
    print $OUT Dump(@_);
    unless (ref $filename eq 'GLOB') {
        close $OUT
          or do {
              my $errsav = $!;
              YAML::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
          }
    }
}

sub LoadFile {
    my $IN;
    my $filename = shift;
    if (openhandle $filename) {
        $IN = $filename;
    }
    else {
        open $IN, '<', $filename
          or YAML::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
    }
    binmode $IN, ':utf8';  # if $Config{useperlio} eq 'define';
    return Load(do { local $/; <$IN> });
}

sub init_action_object {
    my $self = shift;
    my $object_class = (shift) . '_class';
    my $module_name = $self->$object_class;
    eval "require $module_name";
    $self->die("Error in require $module_name - $@")
        if $@ and "$@" !~ /Can't locate/;
    my $object = $self->$object_class->new;
    $object->set_global_options;
    return $object;
}

my $global = {};
sub Bless {
    require YAML::Dumper::Base;
    YAML::Dumper::Base::bless($global, @_)
}
sub Blessed {
    require YAML::Dumper::Base;
    YAML::Dumper::Base::blessed($global, @_)
}
sub global_object { $global }