At last!

Following your suggestions I first had to refactorise it into this to avoid compilation error from redefining $coderef:

                my $coderef = $self -> { CALLBACK }{ ALL } || $self ->
+ { CALLBACK }{ TAG }{ $tag };
                defined( $coderef ) and $coderef -> ( $tref );
[download]

But as soon as I ran that the program worked as supposed to immediately. Thanks very much!