1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
package Foo::Bar;
# This is a test package
=pod
=head1 NAME
Foo::Bar - Test Package
=begin testing SETUP 0
my $Foo = Foo::Bar->new();
=end test
=cut
sub foo {
my $self = shift;
return 1;
}
=pod
=begin testing 1
This is a test
=end testing
=cut
=begin testing bar 2
This is also a test
=end testing
Foo bar blah
=begin testing foo after bar that 3
This is another test
=end testing
=cut
Some more stuff
=begin testing that after bar 4
Final test
=end testing
1;
|