Imported Upstream version 1.04
This commit is contained in:
29
lib/Test/MockClass/MyClass.pm
Normal file
29
lib/Test/MockClass/MyClass.pm
Normal file
@@ -0,0 +1,29 @@
|
||||
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;
|
||||
Reference in New Issue
Block a user