diff options
author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:23:41 +0100 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:23:41 +0100 |
commit | 6ddc252f223ef602992ccdc647eab293c7ca1112 (patch) | |
tree | 3ff53f4faeba28a6f78e6c51ab37032fe5f2f8e2 /lib/Tree/Transform/Utils.pm | |
parent | default rules (diff) | |
download | Tree-Transform-XSLTish-6ddc252f223ef602992ccdc647eab293c7ca1112.tar.gz Tree-Transform-XSLTish-6ddc252f223ef602992ccdc647eab293c7ca1112.tar.bz2 Tree-Transform-XSLTish-6ddc252f223ef602992ccdc647eab293c7ca1112.zip |
inheritance
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; |