1357==>b if ($self->{TT}->call_category($key) != undef)
1358        {
1359            # Do something, never reached
1360        }

##</code><code>##

use Data::Dumper;
print Dumper $key
$VAR1 = 'AN-AM-BA';

##</code><code>##

print Dumper $self->{TT}->call_category
$VAR1 = {
          'DU-EX-TA' => 16,
          '*-CM-*' => 145,
          # Lots more, but not the value of $key.
          '*-VY-*' => 132
        };

##</code><code>##

print Dumper $self->{TT}->call_category($key)
$VAR1 = undef;

##</code><code>##

n
Not a CODE reference at ...