Когда я должен использовать АВТОЗАГРУЗКУ Perl?

В "Лучших практиках Perl" самая первая строка в разделе по АВТОЗАГРУЗКЕ:

Не используйте АВТОЗАГРУЗКУ

Однако все случаи, которые он описывает, имеют дело с OO или Модулями.

У меня есть одинокий сценарий, в котором, некоторое управление переключателями командной строки который определяются версии конкретных функций. Теперь я знаю, что мог просто взять условные выражения и evals и засунуть их явный наверху моего файла перед всем остальным, но я нахожу это удобным и более чистым для помещения их в АВТОЗАГРУЗКУ в конце файла.

Эта плохая практика / стиль? Если Вы думаете итак, почему, и там другой способ сделать это?

Согласно запросу brian

Я в основном использую это, чтобы сделать условную компиляцию на основе переключателей командной строки.

Я не возражаю против некоторой конструктивной критики.

sub AUTOLOAD {
    our $AUTOLOAD;

    (my $method = $AUTOLOAD) =~ s/.*:://s; # remove package name
    if ($method eq 'tcpdump' && $tcpdump) {
        eval q(
        sub tcpdump {
            my $msg = shift;
            warn gf_time()." Thread ".threads->tid().": $msg\n";
        }
        );
    } elsif ($method eq 'loginfo' && $debug) {
        eval q(
        sub loginfo {
            my $msg = shift;
            $msg =~ s/$CRLF/\n/g;
            print gf_time()." Thread ".threads->tid().": $msg\n";
        }
        );
    } elsif ($method eq 'build_get') {
        if ($pipelining) {
            eval q(
            sub build_get {
                my $url = shift;
                my $base = shift;
                $url = "http://".$url unless $url =~ /^http/;
                return "GET $url HTTP/1.1${CRLF}Host: $base$CRLF$CRLF";
            }    
            );
        } else {
            eval q( 
            sub build_get {
                my $url = shift;
                my $base = shift;
                $url = "http://".$url unless $url =~ /^http/;
                return "GET $url HTTP/1.1${CRLF}Host: $base${CRLF}Connection: close$CRLF$CRLF";
            }    
            );
        }    
    } elsif ($method eq 'grow') {
        eval q{ require Convert::Scalar qw(grow); };
        if ($@) {
            eval q( sub grow {} );
        }
        goto &$method;
    } else {
        eval "sub $method {}";
        return;
    }
    die $@ if $@;
    goto &$method;
}