Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

139 lines (116 sloc) 5.412 kB
Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/Module2.pm 25.0 n/a n/a 25.0 25.0
tests/module2 87.5 50.0 n/a 100.0 81.8
Total 56.2 50.0 n/a 40.0 52.2
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/Module2.pm
line err stmt bran cond sub code
1 # Copyright 2002-2012, Paul Johnson (paul@pjcj.net)
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 NotModule2;
9
10 my $y = 7;
11 $y++;
12
13 sub _aa
14 {
15 *** 0 0 $y++;
16 *** 0 die;
17 *** 0 die;
18 }
19
20 sub _xx
21 {
22 *** 0 0 $y++;
23 *** 0 die;
24 }
25
26 sub yy
27 {
28 *** 0 0 $y++;
29 }
30
31 sub zz
32 {
33 11 11 my $x = shift;
34 11 $x++;
35 }
36
37 1
38
39 __END__
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- -------------------
zz 11 tests/Module2.pm:33
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- -------------------
_aa 0 tests/Module2.pm:15
_xx 0 tests/Module2.pm:22
yy 0 tests/Module2.pm:28
tests/module2
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2002-2012, Paul Johnson (paul@pjcj.net)
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__ changes s/56.3/56.2/
11
12 use strict;
13 use warnings;
14
15 use lib "tests";
16
17 use Module2;
18
19 1 my @x;
20
21 sub xx
22 {
23 11 11 $x[shift]++;
24 11 NotModule2::zz(0);
25 }
26
27 1 for (0 .. 10)
11
28 {
29 *** 11 50 if (time)
30 {
31 11 xx(0);
32 }
33 else
34 {
35 *** 0 $x[1]++;
36 }
37 }
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
29 *** 50 11 0 if (time) { }
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
xx 11 tests/module2:23
Jump to Line
Something went wrong with that request. Please try again.