1package MultiFile;
2
3use MultiFile::First;
4use MultiFile::Second;
5
6=item go
7
8... go gadget tester
9
10=cut
11sub go {
12    my $x = 1 + MultiFile::First::go() + MultiFile::Second::go();
13    return $x;
14}
15
161;
17
18package MultiFile::Sub;
19
20use MultiFile::First;
21use MultiFile::Second;
22
23sub go {
24    my $x = 1 + MultiFile::First::go() + MultiFile::Second::go();
25    my $y = shift || 0;
26    if( $x < $y ) {
27        return $y;
28    }
29    else {
30        return $x;
31    }
32}
33
341;
35__END__
36=head1 Test pod
37
38more here
39
40and here
41=cut
42