Select Code to Download

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

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

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

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

n
Not a CODE reference at ...