Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

131 lines (116 sloc) 4.035 kB
Reading database from /home/pjcj/g/perl/Devel-Cover/cover_db
--------------------------------------------------------------- ------ ------
File pod total
--------------------------------------------------------------- ------ ------
tests/Module1.pm 50.0 50.0
tests/PodMod.pm 66.7 66.7
tests/pod n/a n/a
Total 60.0 60.0
--------------------------------------------------------------- ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/Module1.pm
line err pod code
1 # Copyright 2002-2005, 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/PodMod.pm
line err pod code
1 # Copyright 2005, 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 PodMod;
9
10 use base "Module1";
11
12 1 sub vv { die }
13 *** 0 sub ww { die }
14 1 sub yy { die }
15
16 1
17
18 __END__
tests/pod
line err pod code
1 #!/usr/bin/perl
2
3 # Copyright 2002-2005, 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-also_private-xx
11 # __COVER__ skip_test eval "use Pod::Coverage:CountParents"; $@
12 # __COVER__ skip_reason Pod::Coverage:CountParents unavailable
13
14 use strict;
15 use warnings;
16
17 use lib "tests";
18
19 use PodMod;
20
21 my @x;
22
23 sub xx
24 {
25 $x[shift]++;
26 Module1::zz(0);
27 }
28
29 for (0 .. 10)
30 {
31 if (time)
32 {
33 xx(0);
34 }
35 else
36 {
37 $x[1]++;
38 }
39 }
Jump to Line
Something went wrong with that request. Please try again.