File: | cover_db_test/multi_file/MultiFile.pm |
Coverage: | 65.5% |
line | stmt | bran | cond | sub | time | code |
---|---|---|---|---|---|---|
1 | package MultiFile; | |||||
2 | ||||||
3 | 1 1 1 | 29447 1 15 | use MultiFile::First; | |||
4 | 1 1 1 | 106 1 40 | use MultiFile::Second; | |||
5 | ||||||
6 - 10 | =item go ... go gadget tester =cut | |||||
11 | sub go { | |||||
12 | 1 | 35459 | my $x = 1 + MultiFile::First::go() + MultiFile::Second::go(); | |||
13 | 1 | 2 | return $x; | |||
14 | } | |||||
15 | ||||||
16 | 1; | |||||
17 | ||||||
18 | package MultiFile::Sub; | |||||
19 | ||||||
20 | 1 1 1 | 3 0 8 | use MultiFile::First; | |||
21 | 1 1 1 | 2 0 34 | use MultiFile::Second; | |||
22 | ||||||
23 | sub go { | |||||
24 | 0 | my $x = 1 + MultiFile::First::go() + MultiFile::Second::go(); | ||||
25 | 0 | my $y = shift || 0; | ||||
26 | 0 | if( $x < $y ) { | ||||
27 | 0 | return $y; | ||||
28 | } | |||||
29 | else { | |||||
30 | 0 | return $x; | ||||
31 | } | |||||
32 | } | |||||
33 | ||||||
34 | 1; |