Imported Upstream version 1.04

This commit is contained in:
Mario Fetka
2017-09-15 16:00:59 +02:00
commit ae1b1f5377
10 changed files with 1652 additions and 0 deletions

View 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;