From 9c5e82a80749e8ade58bab3efc599d0cd0b99948 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Thu, 19 Mar 2009 14:41:30 +0100 Subject: the great renaming, part 1 --- lib/Tree/Transform/Utils.pm | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 lib/Tree/Transform/Utils.pm (limited to 'lib/Tree/Transform/Utils.pm') diff --git a/lib/Tree/Transform/Utils.pm b/lib/Tree/Transform/Utils.pm deleted file mode 100644 index cdc58f7..0000000 --- a/lib/Tree/Transform/Utils.pm +++ /dev/null @@ -1,21 +0,0 @@ -package Tree::Transform::Utils; -use strict; -use warnings; -use Class::MOP; - -my $RULES_NAME='%_tree_transform_rules'; - -sub _rules_store { - my $pack=Class::MOP::Class->initialize($_[0]); - - if (! $pack->has_package_symbol($RULES_NAME) ) { - $pack->add_package_symbol($RULES_NAME,{}); - } - return $pack->get_package_symbol($RULES_NAME); -} - -sub _get_inheritance { - return Class::MOP::Class->initialize($_[0])->class_precedence_list; -} - -1; -- cgit v1.2.3