Devel::Cover

$ perl -MDevel::Cover MyMath.t5
Devel::Cover 0.52: Collecting coverage data for branch, condition, pod, statement, subroutine and time.
Selecting packages matching:
Ignoring packages matching:
    /Devel/Cover[./]
Ignoring packages in:
    .
    /etc/perl
    /usr/lib/perl/5.8.4
    /usr/lib/perl5
    /usr/local/lib/perl/5.8.0
    /usr/local/lib/perl/5.8.2
    /usr/local/lib/perl/5.8.3
    /usr/local/lib/perl/5.8.4
    /usr/local/lib/site_perl
    /usr/local/share/perl/5.8.0
    /usr/local/share/perl/5.8.2
    /usr/local/share/perl/5.8.3
    /usr/local/share/perl/5.8.4
    /usr/share/perl/5.8.4
    /usr/share/perl5
1..4
ok 1 - require MyMath;
ok 2 - factorial(0)
ok 3 - factorial(5)
ok 4 - factorial(6)
Devel::Cover: Can't find file "../../lib/Storable.pm": ignored.
Devel::Cover: Writing coverage database to /home/srdjan/presentation/cover_db/runs/1108782455.19077.02908
---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           stmt branch   cond    sub    pod   time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
MyMath.pm                     100.0   66.7    n/a  100.0  100.0   13.7   90.5
MyMath.t5                     100.0   50.0    n/a  100.0    n/a   86.3   95.2
Total                         100.0   62.5    n/a  100.0  100.0  100.0   92.9
---------------------------- ------ ------ ------ ------ ------ ------ ------