Gecko [ gtgates.com ]

Name	Size	Permission	Date
Algorithm	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
App	[ DIR ]	drwxr-xr-x	2025-06-04 11:33
Archive	[ DIR ]	drwxr-xr-x	2024-02-12 23:57
Authen	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
B	[ DIR ]	drwxr-xr-x	2024-02-12 23:56
CGI	[ DIR ]	drwxr-xr-x	2024-02-12 23:57
CPAN	[ DIR ]	drwxr-xr-x	2025-06-04 11:33
Carp	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Config	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Data	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Date	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Devel	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Digest	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Encode	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Error	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Exporter	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
ExtUtils	[ DIR ]	drwxr-xr-x	2024-02-12 23:53
File	[ DIR ]	drwxr-xr-x	2024-12-02 12:30
Filter	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Getopt	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Git	[ DIR ]	drwxr-xr-x	2025-07-23 11:30
HTML	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
HTTP	[ DIR ]	drwxr-xr-x	2024-05-31 13:24
IO	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
IPC	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
JSON	[ DIR ]	drwxr-xr-x	2024-02-12 23:56
LWP	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Locale	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
MRO	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Math	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Module	[ DIR ]	drwxr-xr-x	2024-12-02 12:30
Mozilla	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Net	[ DIR ]	drwxr-xr-x	2024-02-12 23:58
POD2	[ DIR ]	drwxr-xr-x	2019-10-13 14:04
Package	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Params	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Parse	[ DIR ]	drwxr-xr-x	2024-12-02 12:30
Perl	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
PerlIO	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Pod	[ DIR ]	drwxr-xr-x	2024-02-12 23:56
Software	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
String	[ DIR ]	drwxr-xr-x	2024-12-02 12:30
Sub	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
TAP	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Term	[ DIR ]	drwxr-xr-x	2024-02-12 23:57
Test	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Test2	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Text	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Thread	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Time	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Try	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
Types	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
WWW	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
XML	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
YAML	[ DIR ]	drwxr-xr-x	2024-02-12 23:56
autodie	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
inc	[ DIR ]	drwxr-xr-x	2024-02-12 23:53
lib	[ DIR ]	drwxr-xr-x	2019-10-13 14:04
libwww	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
local	[ DIR ]	drwxr-xr-x	2024-02-12 23:51
CGI.pm	121.63 KB	-rw-r--r--	2017-12-01 08:28
CGI.pod	65.66 KB	-rw-r--r--	2017-03-29 08:46
CPAN.pm	138.01 KB	-rw-r--r--	2025-06-03 14:32
Carp.pm	30.32 KB	-rw-r--r--	2019-10-13 07:06
Digest.pm	10.46 KB	-rw-r--r--	2019-10-13 08:28
Env.pm	5.39 KB	-rw-r--r--	2013-03-02 17:10
Error.pm	24.29 KB	-rw-r--r--	2019-10-14 15:30
Expect.pm	98.09 KB	-rw-r--r--	2017-05-18 19:07
Exporter.pm	18.31 KB	-rw-r--r--	2019-10-13 08:52
Fatal.pm	56.81 KB	-rw-r--r--	2015-07-09 07:16
Fh.pm	166 B	-rw-r--r--	2017-12-01 08:28
Git.pm	46.95 KB	-rw-r--r--	2025-07-22 14:33
JSON.pm	53.65 KB	-rw-r--r--	2017-12-21 11:13
LWP.pm	21.17 KB	-rw-r--r--	2018-06-05 18:49
Test2.pm	6.24 KB	-rw-r--r--	2018-03-30 05:53
YAML.pm	3.06 KB	-r--r--r--	2017-10-30 19:32
YAML.pod	21.62 KB	-r--r--r--	2017-10-30 19:32
autodie.pm	12.58 KB	-rw-r--r--	2015-07-09 07:16
bigint.pm	22.85 KB	-rw-r--r--	2018-02-03 10:59
bignum.pm	20.64 KB	-rw-r--r--	2018-02-03 10:59
bigrat.pm	15.78 KB	-rw-r--r--	2018-02-03 10:59
constant.pm	14.38 KB	-rw-r--r--	2019-10-13 13:55
cpanfile-faq.pod	4.39 KB	-rw-r--r--	2016-02-12 16:23
cpanfile.pod	3.39 KB	-rw-r--r--	2016-02-12 16:23
experimental.pm	6.83 KB	-rw-r--r--	2017-12-03 17:40
newgetopt.pl	2.15 KB	-rw-r--r--	2010-07-09 12:26
ok.pm	967 B	-rw-r--r--	2018-03-30 05:53
parent.pm	2.51 KB	-rw-r--r--	2018-07-06 17:53
perldoc.pod	9.16 KB	-rw-r--r--	2016-08-02 16:31
perlfaq.pm	77 B	-rw-r--r--	2018-06-05 05:02
perlfaq.pod	22.22 KB	-rw-r--r--	2018-06-05 05:02
perlfaq1.pod	14.12 KB	-rw-r--r--	2018-06-05 05:02
perlfaq2.pod	9.24 KB	-rw-r--r--	2018-06-05 05:02
perlfaq3.pod	36.66 KB	-rw-r--r--	2018-06-05 05:02
perlfaq4.pod	87.3 KB	-rw-r--r--	2018-06-05 05:02
perlfaq5.pod	54.21 KB	-rw-r--r--	2018-06-05 05:02
perlfaq6.pod	38.69 KB	-rw-r--r--	2018-06-05 05:02
perlfaq7.pod	36.93 KB	-rw-r--r--	2018-06-05 05:02
perlfaq8.pod	48.93 KB	-rw-r--r--	2018-06-05 05:02
perlfaq9.pod	14.5 KB	-rw-r--r--	2018-06-05 05:02
perlglossary.pod	134.02 KB	-rw-r--r--	2018-06-05 05:02

Rename

package YAML;
our $VERSION = '1.24';

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
);

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 }