diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-19 14:45:23 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-19 14:45:23 +0100 |
| commit | 8abf3c4080812b0295bbd9b3f658f77d60d76f22 (patch) | |
| tree | 9e694bfe52d38cbc7d63edfbaf1c9fafe6fe9341 /lib/Tree/Transform/Utils.pm | |
| parent | the great renaming (diff) | |
| parent | the great renaming, part 2 (diff) | |
| download | Tree-Transform-XSLTish-8abf3c4080812b0295bbd9b3f658f77d60d76f22.tar.gz Tree-Transform-XSLTish-8abf3c4080812b0295bbd9b3f658f77d60d76f22.tar.bz2 Tree-Transform-XSLTish-8abf3c4080812b0295bbd9b3f658f77d60d76f22.zip | |
renaming merge
Diffstat (limited to 'lib/Tree/Transform/Utils.pm')
| -rw-r--r-- | lib/Tree/Transform/Utils.pm | 21 |
1 files changed, 0 insertions, 21 deletions
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; |