$ perl -MDevel::Cover tests/statement
Devel::Cover 0.2010: Collecting coverage data for branch, condition, statement and time.
Selecting packages matching:
Ignoring packages matching:
Ignoring packages in:
.
/usr/local/pkg/perl-5.8.0/lib/5.8.0
/usr/local/pkg/perl-5.8.0/lib/5.8.0/sun4-solaris
/usr/local/pkg/perl-5.8.0/lib/site_perl
/usr/local/pkg/perl-5.8.0/lib/site_perl/5.8.0
/usr/local/pkg/perl-5.8.0/lib/site_perl/5.8.0/sun4-solaris
------------------------------------------ ------ ------ ------ ------ ------
File stmt branch cond time total
------------------------------------------ ------ ------ ------ ------ ------
tests/statement 100.00 n/a n/a 100.00 100.00
Total 100.00 n/a n/a 100.00 100.00
------------------------------------------ ------ ------ ------ ------ ------