blob: 11a25cbb8be7d8429b0929601fea8365ec6b552f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
package Tree::Transform::XSLTish::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;
|