diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:10:05 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:10:05 +0100 |
| commit | 2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0 (patch) | |
| tree | a9ee6c4eaa068134dca9018b025cad6bf8f125bf /lib | |
| parent | passes the first test! (diff) | |
| download | Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.tar.gz Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.tar.bz2 Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.zip | |
default rules
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 }, |