tlib/File/Package.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 18 | 18 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 6 | 6 | 100.0 |
pod | n/a | ||
total | 24 | 24 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | #!perl | ||||||
2 | # | ||||||
3 | # Documentation, copyright and license is at the end of this file. | ||||||
4 | # | ||||||
5 | |||||||
6 | package File::Package; | ||||||
7 | |||||||
8 | 1 | 1 | 460 | use 5.001; | |||
1 | 5 | ||||||
1 | 40 | ||||||
9 | 1 | 1 | 6 | use strict; | |||
1 | 2 | ||||||
1 | 35 | ||||||
10 | 1 | 1 | 5 | use warnings; | |||
1 | 2 | ||||||
1 | 40 | ||||||
11 | 1 | 1 | 6 | use warnings::register; | |||
1 | 3 | ||||||
1 | 125 | ||||||
12 | |||||||
13 | 1 | 1 | 22 | use vars qw($VERSION $DATE $FILE); | |||
1 | 3 | ||||||
1 | 80 | ||||||
14 | $VERSION = '1.11'; | ||||||
15 | $DATE = '2003/07/27'; | ||||||
16 | $FILE = __FILE__; | ||||||
17 | |||||||
18 | 1 | 1 | 862 | use SelfLoader; | |||
1 | 9835 | ||||||
1 | 48 | ||||||
19 | |||||||
20 | 1 | ||||||
21 | |||||||
22 | __DATA__ |