diff options
author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-19 14:42:47 +0100 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-19 14:42:47 +0100 |
commit | b8ea246d267928ff4673069655467e9f4ca0585e (patch) | |
tree | 9e694bfe52d38cbc7d63edfbaf1c9fafe6fe9341 /lib/Tree/Transform/XSLTish/Transformer.pm | |
parent | the great renaming, part 1 (diff) | |
download | Tree-Transform-XSLTish-b8ea246d267928ff4673069655467e9f4ca0585e.tar.gz Tree-Transform-XSLTish-b8ea246d267928ff4673069655467e9f4ca0585e.tar.bz2 Tree-Transform-XSLTish-b8ea246d267928ff4673069655467e9f4ca0585e.zip |
the great renaming, part 2renaming
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Transformer.pm')
-rw-r--r-- | lib/Tree/Transform/XSLTish/Transformer.pm | 24 |
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)=@_; |