File Coverage

testclass.pl
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             # This is a test class for Eobj.
2             # It's short, but if it executes at all, odds are that everything
3             # is 100% fine.
4              
5             sub tryout {
6 1     1   201 my $self = shift;
7 1         2 my $what = shift;
8              
9 1         156 print "$what\n";
10             }