Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Junctions, Overloading, and Yesterday's Post 3 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • # Why not just

    use overload(
        '=='   => "num_eq",
        '!='   => "num_ne",
        '>='   => "num_ge",
        '>'    => "num_gt",
        '<='   => "num_le",
        '<'    => "num_lt",
        'eq'   => "str_eq",
        'ne'   => "str_ne",
        'ge'   => "str_ge",
        'gt'   => "str_gt",
        'le'   => "str_le",
        'lt'   => "str_lt",
        'bool' => "bool",
        '""'   => "stringify",
    );

    # ?

    • That's how the code was originally written. Switching from code references to strings makes this all go away. It's such a force of habit for me to use code refs that I feel really, really stupid about now :)

      • That makes sense. Using a coderef ends up being like Ben's original idea: when you do $bool = \&Foo::Bar::bool and then $obj->$bool() you get the same thing as $obj->Foo::Bar::bool() instead of $obj->bool().
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.