summaryrefslogtreecommitdiff
path: root/lib/Tree/Transform/XSLTish/Transformer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Transformer.pm')
-rw-r--r--lib/Tree/Transform/XSLTish/Transformer.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/Tree/Transform/XSLTish/Transformer.pm b/lib/Tree/Transform/XSLTish/Transformer.pm
index 95448af..2f8fc52 100644
--- a/lib/Tree/Transform/XSLTish/Transformer.pm
+++ b/lib/Tree/Transform/XSLTish/Transformer.pm
@@ -1,18 +1,18 @@
-package Tree::Transform::Transformer;
+package Tree::Transform::XSLTish::Transformer;
use Moose;
use MooseX::AttributeHelpers;
use Params::Validate ':all';
-use Tree::Transform::Utils;
-use Tree::Transform::Context;
+use Tree::Transform::XSLTish::Utils;
+use Tree::Transform::XSLTish::Context;
use Tree::XPathEngine;
-use Carp::Clan qw(^Tree::Transform);
+use Carp::Clan qw(^Tree::Transform::XSLTish);
has 'rules_package' => (is => 'ro', isa => 'ClassName');
has 'context_stack' => (
metaclass => 'Collection::Array',
is => 'rw',
- isa => 'ArrayRef[Tree::Transform::Context]',
+ isa => 'ArrayRef[Tree::Transform::XSLTish::Context]',
default => sub { [] },
provides => {
last => 'context',
@@ -47,9 +47,9 @@ sub apply_rules {
@nodes=$self->it->xpath_get_child_nodes();
};
- my $guard=Tree::Transform::ContextGuard->new
+ my $guard=Tree::Transform::XSLTish::ContextGuard->new
($self,
- Tree::Transform::Context->new(node_list=>\@nodes)
+ Tree::Transform::XSLTish::Context->new(node_list=>\@nodes)
);
my @ret;
@@ -85,7 +85,7 @@ sub call_rule {
sub find_rule {
my ($self,$context)=@_;
- for my $pack (Tree::Transform::Utils::_get_inheritance
+ for my $pack (Tree::Transform::XSLTish::Utils::_get_inheritance
($self->rules_package)) {
my $ret=$self->find_rule_in_package($pack,$context);
return $ret if $ret;
@@ -97,7 +97,7 @@ sub find_rule {
sub find_rule_by_name {
my ($self,$name,$context)=@_;
- for my $pack (Tree::Transform::Utils::_get_inheritance
+ for my $pack (Tree::Transform::XSLTish::Utils::_get_inheritance
($self->rules_package)) {
my $ret=$self->find_rule_by_name_in_package($pack,$name,$context);
return $ret if $ret;
@@ -111,7 +111,7 @@ sub find_rule_in_package {
$context||=$self->context;
- my $store=Tree::Transform::Utils::_rules_store($package);
+ my $store=Tree::Transform::XSLTish::Utils::_rules_store($package);
my $rules=$store->{by_match};
@@ -133,7 +133,7 @@ sub find_rule_by_name_in_package {
$context||=$self->context;
- my $store=Tree::Transform::Utils::_rules_store($package);
+ my $store=Tree::Transform::XSLTish::Utils::_rules_store($package);
my $rules=$store->{by_name};
@@ -170,7 +170,7 @@ sub rule_matches {
__PACKAGE__->meta->make_immutable;no Moose;
-package Tree::Transform::ContextGuard;
+package Tree::Transform::XSLTish::ContextGuard;
sub new {
my ($class,$trans,$context)=@_;