blob: f2b2d6b8dc868a3d55b25c7676cdfa612d75312a (
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::Utils; use strict; use warnings; sub _rules_store { no strict 'refs'; if (!defined *{$_[0].'::_tree_transform_rules'}{HASH}) { *{$_[0].'::_tree_transform_rules'}={}; } return *{$_[0].'::_tree_transform_rules'}{HASH}; } sub _get_isa { no strict 'refs'; if (!defined *{$_[0].'::ISA'}{ARRAY}) { return (); } return @{*{$_[0].'::ISA'}{ARRAY}}; } 1;
|