D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
thread-self
/
root
/
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
lib
/
Filename :
MyOverload.pm
back
Copy
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;
Name
Size
Last Modified
Owner
Permissions
Actions
Dev
Dir
July 28 2023 2:57:48
root
0755
Test
Dir
July 28 2023 2:57:48
root
0755
Dummy.pm
0.054
KB
March 30 2018 5:53:02
root
0644
MyOverload.pm
0.593
KB
March 30 2018 5:53:02
root
0644
MyTest.pm
0.124
KB
March 30 2018 5:53:02
root
0644
NoExporter.pm
0.146
KB
March 30 2018 5:53:02
root
0644
SigDie.pm
0.077
KB
March 30 2018 5:53:02
root
0644
SkipAll.pm
0.069
KB
March 30 2018 5:53:02
root
0644
SmallTest.pm
0.328
KB
March 30 2018 5:53:02
root
0644
TieOut.pm
0.363
KB
March 30 2018 5:53:02
root
0644
2017 © D7net | D704T team