Reading database from /home/pjcj/g/perl/dev/Devel-Cover-0.3209/cover_db
--------------------------------------------------------------- ------ ------
File pod total
--------------------------------------------------------------- ------ ------
tests/Module1.pm 50.00 50.00
tests/pod n/a n/a
Total 50.00 50.00
--------------------------------------------------------------- ------ ------
tests/Module1.pm
line err pod code
1 # Copyright 2002-2004, Paul Johnson (pjcj@cpan.org)
2
3 # This software is free. It is licensed under the same terms as Perl itself.
4
5 # The latest version of this software should be available from my homepage:
6 # http://www.pjcj.net
7
8 package Module1;
9
10 my $y = 7;
11 $y++;
12
13 sub _aa
14 {
15 $y++;
16 die;
17 die;
18 }
19
20 sub _xx
21 {
22 $y++;
23 die;
24 }
25
26 sub yy
27 {
28 1 $y++;
29 }
30
31 sub zz
32 {
33 *** 0 my $x = shift;
34 $x++;
35 }
36
37 1
38
39 __END__
tests/pod
line err pod code
1 #!/usr/bin/perl
2
3 # Copyright 2002-2004, Paul Johnson (pjcj@cpan.org)
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
10 # __COVER__ criteria pod
11
12 use strict;
13 use warnings;
14
15 use lib "tests";
16
17 use Module1;
18
19 my @x;
20
21 sub xx
22 {
23 $x[shift]++;
24 Module1::zz(0);
25 }
26
27 for (0 .. 10)
28 {
29 if (time)
30 {
31 xx(0);
32 }
33 else
34 {
35 $x[1]++;
36 }
37 }