Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/eval_string 85.7 50.0 n/a 100.0 80.0
Total 85.7 50.0 n/a 100.0 80.0
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/eval_string
line err stmt bran cond sub code
1 #!/usr/bin/env perl
2 1 1 use strict;
1
1
3 1 1 use warnings;
1
1
4
5 1 my $i = 1;
6
7 *** 1 50 if ($i == 2) {
8 *** 0 print STDERR "hello\n";
9 } else {
10 1 print STDERR "goodbye\n";
11 }
12
13 1 eval {
14 *** 1 50 if ($i == 2) {
15 *** 0 print STDERR "hello\n";
16 } else {
17 1 print STDERR "goodbye\n";
18 }
19 };
20
21 1 eval <<'EOF';
22 if ($i == 2) {
23 print STDERR "hello\n";
24 } else {
25 print STDERR "goodbye\n";
26 }
27 EOF
28
29 sub ev {
30 1 1 eval {
31 *** 1 50 if ($i == 2) {
32 *** 0 print STDERR "hello\n";
33 } else {
34 1 print STDERR "goodbye\n";
35 }
36 };
37
38 1 eval <<'EOF';
39 if ($i == 2) {
40 print STDERR "hello\n";
41 } else {
42 print STDERR "goodbye\n";
43 }
44 EOF
45 }
46
47 1 ev;
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
7 *** 50 0 1 if ($i == 2) { }
14 *** 50 0 1 if ($i == 2) { }
31 *** 50 0 1 if ($i == 2) { }
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- --------------------
BEGIN 1 tests/eval_string:2
BEGIN 1 tests/eval_string:3
ev 1 tests/eval_string:30