[ SEA-GHOST MINI SHELL]
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;
SEA-GHOST - SHELL CODING BY SEA-GHOST