Select Code to Download

package Foo;

...
}

1;

use warnings;
use strict;
...

is(bar(77), 'big', 'check 77');
is(bar(22), 'big', 'check 22');

perl -MDevel::Cover test.pl

1..2
Devel::Cover 0.65: Collecting coverage data for branch, condition, sta
+tement, subroutine and time.
...
test.pl                              100.0    n/a    n/a  100.0    0.0
+  100.0
Total                                 10.2    5.1    3.2   10.9  100.0
+    7.9
----------------------------------- ------ ------ ------ ------ ------
+ ------