diff options
Diffstat (limited to 'lib/Tree/Transform/Utils.pm')
-rw-r--r-- | lib/Tree/Transform/Utils.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Tree/Transform/Utils.pm b/lib/Tree/Transform/Utils.pm index d8786dd..f2b2d6b 100644 --- a/lib/Tree/Transform/Utils.pm +++ b/lib/Tree/Transform/Utils.pm @@ -10,4 +10,12 @@ sub _rules_store { return *{$_[0].'::_tree_transform_rules'}{HASH}; } +sub _get_isa { + no strict 'refs'; + if (!defined *{$_[0].'::ISA'}{ARRAY}) { + return (); + } + return @{*{$_[0].'::ISA'}{ARRAY}}; +} + 1; |