debug perl

[Aben Siatris]

mam trosku vacsi perlovy projekt a chcel som si spravit jeho profiling
a velmi sa mi nedari.

jediny profiller ktory sa mi podarilo spustit bez toho aby to zamrzlo
bol Devel::SmallProf, ten vsak vypisuje info o kazdom jednom riadku
a ja by som potreboval len volane funkcie, takze som sa dal do jeho
upravovania.

package DB;

sub DB
{
}

sub sub
{
	no strict 'refs';
	if (defined($DB::sub{$DB::sub}))
	{
		$DB::subs{$DB::sub}{calls}++;
	}
	&{$DB::sub}(@_);
	#$DB::testvar="a";
}


profiler takto funguje, ale ked odkomentuje zakomentovany riadok
(v tom mieste by som rad ratal ubehnuty cas na vykonanie funkcie),
tak to cele zamrzne.