import 0.001

[gitmo/MooseX-InsideOut.git] / t / lib / InsideOut / BaseHash.pm

diff --git a/t/lib/InsideOut/BaseHash.pm b/t/lib/InsideOut/BaseHash.pm
new file mode 100644 (file)
index 0000000..fa7abe5
--- /dev/null
+++ b/t/lib/InsideOut/BaseHash.pm
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+package InsideOut::BaseHash;
+
+sub new {
+  my $class = shift;
+  bless {@_} => $class;
+}
+
+sub base_foo {
+  my $self = shift;
+  $self->{base_foo} = shift if @_;
+  return $self->{base_foo};
+}
+
+1;