Linux boca.hozzt.com 4.18.0-553.8.1.lve.el8.x86_64 #1 SMP Thu Jul 4 16:24:39 UTC 2024 x86_64
LiteSpeed
: 159.253.39.62 | : 3.135.197.33
Cant Read [ /etc/named.conf ]
7.4.33
renovkoron
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 /
vendor_perl /
Test2 /
[ HOME SHELL ]
Name
Size
Permission
Action
API
[ DIR ]
drwxr-xr-x
Event
[ DIR ]
drwxr-xr-x
EventFacet
[ DIR ]
drwxr-xr-x
Formatter
[ DIR ]
drwxr-xr-x
Hub
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Tools
[ DIR ]
drwxr-xr-x
Util
[ DIR ]
drwxr-xr-x
API.pm
44.28
KB
-rw-r--r--
Event.pm
22.11
KB
-rw-r--r--
EventFacet.pm
1.46
KB
-rw-r--r--
Formatter.pm
3.34
KB
-rw-r--r--
Hub.pm
22.24
KB
-rw-r--r--
IPC.pm
2.82
KB
-rw-r--r--
Transition.pod
13.16
KB
-rw-r--r--
Util.pm
10.25
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : EventFacet.pm
package Test2::EventFacet; use strict; use warnings; our $VERSION = '1.302135'; use Test2::Util::HashBase qw/-details/; use Carp qw/croak/; my $SUBLEN = length(__PACKAGE__ . '::'); sub facet_key { my $key = ref($_[0]) || $_[0]; substr($key, 0, $SUBLEN, ''); return lc($key); } sub is_list { 0 } sub clone { my $self = shift; my $type = ref($self); return bless {%$self, @_}, $type; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet - Base class for all event facets. =head1 DESCRIPTION Base class for all event facets. =head1 METHODS =over 4 =item $key = $facet_class->facet_key() This will return the key for the facet in the facet data hash. =item $bool = $facet_class->is_list() This will return true if the facet should be in a list instead of a single item. =item $clone = $facet->clone() =item $clone = $facet->clone(%replace) This will make a shallow clone of the facet. You may specify fields to override as arguments. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut
Close