call by name

1 files changed, 10 insertions, 2 deletions

diff --git a/lib/Tree/Transform.pm b/lib/Tree/Transform.pm
index febd8e3..bf3d18b 100644
--- a/lib/Tree/Transform.pm
+++ b/lib/Tree/Transform.pm
@@ -5,6 +5,7 @@ use Sub::Exporter;
 use Params::Validate ':all';
 use Tree::Transform::Utils;
 use Tree::Transform::Transformer;
+use Carp::Clan qw(^Tree::Transform);
 
 our $VERSION='0.1';
 
@@ -36,12 +37,19 @@ 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);
 
-    push @{$store->{by_match}},\%args;
+    if ($args{match}) {
+        push @{$store->{by_match}},\%args;
+    }
     if ($args{name}) {
-        push @{$store->{by_name}{$args{name}}},\%args;
+        if (exists $store->{by_name}{$args{name}}) {
+            carp "Duplicate rule named $args{name}, ignoring";
+            return;
+        }
+        $store->{by_name}{$args{name}}=\%args;
     }
 
     return;