/
inc_sub.5.006001
44 lines (36 loc) · 1.76 KB
/
inc_sub.5.006001
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/inc_sub 100.0 n/a n/a n/a 100.0
Total 100.0 n/a n/a n/a 100.0
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/inc_sub
line err stmt bran cond sub code
1 #!/bin/perl
2
3 use lib ();
4
5 BEGIN
6 {
7 lib->import
8 (
9 sub
10 {
11 print map("[$_]", @_), "\n";
12 return unless $_[1] eq "IncSub.pm";
13 my $fh;
14 open $fh, "tests/IncSub.pm" or die $!;
15 $fh
16 }
17 )
18 }
19
20 use IncSub;
21
22 1 IncSub::check