Thread OOP $self
(11 answers)
Opened by KurtZ at 2008-04-30 18:42
ich versuche gerade abzuschätzen wie performant der self code ist ... kennt sich jemand mit DB aus, das sieht doch nach overhead aus... die Notwendigkeit erschließt sich mir auch nicht.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 sub _args { my $level = 2; my @c = (); while ( !defined($c[3]) || $c[3] eq '(eval)') { @c = do { package DB; @DB::args = (); caller($level); }; $level++; } return @DB::args; } NACHTRAG: habs begriffen, danke! TMTOWTDYOG (there's more than one way to dig your own grave)
|