| line |
true |
false |
branch |
|
18
|
1 |
0 |
$] >= 5.01 ? : |
|
334
|
0 |
0 |
unless -e "$path$_[0]" |
|
344
|
0 |
0 |
unless -e "$path$_[0]" or -e "$cwd/$INC[0]/$_[0]" |
|
346
|
0 |
0 |
if ($@) { } |
|
414
|
1 |
0 |
unless ($@) |
|
418
|
0 |
1 |
unless (exists $INC{'Term/Menus.pm'}) |
|
421
|
0 |
0 |
if (-e $f . '/Term/Menus.pm') |
|
497
|
0 |
1 |
if (defined caller 2 and index(caller 2, "FullAuto") != -1) |
|
500
|
0 |
0 |
if ($main::fa_code and $main::fa_conf and $main::fa_host and $main::fa_menu) { } |
|
502
|
0 |
0 |
unless (exists $INC{'Net/FullAuto.pm'}) |
|
505
|
0 |
0 |
if (-e $f . '/Net/FullAuto.pm') |
|
515
|
0 |
0 |
if (-f $fa_path . '/fa_global.pm') |
|
516
|
0 |
0 |
if (-r $fa_path . '/fa_global.pm') { } |
|
522
|
0 |
0 |
if (exists $fa_global::FA_Sudo->{$username}) |
|
525
|
0 |
0 |
if ($fa_global::berkeley_db_path and -d $fa_global::berkeley_db_path . 'Defaults') |
|
531
|
0 |
0 |
unless my $dbenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . 'Defaults', "-Flags", "DB_K^MU_OTOOL") |
|
537
|
0 |
0 |
grep({/^--test$/;} @ARGV) ? : |
|
543
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
549
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
554
|
0 |
0 |
if (exists $ENV{'SSH_CONNECTION'} and exists $ENV{'USER'} and $ENV{'USER'} ne $username) { } |
|
|
0 |
0 |
elsif ($username eq 'SYSTEM' and exists $ENV{'IWUSER'} and $ENV{'IWUSER'} ne $username) { } |
|
|
0 |
0 |
elsif (grep {/--login/;} @ARGV) { } |
|
564
|
0 |
0 |
if ($login_flag) { } |
|
|
0 |
0 |
elsif (lc $argv eq '--login') { } |
|
571
|
0 |
0 |
unless $login_flag |
|
576
|
0 |
0 |
if ($login_flag) { } |
|
|
0 |
0 |
elsif (lc $argv eq '--login') { } |
|
584
|
0 |
0 |
if $bdb |
|
587
|
0 |
0 |
if index($default_modules, "\$HASH") != -1 |
|
592
|
0 |
0 |
if ($data_dump_streamer) |
|
594
|
0 |
0 |
if ($mod eq "set") |
|
595
|
0 |
0 |
if ($default_modules->{'set'} ne 'none') { } |
|
600
|
0 |
0 |
unless (&$Term::Menus::filechk($default_modules->{$mod})) |
|
607
|
0 |
0 |
if ($save_defaults_for_user_flag) { } |
|
610
|
0 |
0 |
if $bdb |
|
613
|
0 |
0 |
if $bdb |
|
620
|
0 |
0 |
do {
$default_modules->{'set'} ne 'none' if exists $default_modules->{'set'}
} ? : |
|
|
0 |
0 |
keys %{$default_modules;} ? : |
|
630
|
0 |
0 |
if exists $default_modules->{'set'} |
|
634
|
0 |
0 |
unless my $stenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . 'Sets', "-Flags", "DB_K^MU_OTOOL") |
|
645
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
651
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
661
|
0 |
0 |
if index($set, "\$HASH") != -1 |
|
682
|
0 |
0 |
if (exists $default_modules->{'fa_code'}) |
|
687
|
0 |
0 |
if (exists $default_modules->{'fa_conf'}) |
|
692
|
0 |
0 |
if (exists $default_modules->{'fa_host'}) |
|
697
|
0 |
0 |
if (exists $default_modules->{'fa_menu'}) |
|
717
|
0 |
0 |
if (index($aa, '--fa_') != -1) { } |
|
|
0 |
0 |
elsif (index($aa, '--set') != -1) { } |
|
720
|
0 |
0 |
if (index($v, '--fa_') != -1) { } |
|
728
|
0 |
0 |
if (index($v, '--') != -1) { } |
|
737
|
0 |
0 |
if (exists $A{$e}) |
|
739
|
0 |
0 |
if ($e eq 'set') { } |
|
|
0 |
0 |
elsif ($e eq 'code') { } |
|
|
0 |
0 |
elsif ($e eq 'menu') { } |
|
|
0 |
0 |
elsif ($e eq 'host') { } |
|
|
0 |
0 |
elsif ($e eq 'conf') { } |
|
745
|
0 |
0 |
if (-f $fa_path . '/fa_global.pm') { } |
|
746
|
0 |
0 |
unless my $stenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . 'Sets', "-Flags", "DB_K^MU_OTOOL") |
|
757
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
763
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
773
|
0 |
0 |
if index($set, "\$HASH") != -1 |
|
818
|
0 |
0 |
if (defined $main::fa_code and $main::fa_code) |
|
825
|
0 |
0 |
if (defined $main::fa_conf and $main::fa_conf) |
|
831
|
0 |
0 |
if (defined $main::fa_host and $main::fa_host) |
|
837
|
0 |
0 |
if (defined $main::fa_menu and $main::fa_menu) |
|
858
|
0 |
0 |
if $Term::Menus::fa_code->[0] and index($Term::Menus::fa_code->[0], "Net/FullAuto") == -1 |
|
864
|
0 |
0 |
unless (map {/$rx/;} @ARGV) |
|
865
|
0 |
0 |
if ($Term::Menus::fa_code->[0]) { } |
|
866
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_code->[0])) { } |
|
885
|
0 |
0 |
if $Term::Menus::fa_conf->[0] and index($Term::Menus::fa_conf->[0], "Net/FullAuto") == -1 |
|
888
|
0 |
0 |
unless ($argv =~ /--edit |^-e[a-z]|--cat /) |
|
889
|
0 |
0 |
if ($Term::Menus::fa_conf->[0]) { } |
|
890
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_conf->[0])) { } |
|
909
|
0 |
0 |
if $Term::Menus::fa_host->[0] and index($Term::Menus::fa_host->[0], "Net/FullAuto") == -1 |
|
912
|
0 |
0 |
unless ($argv =~ /--edit |^-e[a-z]/) |
|
913
|
0 |
0 |
if ($Term::Menus::fa_host->[0]) { } |
|
914
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_host->[0])) { } |
|
933
|
0 |
0 |
if $Term::Menus::fa_menu->[0] and index($Term::Menus::fa_menu->[0], "Net/FullAuto") == -1 |
|
936
|
0 |
0 |
if (not $argv =~ /--edit |^-e[a-z]/) |
|
937
|
0 |
0 |
if ($Term::Menus::fa_menu->[0]) { } |
|
938
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_menu->[0])) { } |
|
1059
|
0 |
0 |
if (not $m_flag and -f "$dir/$Term::Menus::fa_menu") |
|
1064
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1065
|
0 |
0 |
if (not exists $menudups{$1}) { } |
|
1073
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1074
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1081
|
0 |
0 |
if (not $s_flag and -f "$dir/$Term::Menus::fa_code") |
|
1086
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1087
|
0 |
0 |
if (not exists $dups{$1}) { } |
|
1096
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1097
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1106
|
0 |
0 |
if ($Term::Menus::fullauto) |
|
1108
|
0 |
0 |
if (eval "\\%$symname") |
|
1111
|
0 |
0 |
if (ref $hashref->{$key} eq "HASH") |
|
1113
|
0 |
0 |
if (lc $ky eq "text") |
|
1150
|
0 |
0 |
if $cache |
|
1151
|
0 |
0 |
unless $cache |
|
1156
|
0 |
0 |
if $to |
|
1157
|
0 |
0 |
if ($code) { } |
|
|
0 |
0 |
elsif (ref $start_menu_ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($start_menu_ref) { } |
|
1160
|
0 |
0 |
unless (keys %LookUpMenuName) |
|
1163
|
0 |
0 |
if ($Net::FullAuto::FA_Core::plan) |
|
1166
|
0 |
0 |
if $@ |
|
1201
|
0 |
0 |
if ($@) |
|
1203
|
0 |
0 |
if $code |
|
1208
|
0 |
0 |
if $returned |
|
1218
|
0 |
0 |
if ($Term::Menus::fullauto and defined $Net::FullAuto::FA_Core::service and $Net::FullAuto::FA_Core::service) |
|
1224
|
0 |
0 |
unless chdir "/" |
|
1226
|
0 |
0 |
unless open STDIN, "/dev/null" |
|
1227
|
0 |
0 |
unless open STDOUT, ">/dev/null" |
|
1228
|
0 |
0 |
unless open STDERR, ">/dev/null" |
|
1229
|
0 |
0 |
unless defined(my $pid = fork) |
|
1230
|
0 |
0 |
if $pid |
|
1231
|
0 |
0 |
unless $pid = &setsid |
|
1236
|
0 |
0 |
defined $_[1] ? : |
|
1237
|
0 |
0 |
if $Term::Menus::fa_code |
|
1242
|
0 |
0 |
if $@ |
|
1256
|
0 |
0 |
if $map_count < $count |
|
1277
|
0 |
0 |
if (10 < length $_[0] and unpack('a11', $_[0]) eq 'FATAL ERROR') { } |
|
1278
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1291
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1296
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1306
|
0 |
0 |
unless $banner |
|
1310
|
0 |
0 |
defined $_[4] ? : |
|
1316
|
0 |
0 |
if (ref $banner eq 'CODE') { } |
|
|
0 |
0 |
elsif (keys %{$Conveyed;} or $picks_from_parent) { } |
|
1318
|
0 |
0 |
if ($data_dump_streamer) |
|
1338
|
0 |
0 |
if ($@) |
|
1339
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1340
|
0 |
0 |
if (wantarray) |
|
1343
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1348
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1352
|
0 |
0 |
if (wantarray) |
|
1355
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1360
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1372
|
0 |
0 |
if ($banner and ($banner =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) and defined $picks_from_parent and not ref $picks_from_parent) |
|
1377
|
0 |
0 |
if (not $banner =~ /::/) { } |
|
1401
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Select'}) { } |
|
1402
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Select'} and $MenuUnit_hash_ref->{'Select'} and $MenuUnit_hash_ref->{'Select'} =~ /many/i) { } |
|
|
0 |
0 |
elsif (exists $MenuUnit_hash_ref->{'Select'} and $MenuUnit_hash_ref->{'Select'} and $MenuUnit_hash_ref->{'Select'} =~ /one/i) { } |
|
1417
|
0 |
0 |
if ($picks_from_parent and index($picks_from_parent, "*") != -1) |
|
1422
|
0 |
0 |
if ($picks_from_parent =~ /\](Cron|Batch|Unattended|FullAuto)\[/i) |
|
1426
|
0 |
0 |
defined $_[2] ? : |
|
1427
|
0 |
0 |
defined $_[3] ? : |
|
1428
|
0 |
0 |
defined $_[4] ? : |
|
1429
|
0 |
0 |
defined $_[5] ? : |
|
1430
|
0 |
0 |
defined $_[6] ? : |
|
1431
|
0 |
0 |
defined $_[7] ? : |
|
1432
|
0 |
0 |
defined $_[8] ? : |
|
1433
|
0 |
0 |
defined $_[9] ? : |
|
1434
|
0 |
0 |
defined $_[10] ? : |
|
1437
|
0 |
0 |
if (defined $_[11] and $_[11] or (caller)[0] ne __PACKAGE__ and not wantarray) |
|
1441
|
0 |
0 |
if (defined $_[12] and $_[12]) |
|
1444
|
0 |
0 |
if (defined $_[13] and $_[13]) |
|
1455
|
0 |
0 |
if (4 < length $key and substr($key, 0, 4) eq "Item") |
|
1459
|
0 |
0 |
if $unattended |
|
1461
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
1474
|
0 |
0 |
if (exists $Items{$num}) { } |
|
1475
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Banner'} and not $got_item_flag) { } |
|
1481
|
0 |
0 |
if (exists $Items{$num}{'Negate'} and not keys %{$$MenuUnit_hash_ref{"Select"};}) |
|
1486
|
0 |
0 |
if $Term::Menus::fullauto |
|
1491
|
0 |
0 |
if (exists $Items{$num}{'Convey'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
1493
|
0 |
0 |
if (ref $Items{$num}{'Convey'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $Items{$num}{'Convey'} eq 'CODE') { } |
|
|
0 |
0 |
elsif ($convey_test =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) { } |
|
1499
|
0 |
0 |
if ($data_dump_streamer) |
|
1512
|
0 |
0 |
if ref $convey[0] eq "ARRAY" |
|
1513
|
0 |
0 |
if ($@) |
|
1514
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1515
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1520
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1525
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1535
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1540
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
1545
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1550
|
0 |
0 |
if (0 == $#convey and $convey[0] =~ /^(?:[{](.*)[}])?[<]$/) |
|
1555
|
0 |
0 |
if (defined $picks_from_parent and not ref $picks_from_parent) |
|
1561
|
0 |
0 |
if (not $transformed_convey =~ /::/) { } |
|
1572
|
0 |
0 |
if $item =~ /^\s*$/s |
|
1578
|
0 |
0 |
if (index($text, "__Master_${$}__") != -1) |
|
1583
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/) { } |
|
1584
|
0 |
0 |
if ($text =~ /$Items{$num}{'Include'}/s) { } |
|
1586
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/ |
|
1597
|
0 |
0 |
if (exists $Items{$num}{'Convey'} and $Items{$num}{'Convey'} ne '') { } |
|
|
0 |
0 |
elsif (not exists $Items{$num}{'Convey'}) { } |
|
1604
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1607
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1608
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1617
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1618
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1621
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1623
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1625
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1629
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) |
|
1636
|
0 |
0 |
if (index($Items{$num}{'Text'}, "__Master_${$}__") != -1) |
|
1642
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/) { } |
|
1643
|
0 |
0 |
if ($Items{$num}{'Text'} =~ /$Items{$num}{'Include'}/) { } |
|
1645
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/ |
|
1653
|
0 |
0 |
if exists $Items{$num}{'Convey'} |
|
1655
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1657
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1658
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1667
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1668
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1671
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1673
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1675
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1678
|
0 |
0 |
if exists $Items{$num}{'__NUM__'} |
|
1687
|
0 |
0 |
if exists $_[0]{'Display'} |
|
1689
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and ref $MenuUnit_hash_ref->{'Scroll'} ne "ARRAY") |
|
1699
|
0 |
0 |
if defined $FullMenu->{$MenuUnit_hash_ref}[5] |
|
1700
|
0 |
0 |
keys %num__ ? : |
|
1705
|
0 |
0 |
if ($select_many or keys %{$$MenuUnit_hash_ref{'Select'};}) { } |
|
1719
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1725
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1728
|
0 |
0 |
if ($pick eq ']quit[') { } |
|
|
0 |
0 |
elsif ($pick eq '-' or $pick eq '+') { } |
|
|
0 |
0 |
elsif ($pick =~ /DONE/) { } |
|
|
0 |
0 |
elsif (ref $pick eq 'ARRAY' and wantarray and not $no_wantarray and 1 == $recurse) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
1738
|
0 |
0 |
if (ref $$pick[$#{$pick;}] eq "HASH") |
|
1761
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1768
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1771
|
0 |
0 |
if ($pick eq ']quit[') { } |
|
|
0 |
0 |
elsif ($pick eq '-' or $pick eq '+') { } |
|
|
0 |
0 |
elsif ($pick =~ /DONE/) { } |
|
|
0 |
0 |
elsif (ref $pick eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
1774
|
0 |
0 |
do {
keys %{$$Selected{$MenuUnit_hash_ref};} unless $select_many
} ? : |
|
|
0 |
0 |
keys %{$$SavePick{$MenuUnit_hash_ref};} ? : |
|
1777
|
0 |
0 |
unless $select_many |
|
1790
|
0 |
0 |
if (1 == $recurse and ref $$pick[$#{$pick;}] eq "HASH") |
|
1794
|
0 |
0 |
if (wantarray and 1 == $recurse) { } |
|
|
0 |
0 |
elsif (ref $pick eq 'ARRAY' and -1 < $#{$pick;} and $pick->[0] =~ /^[{](.*)[}][<]$/) { } |
|
|
0 |
0 |
elsif (not $picks_from_parent || keys %{$$MenuUnit_hash_ref{'Select'};}) { } |
|
1803
|
0 |
0 |
if (ref $topmenu eq 'HASH' and (keys %{$$topmenu{'Select'};} and $topmenu->{'Select'} eq 'Many') or ref $savpick eq 'HASH' and exists $topmenu->{'Select'}{(keys %{$savpick;})[0]}) { } |
|
|
0 |
0 |
elsif (-1 == $#{$pick;} and ref $topmenu eq 'HASH' and grep {/Item_/;} keys %{$topmenu;}) { } |
|
|
0 |
0 |
elsif (0 == $#{$pick;}) { } |
|
1806
|
0 |
0 |
if (wantarray) { } |
|
1821
|
0 |
0 |
if ($picks_from_parent) |
|
1837
|
0 |
0 |
if ref $_[0] eq "HASH" and exists $_[0]{'Name'} |
|
1839
|
0 |
0 |
if defined $_[1] and $_[1] |
|
1841
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
1852
|
0 |
0 |
if ($@) |
|
1859
|
0 |
0 |
if (ref $vars->{$key} eq "HASH" and %{$_[0];} eq %{$vars->{$key};}) |
|
1866
|
0 |
0 |
if ($@) |
|
1873
|
0 |
0 |
if $hash =~ /^_
|
|
1874
|
0 |
0 |
if $hash =~ /^Term::Menus::/ |
|
1875
|
0 |
0 |
if $hash =~ /^Config::/ |
|
1876
|
0 |
0 |
if $hash =~ /^DynaLoader::/ |
|
1877
|
0 |
0 |
if $hash =~ /^warnings::/ |
|
1878
|
0 |
0 |
if $hash =~ /^utf8::/ |
|
1879
|
0 |
0 |
if $hash =~ /^Carp::/ |
|
1880
|
0 |
0 |
if $hash =~ /^fields::attr/ |
|
1881
|
0 |
0 |
if $hash =~ /^Text::Balanced::/ |
|
1882
|
0 |
0 |
if $hash =~ /^Data::Dump::Streamer/ |
|
1883
|
0 |
0 |
if $hash =~ /^re::EXPORT_OK/ |
|
1884
|
0 |
0 |
if $hash =~ /^fa_code::email_addresses/ |
|
1885
|
0 |
0 |
if $hash =~ /^fa_code::email_defaults/ |
|
1886
|
0 |
0 |
if $hash =~ /^PadWalker::/ |
|
1887
|
0 |
0 |
if $hash =~ /^Fcntl::/ |
|
1888
|
0 |
0 |
if $hash =~ /^B::Utils::/ |
|
1889
|
0 |
0 |
if $hash =~ /^ExtUtils::/ |
|
1890
|
0 |
0 |
if $hash =~ /^Exporter::/ |
|
1891
|
0 |
0 |
if $hash =~ /^Moo::/ |
|
1892
|
0 |
0 |
if $hash =~ /^overload::/ |
|
1893
|
0 |
0 |
if $hash =~ /^Term::ReadKey::/ |
|
1894
|
0 |
0 |
if $hash =~ /^main::INC/ |
|
1895
|
0 |
0 |
if $hash =~ /^main::SIG/ |
|
1896
|
0 |
0 |
if $hash =~ /^main::ENV/ |
|
1897
|
0 |
0 |
if $hash =~ /^main[:][^\w]*$/ |
|
1898
|
0 |
0 |
if $hash =~ /^main::[\@]$/ |
|
1899
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::makeplan/ |
|
1900
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::admin_menus/ |
|
1903
|
0 |
0 |
if %test eq %{$_[0];} |
|
1904
|
0 |
0 |
if $name |
|
1911
|
0 |
0 |
if $name |
|
1914
|
0 |
0 |
if $name |
|
1919
|
0 |
0 |
if $name |
|
1937
|
0 |
0 |
if (ref $hashref_to_test eq 'HASH') { } |
|
1938
|
0 |
0 |
if (grep {/Item_/;} keys %{$hashref_to_test;}) { } |
|
|
0 |
0 |
elsif (exists $hashref_to_test->{'Input'} and $hashref_to_test->{'Input'}) { } |
|
|
0 |
0 |
elsif (not grep({/Item_/;} keys %{$hashref_to_test;} && grep({/Banner/;} keys %{$hashref_to_test;}))) { } |
|
2008
|
0 |
0 |
if ((index($text, "][[") != -1) and (index($text, "]][") != -1)) |
|
2009
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2027
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
2036
|
0 |
0 |
if (0 < $#pks and not $return_from_child_menu) { } |
|
2043
|
0 |
0 |
if ($expand_array_flag) |
|
2048
|
0 |
0 |
if (ref $pn eq 'HASH') { } |
|
|
0 |
0 |
elsif ($pn) { } |
|
2058
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2063
|
0 |
0 |
if $test_regx_flag |
|
2065
|
0 |
0 |
if index($regx, "(!)?t(?:") != -1 |
|
2071
|
0 |
0 |
if $text =~ /[)]\s*$/s |
|
2072
|
0 |
0 |
if ($menu) |
|
2073
|
0 |
0 |
if (index($menu, $current_menu_name) != -1) { } |
|
2102
|
0 |
0 |
if $test_regx_flag |
|
2104
|
0 |
0 |
if index($regx, "(!)?t(?:") != -1 |
|
2146
|
0 |
0 |
unless $input_text =~ /^\s*$/ |
|
2151
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2183
|
0 |
0 |
if $test_regx_flag |
|
2185
|
0 |
0 |
if index($regx, "(!)?t(?:") != -1 |
|
2202
|
0 |
0 |
if $#instructions == 2 |
|
2203
|
0 |
0 |
if ($#instructions == 1) |
|
2204
|
0 |
0 |
if (exists $$Conveyed{$instructions[0] . '_mbir'}) |
|
2220
|
0 |
0 |
defined $_[1] ? : |
|
2229
|
0 |
0 |
if ($ikey eq "TAB" and exists $input->{'focus'}) |
|
2235
|
0 |
0 |
if $test_regx_flag |
|
2237
|
0 |
0 |
unless exists $input->{'focus'} |
|
2239
|
0 |
0 |
if index($regx, "(!)?t(?:") != -1 |
|
2271
|
0 |
0 |
unless (exists $$input{$instructions[0]}) |
|
2276
|
0 |
0 |
unless defined $$input{$instructions[0]} |
|
2277
|
0 |
0 |
if ($fill_focus) |
|
2278
|
0 |
0 |
if (exists $input->{'focus'}) { } |
|
2280
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Focus'} and $MenuUnit_hash_ref->{'Focus'}) |
|
2296
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2299
|
0 |
0 |
if ($#instructions == 2 and $instructions[2] > 0) |
|
2300
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) { } |
|
2311
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) |
|
2312
|
0 |
0 |
if ($ikey eq 'BACKSPACE') { } |
|
|
0 |
0 |
elsif ($ikey eq 'DELETE') { } |
|
|
0 |
0 |
elsif ($ikey ne 'TAB' and defined $numbor) { } |
|
2319
|
0 |
0 |
if ($length_input > $length_box) |
|
2346
|
0 |
0 |
if ($#newtext == -1 or $#newtext == 0) { } |
|
2352
|
0 |
0 |
if length $front_of_box_top < $frlen |
|
2355
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$#newtext - 1]) |
|
2364
|
0 |
0 |
if ($#newtext == -1) { } |
|
2368
|
0 |
0 |
$#newtext == 0 ? : |
|
2370
|
0 |
0 |
unless ($newtext[$elem] =~ /^\s*$/) |
|
2372
|
0 |
0 |
if length $front_of_box_mid < $frlen |
|
2376
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$elem]) |
|
2385
|
0 |
0 |
if ($#newtext == -1) { } |
|
|
0 |
0 |
elsif ($#newtext == 0) { } |
|
2421
|
0 |
0 |
if ((index($text, "][[") != -1) and (index($text, "]][") != -1)) |
|
2422
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2442
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
2452
|
0 |
0 |
if $test_regx_flag |
|
2454
|
0 |
0 |
if index($regx, "(!)?t(?:") != -1 |
|
2460
|
0 |
0 |
unless (exists $Conveyed->{$1} or $bang or $test_regx_flag) |
|
2493
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
2498
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
2502
|
0 |
0 |
unless ($Conveyed->{$1}) |
|
2507
|
0 |
0 |
if (ref $replace) |
|
2512
|
0 |
0 |
if ($expand_array_flag) |
|
2516
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2520
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2523
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2524
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2531
|
0 |
0 |
if (ref $picks_from_parent eq 'ARRAY') { } |
|
2536
|
0 |
0 |
if ($expand_array_flag) { } |
|
|
0 |
0 |
elsif ($replace =~ /^.(?
|
|
2539
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2544
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2545
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2550
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2554
|
0 |
0 |
unless $text =~ /^&?(?:.*::)*(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2563
|
0 |
0 |
unless $esc_one |
|
2567
|
0 |
0 |
if (ref $replace) |
|
2572
|
0 |
0 |
if ($expand_array_flag) |
|
2612
|
0 |
0 |
defined $_[1] ? : |
|
2613
|
0 |
0 |
defined $_[2] ? : |
|
2614
|
0 |
0 |
defined $_[3] ? : |
|
2615
|
0 |
0 |
defined $_[4] ? : |
|
2618
|
0 |
0 |
defined $_[5] ? : |
|
2620
|
0 |
0 |
unless (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
2621
|
0 |
0 |
if (grep {/Banner/;} keys %{$MenuUnit_hash_ref;}) |
|
2626
|
0 |
0 |
defined $_[6] ? : |
|
2627
|
0 |
0 |
defined $_[7] ? : |
|
2628
|
0 |
0 |
defined $_[8] ? : |
|
2629
|
0 |
0 |
defined $_[9] ? : |
|
2630
|
0 |
0 |
defined $_[10] ? : |
|
2631
|
0 |
0 |
defined $_[11] ? : |
|
2632
|
0 |
0 |
defined $_[12] ? : |
|
2633
|
0 |
0 |
defined $_[13] ? : |
|
2634
|
0 |
0 |
defined $_[14] ? : |
|
2635
|
0 |
0 |
defined $_[15] ? : |
|
2636
|
0 |
0 |
defined $_[16] ? : |
|
2637
|
0 |
0 |
defined $_[17] ? : |
|
2638
|
0 |
0 |
defined $_[18] ? : |
|
2645
|
0 |
0 |
if ($name) { } |
|
2650
|
0 |
0 |
if ($SavePick and exists $SavePick->{$MenuUnit_hash_ref}) |
|
2668
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
2678
|
0 |
0 |
if ($_[1]) { } |
|
2682
|
0 |
0 |
if ($result) |
|
2687
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) { } |
|
2707
|
0 |
0 |
if ($_[1]) { } |
|
2709
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) { } |
|
2716
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) |
|
2720
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2725
|
0 |
0 |
if $output eq "+" |
|
2738
|
0 |
0 |
if ($seltext =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) { } |
|
|
0 |
0 |
elsif (ref $seltext eq 'CODE') { } |
|
2766
|
0 |
0 |
exists $MenuUnit_hash_ref->{'Select'} && $MenuUnit_hash_ref->{'Select'} ? : |
|
2767
|
0 |
0 |
unless $gotmany |
|
2768
|
0 |
0 |
if ($pick and exists $$FullMenu{$_[0]}[3]{$_[1][$pick - 1]}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
|
0 |
0 |
elsif ($_[3]) { } |
|
2769
|
0 |
0 |
if ($pick and exists $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Convey'}) |
|
2772
|
0 |
0 |
if (0 < $#{[keys %{$_[2];}];}) { } |
|
2784
|
0 |
0 |
if $convey eq "" |
|
2785
|
0 |
0 |
if (ref $convey eq "ARRAY" and $#{$convey;} == 0) |
|
2798
|
0 |
0 |
if not $convey or ref $convey eq "ARRAY" and $#{$convey;} == -1 |
|
2800
|
0 |
0 |
if (exists $$FullMenu{$_[0]}[2]{'__FA_Banner__'}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
2807
|
0 |
0 |
if ($pick and exists $$FullMenu{$_[0]}[2]{$_[1][$pick - 1]} and (ref $test_item eq "HASH" and (values %{$test_item;})[0] ne "recurse") or ref $test_item eq "CODE") |
|
2812
|
0 |
0 |
if (ref $test_item eq 'HASH' and grep({/Item_/;} keys %{$test_item;}) || $show_banner_only && grep({/Banner/;} keys %{$test_item;}) or $test_item =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code) or ref $test_item eq 'CODE' or &test_hashref($test_item)) { } |
|
2833
|
0 |
0 |
if ($test_item =~ /$con_regex|$pmsi_regex|
$amlm_regex|$sicm_regex|$tpmi_regex|$tbii_regex/x) { } |
|
|
0 |
0 |
elsif (ref $test_item eq 'CODE') { } |
|
2866
|
0 |
0 |
if ($@) |
|
2867
|
0 |
0 |
if (unpack('a11', $@) eq 'FATAL ERROR') { } |
|
2868
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
2880
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
2885
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($Term::Menus::fullauto) { } |
|
2894
|
0 |
0 |
$show_banner_only ? : |
|
2899
|
0 |
0 |
if ($test_item =~ /Convey\s*=\>/) |
|
2900
|
0 |
0 |
if ($convey ne 'SKIP') { } |
|
2906
|
0 |
0 |
if ($test_item =~ /Text\s*=\>/) |
|
2923
|
0 |
0 |
if ($show_banner_only) { } |
|
2927
|
0 |
0 |
if $pick |
|
2928
|
0 |
0 |
if $pick |
|
2929
|
0 |
0 |
if ($pick and ref $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Result'} eq "HASH") |
|
2941
|
0 |
0 |
if ($num_pick - $start <= $display_this_many_items) { } |
|
2947
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref} |
|
2948
|
0 |
0 |
if (not exists $Persists->{$MenuUnit_hash_ref}{'defaults'} and defined do {
[keys %{$$FullMenu{$MenuUnit_hash_ref}[5];}]
}->[0]) |
|
2952
|
0 |
0 |
if ($def) |
|
2953
|
0 |
0 |
if $def eq "*" |
|
2956
|
0 |
0 |
if ($item =~ /$def/) |
|
2963
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref}{'defaults'} |
|
2965
|
0 |
0 |
if (ref $Net::FullAuto::FA_Core::plan eq "HASH") |
|
2969
|
0 |
0 |
if (substr($plannn, 2, 5) eq 'ARRAY') { } |
|
2972
|
0 |
0 |
if $@ |
|
2996
|
0 |
0 |
if $numbor eq "admin" |
|
2998
|
0 |
0 |
if (exists $picks{$picknum}) { } |
|
3000
|
0 |
0 |
if ($return_from_child_menu) { } |
|
3012
|
0 |
0 |
$select_many || keys %{$$MenuUnit_hash_ref{'Select'};} ? : |
|
3013
|
0 |
0 |
if ($gotmany and $numbor =~ /^[Ff]$/ or $picks{$picknum} ne "+" and $picks{$picknum} ne "-" and not $gotmany) |
|
3021
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$picknum - 1]} and ref $FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$picknum - 1]} eq "HASH" and grep {/Item_/;} keys %{$$FullMenu{$MenuUnit_hash_ref}[3];}) |
|
3027
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[3]{$all_menu_items_array[$picknum - 1]}) { } |
|
3042
|
0 |
0 |
if $menu_return_debug |
|
3043
|
0 |
0 |
if $@ |
|
3044
|
0 |
0 |
unless ref $menu_output |
|
3045
|
0 |
0 |
if ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE') { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
3058
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3059
|
0 |
0 |
if $Term::Menus::fa_code |
|
3064
|
0 |
0 |
if (ref $sub eq "CODE") |
|
3065
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3071
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3096
|
0 |
0 |
if ($@) |
|
3097
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3099
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3106
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3111
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3123
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3130
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3135
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3141
|
0 |
0 |
if (-1 < $#resu) |
|
3142
|
0 |
0 |
if ($resu[0] eq "<") |
|
3143
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3153
|
0 |
0 |
if ($subfile) { } |
|
3155
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3161
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3179
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3182
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3189
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3190
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3220
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3226
|
0 |
0 |
if $@ |
|
3229
|
0 |
0 |
if ($@) |
|
3230
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3232
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3238
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3243
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3254
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3260
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3265
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3271
|
0 |
0 |
if (-1 < $#resu) |
|
3272
|
0 |
0 |
if ($resu[0] eq "<") |
|
3273
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3303
|
0 |
0 |
if exists $FullMenu->{$MenuUnit_hash_ref}[7]{$all_menu_items_array[$picknum - 1]} |
|
3304
|
0 |
0 |
if (not $hidedefaults and ref $FullMenu->{$MenuUnit_hash_ref}[5] eq "HASH" and $FullMenu->{$MenuUnit_hash_ref}[5]{$all_menu_items_array[$picknum - 1]} and $FullMenu->{$MenuUnit_hash_ref}[5]{$all_menu_items_array[$picknum - 1]} eq '*' || $all_menu_items_array[$picknum - 1] =~ /$FullMenu->{$MenuUnit_hash_ref}[5]{$all_menu_items_array[$picknum - 1]}/) |
|
3317
|
0 |
0 |
if (ref $FullMenu->{$MenuUnit_hash_ref}[8] eq "HASH" and keys %{$$FullMenu{$MenuUnit_hash_ref}[8];} and exists $FullMenu->{$MenuUnit_hash_ref}[8]{$all_menu_items_array[$picknum - 1]} and $FullMenu->{$MenuUnit_hash_ref}[8]{$all_menu_items_array[$picknum - 1]}) |
|
3327
|
0 |
0 |
if (exists $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display} and $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display}) { } |
|
3334
|
0 |
0 |
unless $mark =~ /^ +$/ |
|
3336
|
0 |
0 |
if $Persists->{$parent_menu}{'defaults'} |
|
3337
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[9]) |
|
3344
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'}[1] eq $picknum || $MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3347
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0]) { } |
|
3348
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3360
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$picknum - 1]}) |
|
3364
|
0 |
0 |
if ($tstt =~ /many/i) |
|
3368
|
0 |
0 |
if ($mark =~ /^ +$/ or (exists $picks{$picknum} or exists $picks{$picknum_for_display})) |
|
3376
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and $Net::FullAuto::FA_Core::makeplan and $Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
3402
|
0 |
0 |
if ($answ eq "]quit[") |
|
3405
|
0 |
0 |
if (index($answ, "result saved") == -1) |
|
3407
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3420
|
0 |
0 |
do {
not $no_wantarray if wantarray
} ? : |
|
|
0 |
0 |
do {
$Persists->{$MenuUnit_hash_ref}{'defaults'}
} ? : |
|
|
0 |
0 |
$Persists->{'unattended'} ? : |
|
3421
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3422
|
0 |
0 |
if ($noclear) { } |
|
3423
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3433
|
0 |
0 |
if ($select_many or keys %{${$MenuUnit_hash_ref;}{'Select'};}) { } |
|
3435
|
0 |
0 |
unless (keys %{$$FullMenu{$MenuUnit_hash_ref}[1];}) |
|
3438
|
0 |
0 |
if ($mark_flg == 1 or $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3442
|
0 |
0 |
if ($filtered_menu) |
|
3445
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
3451
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
|
0 |
0 |
elsif ($filtered_menu) { } |
|
3455
|
0 |
0 |
if ($filtered_menu) { } |
|
3465
|
0 |
0 |
if ($display_this_many_items < $num_pick) { } |
|
3475
|
0 |
0 |
if ($term_input) { } |
|
3477
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Input'} and $MenuUnit_hash_ref->{'Input'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
3481
|
0 |
0 |
unless $ikey eq "ENTER" or $ikey eq "ESC" or $ikey eq "UPARROW" or $ikey eq "DOWNARROW" or $ikey eq "LEFTARROW" or $ikey eq "RIGHTARROW" or $ikey eq "F1" |
|
3495
|
0 |
0 |
if ($show_banner_only) { } |
|
3506
|
0 |
0 |
if wantarray |
|
3517
|
0 |
0 |
if ($numbor =~ /^[Ff]$/ and $Persists->{$MenuUnit_hash_ref}{'defaults'} || $filtered_menu) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\s*%(.*)/s) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\*\s*$/s) { } |
|
|
0 |
0 |
elsif ($numbor =~ m[^\s*/(.+)$]s) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\
|
|
|
0 |
0 |
elsif ($numbor =~ /^\>/ || $ikey eq 'RIGHTARROW' and exists $SaveNext->{$MenuUnit_hash_ref} and grep({/-|\+/;} values %picks) || $show_banner_only) { } |
|
|
0 |
0 |
elsif ($ikey eq 'ESC' or $numbor =~ /^quit|exit|bye$/i) { } |
|
|
0 |
0 |
elsif ($Term::Menus::fullauto and $ikey eq 'F1' || $numbor =~ /^help$/i) { } |
|
|
0 |
0 |
elsif ($ikey eq 'F1' or $numbor =~ /^help$/i) { } |
|
|
0 |
0 |
elsif ($Term::Menus::fullauto and $numbor =~ /^admin$/i) { } |
|
|
0 |
0 |
elsif (not keys %{$$FullMenu{$MenuUnit_hash_ref}[1];} and $numbor =~ /^[Aa]$/) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^[Cc]$/) { } |
|
3521
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
3525
|
0 |
0 |
if ($filtered_menu) { } |
|
3533
|
0 |
0 |
if (-1 == $#keys) |
|
3534
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
3535
|
0 |
0 |
if ($filtered_menu) |
|
3540
|
0 |
0 |
if $def eq "*" |
|
3541
|
0 |
0 |
if ($def) |
|
3545
|
0 |
0 |
if ($item =~ /$def/) |
|
3553
|
0 |
0 |
if (-1 == $#keys) |
|
3554
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3555
|
0 |
0 |
if ($noclear) { } |
|
3556
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3570
|
0 |
0 |
if ($term_input) { } |
|
3581
|
0 |
0 |
if lc $choice ne "quit" |
|
3593
|
0 |
0 |
unless exists do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]} and keys %{do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]};} |
|
3594
|
0 |
0 |
if (${${$FullMenu;}{$parent_menu}[10];}[$pk - 1] and not ${$_[0];}[$pk - 1]) { } |
|
|
0 |
0 |
elsif (${$_[0];}[$pk - 1]) { } |
|
|
0 |
0 |
elsif ($pn{$picknum}) { } |
|
3597
|
0 |
0 |
if (index($txt, "__Master_${$}__") != -1) |
|
3601
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3606
|
0 |
0 |
if (index($txt, "__Master_${$}__") != -1) |
|
3610
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3615
|
0 |
0 |
if (index($txt, "__Master_${$}__") != -1) |
|
3619
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3624
|
0 |
0 |
if ($return_values and $Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3629
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3634
|
0 |
0 |
unless ($got_default) |
|
3645
|
0 |
0 |
if $return_values |
|
3651
|
0 |
0 |
if $one |
|
3656
|
0 |
0 |
if ($one) { } |
|
|
0 |
0 |
elsif ($sorted and $sorted eq 'forward') { } |
|
3661
|
0 |
0 |
if $#spl == -1 |
|
3665
|
0 |
0 |
if (exists $pn{$picknum} and exists $FullMenu->{$MenuUnit_hash_ref}[8]{$pn{$picknum}[0]} and $FullMenu->{$MenuUnit_hash_ref}[8]{$pn{$picknum}[0]} and ref $FullMenu->{$MenuUnit_hash_ref}[8]{$pn{$picknum}[0]} eq 'HASH' and keys %{$FullMenu->{$MenuUnit_hash_ref}[8]{$pn{$picknum}[0]};} and $FullMenu->{$MenuUnit_hash_ref}[8]{$pn{$picknum}[0]}) { } |
|
3678
|
0 |
0 |
if (not $sorted) { } |
|
3679
|
0 |
0 |
if $select_many |
|
3688
|
0 |
0 |
if (exists $picks{$num}) { } |
|
3699
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
3719
|
0 |
0 |
if $menu_return_debug |
|
3720
|
0 |
0 |
if $@ |
|
3721
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
3722
|
0 |
0 |
if ((values %{$menu_output;})[0] eq "recurse") |
|
3739
|
0 |
0 |
if $@ |
|
3741
|
0 |
0 |
unless ref $menu_output |
|
3742
|
0 |
0 |
if ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE') { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
3752
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3753
|
0 |
0 |
if $Term::Menus::fa_code |
|
3758
|
0 |
0 |
if (ref $sub eq "CODE") |
|
3759
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3764
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3782
|
0 |
0 |
if ($@) |
|
3783
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3785
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3790
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3795
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3805
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3810
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3815
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3820
|
0 |
0 |
if (-1 < $#resu) |
|
3821
|
0 |
0 |
if ($resu[0] eq "<") |
|
3822
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3832
|
0 |
0 |
if ($subfile) { } |
|
3834
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3839
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3857
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3859
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3865
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3866
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3888
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3894
|
0 |
0 |
if $@ |
|
3897
|
0 |
0 |
if ($@) |
|
3898
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3899
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3904
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3909
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3919
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3924
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
3929
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3934
|
0 |
0 |
if (-1 < $#resu) |
|
3935
|
0 |
0 |
if ($resu[0] eq "<") |
|
3936
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3954
|
0 |
0 |
if ($filtered_menu) |
|
3967
|
0 |
0 |
if ($parent_menu) { } |
|
3973
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3976
|
0 |
0 |
if $def eq "*" |
|
3977
|
0 |
0 |
if ($def) |
|
3980
|
0 |
0 |
if ($item =~ /$def/) |
|
3992
|
0 |
0 |
if $select_many |
|
4007
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
4023
|
0 |
0 |
if $menu_return_debug |
|
4024
|
0 |
0 |
if $@ |
|
4025
|
0 |
0 |
unless ref $menu_output |
|
4026
|
0 |
0 |
if ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE') { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
4035
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4036
|
0 |
0 |
if $Term::Menus::fa_code |
|
4041
|
0 |
0 |
if (ref $sub eq "CODE") |
|
4042
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4047
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4065
|
0 |
0 |
if ($@) |
|
4066
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4068
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4073
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4078
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4088
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4093
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4098
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4103
|
0 |
0 |
if (-1 < $#resu) |
|
4104
|
0 |
0 |
if ($resu[0] eq "<") |
|
4105
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4115
|
0 |
0 |
if ($subfile) { } |
|
4117
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4122
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4140
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4142
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4148
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4149
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4171
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4177
|
0 |
0 |
if $@ |
|
4180
|
0 |
0 |
if ($@) |
|
4181
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4182
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4187
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4192
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4202
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4207
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4212
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4217
|
0 |
0 |
if (-1 < $#resu) |
|
4218
|
0 |
0 |
if ($resu[0] eq "<") |
|
4219
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4237
|
0 |
0 |
if ($filtered_menu) |
|
4247
|
0 |
0 |
if $one |
|
4251
|
0 |
0 |
unless (exists $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
4254
|
0 |
0 |
if $def eq "*" |
|
4255
|
0 |
0 |
if ($def) |
|
4259
|
0 |
0 |
if ($item =~ /$def/) |
|
4269
|
0 |
0 |
if ($pik =~ /$one/s) |
|
4274
|
0 |
0 |
if $#spl == -1 |
|
4275
|
0 |
0 |
if $select_many |
|
4283
|
0 |
0 |
if (exists $picks{$num}) { } |
|
|
0 |
0 |
elsif ($def and $text =~ /$def/) { } |
|
4298
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
$$FullMenu{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
4313
|
0 |
0 |
if $menu_return_debug |
|
4314
|
0 |
0 |
if $@ |
|
4315
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
4316
|
0 |
0 |
if ((values %{$menu_output;})[0] eq "recurse") |
|
4333
|
0 |
0 |
if $menu_return_debug |
|
4334
|
0 |
0 |
if $@ |
|
4336
|
0 |
0 |
unless ref $menu_output |
|
4337
|
0 |
0 |
if ($menu_output eq '-' and exists $SavePick->{$MenuUnit_hash_ref}) { } |
|
|
0 |
0 |
elsif ($menu_output eq '+' and exists $SavePick->{$MenuUnit_hash_ref}) { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE') { } |
|
|
0 |
0 |
elsif ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
4348
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4349
|
0 |
0 |
if $Term::Menus::fa_code |
|
4354
|
0 |
0 |
if (ref $sub eq "CODE") |
|
4355
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4360
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4378
|
0 |
0 |
if ($@) |
|
4379
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4381
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4386
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4391
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4401
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4406
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4411
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4416
|
0 |
0 |
if (-1 < $#resu) |
|
4417
|
0 |
0 |
if ($resu[0] eq "<") |
|
4418
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4428
|
0 |
0 |
if ($subfile) { } |
|
4430
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4435
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4453
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4455
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4461
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4462
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4484
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4490
|
0 |
0 |
if $@ |
|
4493
|
0 |
0 |
if ($@) |
|
4494
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4495
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4500
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4505
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4515
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4520
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4525
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4530
|
0 |
0 |
if (-1 < $#resu) |
|
4531
|
0 |
0 |
if ($resu[0] eq "<") |
|
4532
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4550
|
0 |
0 |
if ($recurse_level == 1) { } |
|
|
0 |
0 |
elsif (grep {/\+|\*/;} values %picks) { } |
|
4560
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
4563
|
0 |
0 |
if $sp_copy{$key} eq "+" |
|
4567
|
0 |
0 |
if ($parent_menu->{'Scroll'}[1] > 1 and not exists $main::maintain_scroll_flag->{$parent_menu}) |
|
4589
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
4593
|
0 |
0 |
if ref $menu_result eq "CODE" |
|
4611
|
0 |
0 |
if $menu_return_debug |
|
4612
|
0 |
0 |
if $@ |
|
4613
|
0 |
0 |
unless ref $menu_output |
|
4614
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
4622
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
4643
|
0 |
0 |
if ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE') { } |
|
|
0 |
0 |
elsif ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
4646
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4647
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4652
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4658
|
0 |
0 |
unless ($got_default) |
|
4667
|
0 |
0 |
if $Term::Menus::fa_code |
|
4672
|
0 |
0 |
if (ref $sub eq "CODE") |
|
4673
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4678
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4696
|
0 |
0 |
if ($@) |
|
4697
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4699
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4704
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4709
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4719
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4724
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4729
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4734
|
0 |
0 |
if (-1 < $#resu) |
|
4735
|
0 |
0 |
if ($resu[0] eq "<") |
|
4736
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4746
|
0 |
0 |
if ($subfile) { } |
|
4748
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4753
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4771
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4773
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4779
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4780
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4802
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4808
|
0 |
0 |
if $@ |
|
4811
|
0 |
0 |
if ($@) |
|
4812
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4813
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4818
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4823
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4833
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4838
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
4843
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4848
|
0 |
0 |
if (-1 < $#resu) |
|
4849
|
0 |
0 |
if ($resu[0] eq "<") |
|
4850
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4868
|
0 |
0 |
if $^O ne "cygwin" |
|
4876
|
0 |
0 |
if (not exists $Net::FullAuto::FA_Core::admin_menus{&pw($MenuUnit_hash_ref)}) { } |
|
4879
|
0 |
0 |
if $Net::FullAuto::FA_Core::admin_menu |
|
4881
|
0 |
0 |
if $menu_output[0] ne "-" and $menu_output[0] ne "+" |
|
4889
|
0 |
0 |
unless ($select_many or keys %{$$MenuUnit_hash_ref{"Select"};}) |
|
4894
|
0 |
0 |
if ($filtered_menu) { } |
|
4905
|
0 |
0 |
if ($select_many or exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$pck]}) |
|
4919
|
0 |
0 |
if (exists $picks{$pick}) |
|
4931
|
0 |
0 |
if defined $parent_menu |
|
4933
|
0 |
0 |
if ($numbor =~ /^u$/i or $ikey eq 'UPARROW' or $ikey eq 'PAGEUP') { } |
|
|
0 |
0 |
elsif ($ikey eq 'END') { } |
|
|
0 |
0 |
elsif ($ikey eq 'HOME') { } |
|
|
0 |
0 |
elsif ($numbor and unpack('a1', $numbor) eq '!') { } |
|
|
0 |
0 |
elsif (!$ikey || $ikey eq 'ENTER' and $numbor =~ /^()$/ || $numbor =~ /^\n/ or $numbor =~ /^d$/i or $ikey eq 'DOWNARROW' or $ikey eq 'PAGEDOWN') { } |
|
4934
|
0 |
0 |
if ($ikey ne 'PAGEUP' and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'}) { } |
|
|
0 |
0 |
elsif (0 <= $start - $display_this_many_items) { } |
|
4937
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != 1 |
|
4939
|
0 |
0 |
if $num_pick |
|
4940
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4942
|
0 |
0 |
if ($curscreennum - $remainder == $MenuUnit_hash_ref->{'Scroll'}[1] and $curscreennum == $num_pick) { } |
|
|
0 |
0 |
elsif ($start == $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
4948
|
0 |
0 |
if ($display_this_many_items < $num_pick - $start or $remainder or not $remainder and $num_pick == $start + 1 || $num_pick == $start + $display_this_many_items) |
|
4965
|
0 |
0 |
if $ikey eq "PAGEUP" and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4977
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4979
|
0 |
0 |
if ($num_pick == $start + $choose_num) |
|
4983
|
0 |
0 |
if ($remainder) { } |
|
4993
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
5002
|
0 |
0 |
if ($^O eq 'cygwin') { } |
|
5013
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5015
|
0 |
0 |
if ($ikey eq 'DOWNARROW' || $numbor =~ /^d$/i and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'}) { } |
|
|
0 |
0 |
elsif ($ikey eq 'ENTER' and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} and not $show_banner_only) { } |
|
5019
|
0 |
0 |
if $num_pick |
|
5020
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
5023
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
5024
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
5025
|
0 |
0 |
if ($display_this_many_items < $num_pick - $start) { } |
|
5040
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
5042
|
0 |
0 |
if ($show_banner_only) { } |
|
|
0 |
0 |
elsif ($display_this_many_items < $num_pick - $start) { } |
|
|
0 |
0 |
elsif ($ikey ne 'PAGEDOWN') { } |
|
5043
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) { } |
|
5047
|
0 |
0 |
if $num_pick |
|
5048
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
5051
|
0 |
0 |
if ($parent_menu and exists $parent_menu->{'Scroll'}) |
|
5052
|
0 |
0 |
if (ref $parent_menu->{'Scroll'} eq "ARRAY") |
|
5054
|
0 |
0 |
if ($curscreennum + $display_this_many_items < $parent_menu->{'Scroll'}[1] and $parent_menu->{'Scroll'}[1] < $numpick) |
|
5070
|
0 |
0 |
if exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
5075
|
0 |
0 |
unless ($show_banner_only or not $numbor =~ /^\d+/) |
|
5082
|
0 |
0 |
if (not keys %picks && $numbor =~ /^[Ff]$/ || $test_numbor =~ /^\d+|admin$/ || $return_from_child_menu) { } |
|
|
0 |
0 |
elsif (exists $pn{$numbor} or keys %picks and $numbor =~ /^[Ff]$/) { } |
|
5084
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5090
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5092
|
0 |
0 |
if exists $picks{'__FA_Banner__'} |
|
5093
|
0 |
0 |
unless %pn |
|
5095
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
5097
|
0 |
0 |
if $parent_menu |
|
5099
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5100
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5114
|
0 |
0 |
$numbor =~ /^\d+$/ ? : |
|
5116
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'} and not defined $MenuUnit_hash_ref->{'Result'}) |
|
5158
|
0 |
0 |
if ($select_many || exists do {
$MenuUnit_hash_ref
}->{'Select'}{$numbor} and not $numbor =~ /^[Ff]$/) { } |
|
|
0 |
0 |
elsif ($show_banner_only and exists $MenuUnit_hash_ref->{'Result'} and ref $MenuUnit_hash_ref->{'Result'} eq 'HASH' or $numbor =~ /^\d+$/ and ref $FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$digital_numbor - 1] or $all_menu_items_array[$pn{$digital_numbor}[1] - 1]} eq 'HASH' or $numbor =~ /^[Ff]$/ and ref $FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[((keys %picks)[0] || 1) - 1]} eq 'HASH') { } |
|
|
0 |
0 |
elsif ($FullMenu and $caller eq $callertest and $select_many || keys %{$$MenuUnit_hash_ref{'Select'};}) { } |
|
|
0 |
0 |
elsif ($show_banner_only and exists $MenuUnit_hash_ref->{'Result'} and ref $MenuUnit_hash_ref->{'Result'} eq 'CODE' or keys %{$$FullMenu{$MenuUnit_hash_ref}[2];} and exists $FullMenu->{$MenuUnit_hash_ref}[2]{$pn{$numbor}[0]}) { } |
|
|
0 |
0 |
elsif ($return_from_child_menu and not exists $SavePick->{$MenuUnit_hash_ref}{$pn{$numbor}}) { } |
|
5161
|
0 |
0 |
if ($filtered_menu and exists $SavePick->{$parent_menu}{$numbor}) { } |
|
|
0 |
0 |
elsif (exists $picks{$numbor}) { } |
|
5163
|
0 |
0 |
if ($Persists->{$parent_menu}{'defaults'}) |
|
5167
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5168
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5190
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5195
|
0 |
0 |
if $filtered_menu |
|
5206
|
0 |
0 |
if $filtered_menu |
|
5210
|
0 |
0 |
if (defined $all_menu_items_array[$key - 1] and exists do {
$FullMenu
}->{$MenuUnit_hash_ref}[1]{$all_menu_items_array[$key - 1]} and grep {$items{$numbor} eq $_;} @{do {
$FullMenu
}->{$MenuUnit_hash_ref}[1]{$all_menu_items_array[$key - 1]};}) { } |
|
|
0 |
0 |
elsif ($picks{$key} eq '-') { } |
|
5226
|
0 |
0 |
if ($skip == 0) |
|
5234
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5251
|
0 |
0 |
if ($numbor =~ /^[Ff]$/) |
|
5255
|
0 |
0 |
if (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
5258
|
0 |
0 |
unless $key =~ /Item_/ |
|
5261
|
0 |
0 |
if ($#items == 0 and ref $items[0] eq "HASH" and not grep({/Item_/;} keys %{$items[0];}) and grep {/Banner/;} keys %{$items[0];}) |
|
5267
|
0 |
0 |
if ($show_banner_only or grep {/Item_/;} keys %{$FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1] or $all_menu_items_array[$pn{$numbor}[1] - 1]};} or exists $labels{(keys %{$FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$digital_numbor - 1] or ""};})[0] or []} or &test_hashref($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1] or $all_menu_items_array[$pn{$numbor}[1] - 1]})) |
|
5279
|
0 |
0 |
$filtered_menu ? : |
|
5280
|
0 |
0 |
if ($filtered_menu) |
|
5295
|
0 |
0 |
if ($pst =~ /0$/) |
|
5303
|
0 |
0 |
unless ($filtered_menu) |
|
5304
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) { } |
|
|
0 |
0 |
elsif (exists $labels{(keys %{$FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$digital_numbor - 1]};})[0]}) { } |
|
5327
|
0 |
0 |
if $numbor |
|
5328
|
0 |
0 |
$numbor_is_eff ? : |
|
5329
|
0 |
0 |
if (exists $picks{$numbor}) |
|
5335
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$numbor} ne ' ') { } |
|
5346
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5363
|
0 |
0 |
unless ($show_banner_only) |
|
5366
|
0 |
0 |
unless $filtered_menu |
|
5369
|
0 |
0 |
unless $filtered_menu |
|
5371
|
0 |
0 |
unless $filtered_menu |
|
5374
|
0 |
0 |
unless $select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{$numbor} |
|
5375
|
0 |
0 |
unless keys %picks and $numbor =~ /^[Ff]$/ |
|
5385
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
|
0 |
0 |
elsif ($numbor) { } |
|
5395
|
0 |
0 |
unless (exists $SaveMMap->{$cur_menu}) |
|
5396
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
5403
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
5419
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
5426
|
0 |
0 |
if ($filtered_menu) |
|
5444
|
0 |
0 |
if (exists $Selected->{$cur_menu}{'__FA_Banner__'}) { } |
|
5448
|
0 |
0 |
if ref $menu_result eq "CODE" |
|
5465
|
0 |
0 |
if $menu_return_debug |
|
5466
|
0 |
0 |
if $@ |
|
5467
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
5475
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
5478
|
0 |
0 |
if $num_pick |
|
5479
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
5481
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1] and $display_this_many_items < $num_pick - $start) |
|
5485
|
0 |
0 |
if ($start + $remainder == $num_pick) { } |
|
5509
|
0 |
0 |
unless ref $menu_output |
|
5510
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE' and 1 < $recurse_level) { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
5511
|
0 |
0 |
if (grep {/\+|\*/;} values %picks) { } |
|
5518
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
5521
|
0 |
0 |
if $sp_copy{$key} eq "+" |
|
5539
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5544
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5550
|
0 |
0 |
unless ($got_default) |
|
5559
|
0 |
0 |
if $Term::Menus::fa_code |
|
5565
|
0 |
0 |
if (ref $sub eq "CODE") |
|
5566
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5571
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5590
|
0 |
0 |
if ($@) |
|
5591
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5593
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5599
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5604
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5614
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5620
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5625
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5630
|
0 |
0 |
if (-1 < $#resu) |
|
5631
|
0 |
0 |
if ($resu[0] eq "<") |
|
5636
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5646
|
0 |
0 |
if ($subfile) { } |
|
5648
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5653
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5671
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
5673
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5680
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
5681
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
5699
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5705
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5713
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5719
|
0 |
0 |
if $@ |
|
5722
|
0 |
0 |
if ($@) |
|
5723
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5725
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5730
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5735
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5745
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5750
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5755
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5760
|
0 |
0 |
if (-1 < $#resu) |
|
5761
|
0 |
0 |
if ($resu[0] eq "<") |
|
5766
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5779
|
0 |
0 |
if (not $numbor =~ /^[Ff]$/ and exists $picks{$numbor}) |
|
5780
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5792
|
0 |
0 |
if (keys %{$$FullMenu{$MenuUnit_hash_ref}[2];}) { } |
|
5793
|
0 |
0 |
if $numbor =~ /^[Ff]$/ |
|
5797
|
0 |
0 |
if (ref $test_result eq 'CODE') { } |
|
|
0 |
0 |
elsif ($test_result and not $test_result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ && grep({$1 eq $_;} list_module('main', $Term::Menus::fa_code) && $picks{$numbor} ne '*')) { } |
|
|
0 |
0 |
elsif (not defined $pn{$numbor}[0] && exists do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$pn{$numbor}[0]}) { } |
|
5802
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
5809
|
0 |
0 |
if ($data_dump_streamer) |
|
5825
|
0 |
0 |
if ($@) |
|
5826
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5827
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5832
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5837
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5847
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5852
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5857
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5862
|
0 |
0 |
if (-1 < $#resu) |
|
5863
|
0 |
0 |
if ($resu[0] eq "<") |
|
5864
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5889
|
0 |
0 |
if (wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($#resu == 0) { } |
|
5897
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$pn{$numbor}[0]}) |
|
5908
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5913
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5919
|
0 |
0 |
unless ($got_default) |
|
5928
|
0 |
0 |
if $Term::Menus::fa_code |
|
5933
|
0 |
0 |
if (ref $sub eq "CODE") |
|
5934
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5939
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5958
|
0 |
0 |
if ($@) |
|
5959
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5961
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5966
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5971
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5981
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5986
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
5991
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5996
|
0 |
0 |
if (-1 < $#resu) |
|
5997
|
0 |
0 |
if ($resu[0] eq "<") |
|
5998
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6008
|
0 |
0 |
if ($subfile) { } |
|
6010
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6015
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6033
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
6035
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6041
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
6042
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6064
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6070
|
0 |
0 |
if $@ |
|
6073
|
0 |
0 |
if ($@) |
|
6074
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6075
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6080
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6085
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6095
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6100
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6105
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6110
|
0 |
0 |
if (-1 < $#resu) |
|
6111
|
0 |
0 |
if ($resu[0] eq "<") |
|
6112
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6129
|
0 |
0 |
if ($show_banner_only) { } |
|
6136
|
0 |
0 |
if (ref $test_result eq 'CODE') { } |
|
|
0 |
0 |
elsif (not $test_result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ && grep({$1 eq $_;} list_module('main', $Term::Menus::fa_code))) { } |
|
6153
|
0 |
0 |
if (not $trim_look =~ /Item_/s || $trim_look =~ /[']Result['][,]/s or $trim_look =~ /=\s*[']Item_/s or $look_at_test_result =~ /$tspmi_regex/ or $trim_look =~ /$sicm_regex/ or $trim_look =~ /$tbii_regex/) |
|
6159
|
0 |
0 |
unless $select_many |
|
6167
|
0 |
0 |
$show_banner_only ? : |
|
6170
|
0 |
0 |
if $Selected->{$MenuUnit_hash_ref}{$item} |
|
6182
|
0 |
0 |
if ($@) |
|
6183
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6184
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6189
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6194
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6204
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6209
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6214
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6219
|
0 |
0 |
if (0 == $#resu and ref $resu[0] eq 'CODE') { } |
|
6227
|
0 |
0 |
if (-1 < $#resu) |
|
6228
|
0 |
0 |
if ($resu[0] eq "<") |
|
6229
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif (ref $resu[0] eq 'HASH') { } |
|
6232
|
0 |
0 |
if (grep {/Item_/;} keys %{$resu[0];} && $parent_menu) { } |
|
6233
|
0 |
0 |
if (exists $FullMenu->{$parent_menu}[2]{'__FA_Banner__'}) { } |
|
6261
|
0 |
0 |
unless $select_many |
|
6271
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
6279
|
0 |
0 |
if (ref $test_item eq "HASH" and grep {/Item_/;} keys %{$test_item;} or $show_banner_only) |
|
6283
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
6293
|
0 |
0 |
unless (exists $SaveMMap->{$MenuUnit_hash_ref}) |
|
6294
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
6301
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
6317
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
6333
|
0 |
0 |
if ($show_banner_only) { } |
|
6340
|
0 |
0 |
unless exists $SaveNext->{$MenuUnit_hash_ref} |
|
6352
|
0 |
0 |
if $menu_return_debug |
|
6353
|
0 |
0 |
if $@ |
|
6354
|
0 |
0 |
unless ref $menu_output |
|
6356
|
0 |
0 |
if ($menu_output eq '-') { } |
|
|
0 |
0 |
elsif ($menu_output eq '+') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE_SUB') { } |
|
|
0 |
0 |
elsif ($menu_output eq 'DONE' and 1 < $recurse_level) { } |
|
|
0 |
0 |
elsif (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{]${test_for_menu_name}[}][<]$/) { } |
|
|
0 |
0 |
elsif ($menu_output) { } |
|
6379
|
0 |
0 |
if $start + $choose_num < $FullMenu->{$MenuUnit_hash_ref}[11] |
|
6380
|
0 |
0 |
if $display_this_many_items >= $num_pick - $start |
|
6398
|
0 |
0 |
$Term::Menus::fullauto ? : |
|
6403
|
0 |
0 |
if (ref $sub eq "CODE") |
|
6404
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6409
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6426
|
0 |
0 |
if ($@) |
|
6427
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6428
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6433
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6438
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6448
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6453
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6458
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6463
|
0 |
0 |
if (-1 < $#resu) |
|
6464
|
0 |
0 |
if ($resu[0] eq "<") |
|
6465
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6466
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6472
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6482
|
0 |
0 |
if ($subfile) { } |
|
6484
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6489
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6514
|
0 |
0 |
if ((index($firsterr, 'Undefined subroutine') != -1) and (index($firsterr, $sub) != -1)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
6516
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6522
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
6523
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6543
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6558
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6564
|
0 |
0 |
if ($@) |
|
6570
|
0 |
0 |
if ($@) |
|
6571
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6572
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6577
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6582
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6592
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6597
|
0 |
0 |
if (defined $log_handle and index($log_handle, "*") != -1) |
|
6602
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6607
|
0 |
0 |
if (-1 < $#resu) |
|
6608
|
0 |
0 |
if ($resu[0] eq "<") |
|
6609
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6610
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6616
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6631
|
0 |
0 |
unless $return_from_child_menu |
|
6633
|
0 |
0 |
if $done |
|
6635
|
0 |
0 |
if ($select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{(keys %picks)[0] or ""}) |
|
6642
|
0 |
0 |
if ($MenuUnit_hash_ref) { } |
|
6654
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\d+$/) { } |
|
6660
|
0 |
0 |
if ($Term::Menus::fullauto and not exists do {
$MenuUnit_hash_ref
}->{'NoPlan'} && do {
$MenuUnit_hash_ref
}->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6664
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6668
|
0 |
0 |
unless ($got_default) |
|
6677
|
0 |
0 |
if (wantarray) { } |
|
6695
|
0 |
0 |
if ((index($result_string, "][[") != -1) and (index($result_string, "]][") != -1)) |
|
6701
|
0 |
0 |
if (unpack('a5', $elem) eq 'eval ') { } |
|
6715
|
0 |
0 |
if index($sub, "\"") == -1 |
|
6724
|
0 |
0 |
if ($arg =~ /^[']/) { } |