libtest-mockclass-perl/lib/Test/MockClass/MyClass.pm

package Test::MockClass::MyClass;

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self = {
				foo => '1',
				bar => '2',
				bas => '3',
			   };
	bless($self, $class);
}

sub foo {
	my $self = shift;
	return $self->{foo};
}

sub bar {
	my $self = shift;
	return $self->{bar};
}

sub bas {
	my $self = shift;
	return $self->{bas};
}

1;