X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FOp%2FCallRule.pm;h=f3d1b4fe47780d084782539aab9215639bc3de71;hb=71217e421021100f3b07945357bd2fdaac638c4b;hp=e5dbb48462b35930fdaca57af6b6ae52afac8dbf;hpb=5ef4d923edc14eadf67d64e92001f2f7bfa63986;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Op/CallRule.pm b/lib/DX/Op/CallRule.pm
index e5dbb48..f3d1b4f 100644
--- a/lib/DX/Op/CallRule.pm
+++ b/lib/DX/Op/CallRule.pm
@@ -17,6 +17,7 @@ has full_name => (is => 'lazy', builder => sub {
 
 sub run {
   my ($self, $state) = @_;
+#warn "Call: ".$self->full_name;
   my @args = map $self->_expand_argspec($state, $_), @{$self->rule_args};
   my @rules = @{$state->rule_set->rules->{$self->full_name}||[]};
   die "No rules for ${\$self->full_name}" unless @rules;