File Coverage

File:cover_db_test/multi_file/MultiFile.pm
Coverage:65.5%

linestmtbrancondsubtimecode
1package MultiFile;
2
3
1
1
1
25845
1
11
use MultiFile::First;
4
1
1
1
111
0
34
use MultiFile::Second;
5
6 - 10
=item go

... go gadget tester

=cut
11sub go {
12
1
25633
    my $x = 1 + MultiFile::First::go() + MultiFile::Second::go();
13
1
1
    return $x;
14}
15
161;
17
18package MultiFile::Sub;
19
20
1
1
1
2
1
6
use MultiFile::First;
21
1
1
1
1
1
29
use MultiFile::Second;
22
23sub 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
341;