sub _call_hook {
    my $name = shift;
    my $file = shift; # line 123
    my $detach = shift;
    ...