From 2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Wed, 18 Mar 2009 16:10:05 +0100
Subject: default rules

---
 lib/Tree/Transform.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'lib/Tree/Transform.pm')

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 },
-- 
cgit v1.2.3