Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Test-Simple /
t /
lib /
Delete
Unzip
Name
Size
Permission
Date
Action
Dev
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Test
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Dummy.pm
55
B
-rw-r--r--
2020-10-22 03:10
MyOverload.pm
607
B
-rw-r--r--
2020-10-22 03:10
MyTest.pm
127
B
-rw-r--r--
2020-10-22 03:10
NoExporter.pm
150
B
-rw-r--r--
2020-10-22 03:10
SigDie.pm
79
B
-rw-r--r--
2020-10-22 03:10
SkipAll.pm
71
B
-rw-r--r--
2020-10-22 03:10
SmallTest.pm
336
B
-rw-r--r--
2020-10-22 03:10
TieOut.pm
372
B
-rw-r--r--
2020-10-22 03:10
Save
Rename
package Overloaded; ##no critic (Modules::RequireFilenameMatchesPackage) use strict; sub new { my $class = shift; bless { string => shift, num => shift }, $class; } package Overloaded::Compare; use strict; our @ISA = qw(Overloaded); # Sometimes objects have only comparison ops overloaded and nothing else. # For example, DateTime objects. use overload q{eq} => sub { $_[0]->{string} eq $_[1] }, q{==} => sub { $_[0]->{num} == $_[1] }; package Overloaded::Ify; use strict; our @ISA = qw(Overloaded); use overload q{""} => sub { $_[0]->{string} }, q{0+} => sub { $_[0]->{num} }; 1;