Help for this page

Select Code to Download


  1. or download this
    my $thing = OverloadingClass->new();
my $subref = overload::Method($thing, 'eq');
  2. or download this
    package MyOverLoaded;
use overload
...
my $thing = OverLoadedSubClass->new("It's my birthday!");
my $sub   = overload::Method($thing, 'eq');
print CvGV($sub); # prints "*MyOverLoaded::my_equal"