package Experimental::Sample;
use strict;
use vars qw($VERSION @ISA @EXPORT $SIGNPOST $test_suite);
require Exporter;
@ISA = qw(Exporter);
sub new {
my $pkg = shift;
my $self = { @_ };
bless($self, $pkg);
return $self;
}
# object methods - public
sub name {
my ( $self, $name ) = @_;
if( defined( $name ) ){
$self->{name} = $name;
}
return $self->{name};
}
1;
__END__