=pod

Document method here

=begin testing

my $Test = Foo::Bar->new('blahblah');
is( $Test->whacko, 1, "'blahblah' new Foo::Bar is whacko" );

=end testing

=cut

sub new {
    ...
}