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.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by pudge (1) on 2004.05.11 18:41 (#30702) Homepage Journal
    BTW, if it is me, I do:
    sub AUTOLOAD {
        (my $name = $AUTOLOAD) =~ s/^.*::(\w+)$/$1/;
        return unless $name =~ /^(g?)(?:pos|num|name)$/i;  # etc.
     
            my $player = $1 ? $goalies[0] : $players[0];
            $name = $2;
        $player && $player->$name;
    }
    Or something like that. You'd need to special case a few things, still.
    • You are right. These repetitive functions actually cry for AUTOLOAD. Didn't occur to me by the time I was writing it, maybe because those are functions and not methods.

      Games::NHL93 makes excessive use of AUTOLOAD, though. Every attribute and statistic figure is accessed that way which saved me the writing of many boring accessors.