File Coverage

test.pl
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine n/a
pod n/a
total n/a


line stmt bran cond sub pod time code
1             #########################
2              
3             # change 'tests => 1' to 'tests => last_test_to_print';
4              
5             use Test;
6             BEGIN { plan tests => 6 };
7             BEGIN{
8             *Pollute::Test::ok =
9             *Pollute::Test2::ok =
10             \&ok
11             };
12             #use Pollute;
13             #ok(1); # If we made it this far, we're ok.
14             use Pollute_Test;
15             ok(4);
16             carp "This line is printed by carp, imported via Pollute\n";
17             ok(5);
18              
19              
20             package Pollute::Test2;
21              
22             eval { carp( "don't know how to carp in this package") };
23              
24             $@ =~ /^Undefined subroutine \&Pollute::Test2::carp called at/ and ok(6);
25