Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
YAML /
Delete
Unzip
Name
Size
Permission
Date
Action
Dumper
[ DIR ]
drwxrwxrwx
2024-07-26 17:40
Loader
[ DIR ]
drwxrwxrwx
2024-07-26 17:40
XS
[ DIR ]
drwxrwxrwx
2024-07-26 17:40
Any.pm
2.6
KB
-rw-rw-rw-
2020-01-28 00:10
Any.pod
2.82
KB
-rw-rw-rw-
2020-01-28 00:10
Dumper.pm
16.69
KB
-rw-rw-rw-
2020-01-28 00:10
Dumper.pod
776
B
-rw-rw-rw-
2020-01-28 00:10
Error.pm
5.63
KB
-rw-rw-rw-
2020-01-28 00:10
Error.pod
666
B
-rw-rw-rw-
2020-01-28 00:10
LibYAML.pm
176
B
-rw-rw-rw-
2020-05-02 22:39
LibYAML.pod
627
B
-rw-rw-rw-
2020-05-02 22:39
Loader.pm
26.36
KB
-rw-rw-rw-
2020-01-28 00:10
Loader.pod
767
B
-rw-rw-rw-
2020-01-28 00:10
Marshall.pm
867
B
-rw-rw-rw-
2020-01-28 00:10
Marshall.pod
656
B
-rw-rw-rw-
2020-01-28 00:10
Mo.pm
3.24
KB
-rw-rw-rw-
2020-01-28 00:10
Node.pm
4.32
KB
-rw-rw-rw-
2020-01-28 00:10
Node.pod
2.48
KB
-rw-rw-rw-
2020-01-28 00:10
Tag.pm
216
B
-rw-rw-rw-
2020-01-28 00:10
Tag.pod
538
B
-rw-rw-rw-
2020-01-28 00:10
Tiny.pm
41.6
KB
-rw-rw-rw-
2018-02-21 23:08
Types.pm
6.44
KB
-rw-rw-rw-
2020-01-28 00:10
Types.pod
738
B
-rw-rw-rw-
2020-01-28 00:10
XS.pm
3.51
KB
-rw-rw-rw-
2020-05-02 22:39
XS.pod
4.62
KB
-rw-rw-rw-
2020-05-02 22:39
Save
Rename
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;