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