package Foo::Bad;
# This package has some bad stuff
=pod
=begin testing foo after bar
is( Foo::Bar->foo, 1, '->foo returns expected value' );
=end testing
=cut
sub foo {
my $self = shift;
return 1;
}
1;
package Foo::Bad;
# This package has some bad stuff
=pod
=begin testing foo after bar
is( Foo::Bar->foo, 1, '->foo returns expected value' );
=end testing
=cut
sub foo {
my $self = shift;
return 1;
}
1;