Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

get rid of Moose dependency

  • Loading branch information...
commit d59ea18442093458df63b29e7d9491d3ed867096 1 parent 0114be2
Moritz Lenz authored
Showing with 8 additions and 16 deletions.
  1. +8 −16 t/tlib/TestTree.pm
24 t/tlib/TestTree.pm
View
@@ -1,19 +1,16 @@
package TestTree;
-#
-# $Id: $
-# $Revision: $
-# $Author: $
-# $Source: $
-#
-# $Log: $
-#
-use Moose;
-#use Data::Dumper;
+
use Test::More;
use namespace::clean;
-has 'schema' => (is => 'rw'); # Schema connection
+sub new {
+ my ($class, $args) = @_;
+ use Data::Dumper;
+ bless { schema => $args->{schema} }, $class;
+}
+
+sub schema { shift->{schema} };
sub structure {
my ($self, $root, $test_str) = @_;
@@ -46,9 +43,4 @@ sub structure {
}
}
-
-# This speeds up the code and must be at the end of the package
-no Moose;
-__PACKAGE__->meta->make_immutable;
-
1;
Please sign in to comment.
Something went wrong with that request. Please try again.