| Next | Making Programs Faster | 77 |
package Devel::Count;
sub DB::DB { ++$count }
END { print STDERR "Total statements: $count\n" }
Now perl -d:Count anyprogram.pl prints out:
Total statements: 286
| Next | |
Copyright © 2003 M. J. Dominus |