sub AUTOLOAD { my $r = shift; my $func = (split('::', $Format::AUTOLOAD))[-1]; if (my $sub = Format::Real->can($func)) { unshift(@_, $r->{real}, $r->{spec}); goto &$sub; } }
In reply to Re: What kind of OO is this?
by fergal
in thread What kind of OO is this?
by YuckFoo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |