[EMAIL PROTECTED] coverage]$ cat foo.pl #!/usr/bin/perl
use strict;
use POSIX;
my $foo = shift;
if ($foo) {
print "$foo\n";
}
[EMAIL PROTECTED] coverage]$ perl -MDevel::Cover foo.pl
Devel::Cover: Can't find file "../../lib/POSIX.pm": ignored.
Devel::Cover 0.20: Collecting coverage data for branch, condition, statement and
time.
Selecting packages matching:
Ignoring packages matching:
Ignoring packages in:
.
/usr/lib/perl5/5.6.1
/usr/lib/perl5/5.6.1/i386-linux
/usr/lib/perl5/site_perl
/usr/lib/perl5/site_perl/5.6.0
/usr/lib/perl5/site_perl/5.6.1
/usr/lib/perl5/site_perl/5.6.1/i386-linux
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/vendor_perl/5.6.1
/usr/lib/perl5/vendor_perl/5.6.1/i386-linux
------------------------------------------ ------ ------ ------ ------ ------
File stmt branch cond time total
------------------------------------------ ------ ------ ------ ------ ------
foo.pl 66.67 50.00 n/a n/a 60.00
Total 66.67 50.00 n/a n/a 60.00
------------------------------------------ ------ ------ ------ ------ ------
--
Danny Faught
Tejas Software Consulting
http://tejasconsulting.com/
