From b8ea246d267928ff4673069655467e9f4ca0585e Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Thu, 19 Mar 2009 14:42:47 +0100 Subject: the great renaming, part 2 --- lib/Tree/Transform/XSLTish.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'lib/Tree/Transform/XSLTish.pm') diff --git a/lib/Tree/Transform/XSLTish.pm b/lib/Tree/Transform/XSLTish.pm index bf3d18b..390616f 100644 --- a/lib/Tree/Transform/XSLTish.pm +++ b/lib/Tree/Transform/XSLTish.pm @@ -1,11 +1,11 @@ -package Tree::Transform; +package Tree::Transform::XSLTish; use strict; use warnings; use Sub::Exporter; use Params::Validate ':all'; -use Tree::Transform::Utils; -use Tree::Transform::Transformer; -use Carp::Clan qw(^Tree::Transform); +use Tree::Transform::XSLTish::Utils; +use Tree::Transform::XSLTish::Transformer; +use Carp::Clan qw(^Tree::Transform::XSLTish); our $VERSION='0.1'; @@ -19,7 +19,7 @@ Sub::Exporter::setup_exporter({ }); sub default_rules { - my $store=Tree::Transform::Utils::_rules_store(scalar caller); + my $store=Tree::Transform::XSLTish::Utils::_rules_store(scalar caller); push @{$store->{by_match}}, {match=> '/',priority=>0,action=>sub { $_[0]->apply_rules } }, @@ -39,7 +39,7 @@ sub tree_rule { # TODO at least one of 'name' and 'match' must be specified # TODO default priority mased on match - my $store=Tree::Transform::Utils::_rules_store(scalar caller); + my $store=Tree::Transform::XSLTish::Utils::_rules_store(scalar caller); if ($args{match}) { push @{$store->{by_match}},\%args; @@ -55,7 +55,7 @@ sub tree_rule { return; } -sub _transformer_class { 'Tree::Transform::Transformer' }; +sub _transformer_class { 'Tree::Transform::XSLTish::Transformer' }; sub new_transformer { my ($rules_package)=@_; @@ -68,7 +68,7 @@ __END__ =head1 NAME -Tree::Transform - transform tree data, like XSLT but in Perl +Tree::Transform::XSLTish - transform tree data, like XSLT but in Perl =head1 AUTHOR -- cgit v1.2.3