diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Tree/Transform.pm | 13 |
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 }, |