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