summaryrefslogtreecommitdiff
path: root/lib/Tree/Transform.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Tree/Transform.pm')
-rw-r--r--lib/Tree/Transform.pm13
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/Tree/Transform.pm b/lib/Tree/Transform.pm
index d130c3b..febd8e3 100644
--- a/lib/Tree/Transform.pm
+++ b/lib/Tree/Transform.pm
@@ -9,13 +9,24 @@ use Tree::Transform::Transformer;
our $VERSION='0.1';
Sub::Exporter::setup_exporter({
- exports => [qw(tree_rule new_transformer)],
+ exports => [qw(tree_rule default_rules new_transformer)],
groups => {
default => [ 'tree_rule',
+ 'default_rules',
'new_transformer' => {-as => 'new'} ],
}
});
+sub default_rules {
+ my $store=Tree::Transform::Utils::_rules_store(scalar caller);
+
+ push @{$store->{by_match}},
+ {match=> '/',priority=>0,action=>sub { $_[0]->apply_rules } },
+ {match=> '*',priority=>0,action=>sub { $_[0]->apply_rules } },
+ ;
+ return;
+}
+
sub tree_rule {
my (%args)=validate(@_, {
match => { type => SCALAR, optional => 1 },