File Coverage

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			1	29447 1 15	use MultiFile::First;
4	1 1 1			1	106 1 40	use MultiFile::Second;
5
6 - 10						=item go ... go gadget tester =cut
11						sub go {
12	1			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			1	3 0 8	use MultiFile::First;
21	1 1 1			1	2 0 34	use MultiFile::Second;
22
23						sub go {
24	0			0		my $x = 1 + MultiFile::First::go() + MultiFile::Second::go();
25	0		0			my $y = shift \|\| 0;
26	0	0				if( $x < $y ) {
27	0					return $y;
28						}
29						else {
30	0					return $x;
31						}
32						}
33
34						1;