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"