| line |
true |
false |
branch |
|
331
|
0 |
0 |
unless -e "$path$_[0]" |
|
340
|
0 |
0 |
unless -e "$path$_[0]" |
|
342
|
0 |
0 |
if ($@) { } |
|
410
|
1 |
0 |
unless ($@) |
|
414
|
0 |
1 |
unless (exists $INC{'Term/Menus.pm'}) |
|
417
|
0 |
0 |
if (-e $f . "/Term/Menus.pm") |
|
493
|
0 |
1 |
if (defined caller 2 and -1 < index(caller 2, "FullAuto")) |
|
496
|
0 |
0 |
if ($main::fa_code and $main::fa_conf and $main::fa_host and $main::fa_menu) { } |
|
498
|
0 |
0 |
unless (exists $INC{'Net/FullAuto.pm'}) |
|
501
|
0 |
0 |
if (-e $f . "/Net/FullAuto.pm") |
|
511
|
0 |
0 |
if (-f $fa_path . "/fa_global.pm") |
|
512
|
0 |
0 |
if (-r $fa_path . '/fa_global.pm') { } |
|
518
|
0 |
0 |
if (exists $fa_global::FA_Sudo->{$username}) |
|
521
|
0 |
0 |
if ($fa_global::berkeley_db_path and -d $fa_global::berkeley_db_path . "Defaults") |
|
527
|
0 |
0 |
unless my $dbenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . "Defaults", "-Flags", "DB_K^MU_OTOOL") |
|
533
|
0 |
0 |
grep({/^--test$/;} @ARGV) ? : |
|
539
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
545
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
550
|
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) { } |
|
560
|
0 |
0 |
if ($login_flag) { } |
|
|
0 |
0 |
elsif (lc $argv eq '--login') { } |
|
567
|
0 |
0 |
unless $login_flag |
|
572
|
0 |
0 |
if ($login_flag) { } |
|
|
0 |
0 |
elsif (lc $argv eq '--login') { } |
|
580
|
0 |
0 |
if $bdb |
|
583
|
0 |
0 |
if -1 < index($default_modules, "\$HASH") |
|
588
|
0 |
0 |
if ($data_dump_streamer) |
|
590
|
0 |
0 |
if ($mod eq "set") |
|
591
|
0 |
0 |
if ($default_modules->{'set'} ne 'none') { } |
|
596
|
0 |
0 |
unless (&$Term::Menus::filechk($default_modules->{$mod})) |
|
603
|
0 |
0 |
if ($save_defaults_for_user_flag) { } |
|
606
|
0 |
0 |
if $bdb |
|
609
|
0 |
0 |
if $bdb |
|
616
|
0 |
0 |
do {
$default_modules->{'set'} ne 'none' if exists $default_modules->{'set'}
} ? : |
|
|
0 |
0 |
keys %{$default_modules;} ? : |
|
626
|
0 |
0 |
if exists $default_modules->{'set'} |
|
630
|
0 |
0 |
unless my $stenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . "Sets", "-Flags", "DB_K^MU_OTOOL") |
|
641
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
647
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
657
|
0 |
0 |
if -1 < index($set, "\$HASH") |
|
678
|
0 |
0 |
if (exists $default_modules->{'fa_code'}) |
|
683
|
0 |
0 |
if (exists $default_modules->{'fa_conf'}) |
|
688
|
0 |
0 |
if (exists $default_modules->{'fa_host'}) |
|
693
|
0 |
0 |
if (exists $default_modules->{'fa_menu'}) |
|
713
|
0 |
0 |
if (-1 < index($aa, '--fa_')) { } |
|
|
0 |
0 |
elsif (-1 < index($aa, '--set')) { } |
|
716
|
0 |
0 |
if (-1 < index($v, '--fa_')) { } |
|
724
|
0 |
0 |
if (-1 < index($v, '--')) { } |
|
733
|
0 |
0 |
if (exists $A{$e}) |
|
735
|
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') { } |
|
741
|
0 |
0 |
if (-f $fa_path . '/fa_global.pm') { } |
|
742
|
0 |
0 |
unless my $stenv = "BerkeleyDB::Env"->new("-Home", $fa_global::berkeley_db_path . "Sets", "-Flags", "DB_K^MU_OTOOL") |
|
753
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
759
|
0 |
0 |
unless ($BerkeleyDB::Error =~ /Successful/) |
|
769
|
0 |
0 |
if -1 < index($set, "\$HASH") |
|
814
|
0 |
0 |
if (defined $main::fa_code and $main::fa_code) |
|
821
|
0 |
0 |
if (defined $main::fa_conf and $main::fa_conf) |
|
827
|
0 |
0 |
if (defined $main::fa_host and $main::fa_host) |
|
833
|
0 |
0 |
if (defined $main::fa_menu and $main::fa_menu) |
|
854
|
0 |
0 |
if $Term::Menus::fa_code->[0] and -1 == index($Term::Menus::fa_code->[0], "Net/FullAuto") |
|
860
|
0 |
0 |
unless (map {/$rx/;} @ARGV) |
|
861
|
0 |
0 |
if ($Term::Menus::fa_code->[0]) { } |
|
862
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_code->[0])) { } |
|
881
|
0 |
0 |
if $Term::Menus::fa_conf->[0] and -1 == index($Term::Menus::fa_conf->[0], "Net/FullAuto") |
|
884
|
0 |
0 |
unless ($argv =~ /--edit |^-e[a-z]|--cat /) |
|
885
|
0 |
0 |
if ($Term::Menus::fa_conf->[0]) { } |
|
886
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_conf->[0])) { } |
|
905
|
0 |
0 |
if $Term::Menus::fa_host->[0] and -1 == index($Term::Menus::fa_host->[0], "Net/FullAuto") |
|
908
|
0 |
0 |
unless ($argv =~ /--edit |^-e[a-z]/) |
|
909
|
0 |
0 |
if ($Term::Menus::fa_host->[0]) { } |
|
910
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_host->[0])) { } |
|
929
|
0 |
0 |
if $Term::Menus::fa_menu->[0] and -1 == index($Term::Menus::fa_menu->[0], "Net/FullAuto") |
|
932
|
0 |
0 |
if (not $argv =~ /--edit |^-e[a-z]/) |
|
933
|
0 |
0 |
if ($Term::Menus::fa_menu->[0]) { } |
|
934
|
0 |
0 |
if (&$Term::Menus::canload($Term::Menus::fa_menu->[0])) { } |
|
1055
|
0 |
0 |
if (not $m_flag and -f "$dir/$Term::Menus::fa_menu") |
|
1060
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1061
|
0 |
0 |
if (not exists $menudups{$1}) { } |
|
1069
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1070
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1077
|
0 |
0 |
if (not $s_flag and -f "$dir/$Term::Menus::fa_code") |
|
1082
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1083
|
0 |
0 |
if (not exists $dups{$1}) { } |
|
1092
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1093
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1102
|
0 |
0 |
if ($Term::Menus::fullauto) |
|
1104
|
0 |
0 |
if (eval "\\%$symname") |
|
1107
|
0 |
0 |
if (ref $hashref->{$key} eq "HASH") |
|
1109
|
0 |
0 |
if (lc $ky eq "text") |
|
1146
|
0 |
0 |
if $cache |
|
1147
|
0 |
0 |
unless $cache |
|
1152
|
0 |
0 |
if $to |
|
1153
|
0 |
0 |
if ($code) { } |
|
|
0 |
0 |
elsif (ref $start_menu_ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($start_menu_ref) { } |
|
1156
|
0 |
0 |
unless (keys %LookUpMenuName) |
|
1159
|
0 |
0 |
if ($Net::FullAuto::FA_Core::plan) |
|
1162
|
0 |
0 |
if $@ |
|
1197
|
0 |
0 |
if ($@) |
|
1199
|
0 |
0 |
if $code |
|
1213
|
0 |
0 |
if ($Term::Menus::fullauto and defined $Net::FullAuto::FA_Core::service and $Net::FullAuto::FA_Core::service) |
|
1219
|
0 |
0 |
unless chdir "/" |
|
1221
|
0 |
0 |
unless open STDIN, "/dev/null" |
|
1222
|
0 |
0 |
unless open STDOUT, ">/dev/null" |
|
1223
|
0 |
0 |
unless open STDERR, ">/dev/null" |
|
1224
|
0 |
0 |
unless defined(my $pid = fork) |
|
1225
|
0 |
0 |
if $pid |
|
1226
|
0 |
0 |
unless $pid = &setsid |
|
1231
|
0 |
0 |
defined $_[1] ? : |
|
1232
|
0 |
0 |
if $Term::Menus::fa_code |
|
1237
|
0 |
0 |
if $@ |
|
1251
|
0 |
0 |
if $map_count < $count |
|
1272
|
0 |
0 |
if (10 < length $_[0] and unpack('a11', $_[0]) eq 'FATAL ERROR') { } |
|
1273
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1286
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1291
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1301
|
0 |
0 |
unless $banner |
|
1305
|
0 |
0 |
defined $_[4] ? : |
|
1311
|
0 |
0 |
if (ref $banner eq 'CODE') { } |
|
|
0 |
0 |
elsif (keys %{$Conveyed;} or $picks_from_parent) { } |
|
1313
|
0 |
0 |
if ($data_dump_streamer) |
|
1333
|
0 |
0 |
if ($@) |
|
1334
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1335
|
0 |
0 |
if (wantarray) |
|
1338
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1343
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1347
|
0 |
0 |
if (wantarray) |
|
1350
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1355
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1367
|
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) |
|
1372
|
0 |
0 |
if (not $banner =~ /::/) { } |
|
1396
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Select'}) { } |
|
1397
|
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) { } |
|
1412
|
0 |
0 |
if ($picks_from_parent and -1 < index($picks_from_parent, "*")) |
|
1417
|
0 |
0 |
if ($picks_from_parent =~ /\](Cron|Batch|Unattended|FullAuto)\[/i) |
|
1421
|
0 |
0 |
defined $_[2] ? : |
|
1422
|
0 |
0 |
defined $_[3] ? : |
|
1423
|
0 |
0 |
defined $_[4] ? : |
|
1424
|
0 |
0 |
defined $_[5] ? : |
|
1425
|
0 |
0 |
defined $_[6] ? : |
|
1426
|
0 |
0 |
defined $_[7] ? : |
|
1427
|
0 |
0 |
defined $_[8] ? : |
|
1428
|
0 |
0 |
defined $_[9] ? : |
|
1429
|
0 |
0 |
defined $_[10] ? : |
|
1432
|
0 |
0 |
if (defined $_[11] and $_[11] or (caller)[0] ne "Term::Menus" and not wantarray) |
|
1436
|
0 |
0 |
if (defined $_[12] and $_[12]) |
|
1439
|
0 |
0 |
if (defined $_[13] and $_[13]) |
|
1450
|
0 |
0 |
if (4 < length $key and substr($key, 0, 4) eq "Item") |
|
1454
|
0 |
0 |
if $unattended |
|
1456
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
1469
|
0 |
0 |
if (exists $Items{$num}) { } |
|
1470
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Banner'} and not $got_item_flag) { } |
|
1476
|
0 |
0 |
if (exists $Items{$num}{'Negate'} and not keys %{$$MenuUnit_hash_ref{"Select"};}) |
|
1481
|
0 |
0 |
if $Term::Menus::fullauto |
|
1486
|
0 |
0 |
if (exists $Items{$num}{'Convey'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
1488
|
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)) { } |
|
1494
|
0 |
0 |
if ($data_dump_streamer) |
|
1507
|
0 |
0 |
if ref $convey[0] eq "ARRAY" |
|
1508
|
0 |
0 |
if ($@) |
|
1509
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1510
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1515
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1520
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1530
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1535
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
1540
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1545
|
0 |
0 |
if (0 == $#convey and $convey[0] =~ /^(?:[{](.*)[}])?[<]$/) |
|
1550
|
0 |
0 |
if (defined $picks_from_parent and not ref $picks_from_parent) |
|
1556
|
0 |
0 |
if (not $transformed_convey =~ /::/) { } |
|
1567
|
0 |
0 |
if $item =~ /^\s*$/s |
|
1573
|
0 |
0 |
if (-1 < index($text, "__Master_$$__")) |
|
1578
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/) { } |
|
1579
|
0 |
0 |
if ($text =~ /$Items{$num}{'Include'}/s) { } |
|
1581
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/ |
|
1592
|
0 |
0 |
if (exists $Items{$num}{'Convey'} and $Items{$num}{'Convey'} ne '') { } |
|
|
0 |
0 |
elsif (not exists $Items{$num}{'Convey'}) { } |
|
1599
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1602
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1603
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1612
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1613
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1616
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1618
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1620
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1624
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) |
|
1631
|
0 |
0 |
if (-1 < index($Items{$num}{'Text'}, "__Master_$$__")) |
|
1637
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/) { } |
|
1638
|
0 |
0 |
if ($Items{$num}{'Text'} =~ /$Items{$num}{'Include'}/) { } |
|
1640
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/ |
|
1648
|
0 |
0 |
if exists $Items{$num}{'Convey'} |
|
1650
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1652
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1653
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1662
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1663
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1666
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1668
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1670
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1673
|
0 |
0 |
if exists $Items{$num}{'__NUM__'} |
|
1682
|
0 |
0 |
if exists $_[0]{'Display'} |
|
1684
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and ref $MenuUnit_hash_ref->{'Scroll'} ne "ARRAY") |
|
1694
|
0 |
0 |
if defined $FullMenu->{$MenuUnit_hash_ref}[5] |
|
1695
|
0 |
0 |
keys %num__ ? : |
|
1700
|
0 |
0 |
if ($select_many or keys %{$$MenuUnit_hash_ref{'Select'};}) { } |
|
1714
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1720
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1723
|
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) { } |
|
1733
|
0 |
0 |
if (ref $$pick[$#{$pick;}] eq "HASH") |
|
1756
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1763
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1766
|
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) { } |
|
1769
|
0 |
0 |
do {
keys %{$$Selected{$MenuUnit_hash_ref};} unless $select_many
} ? : |
|
|
0 |
0 |
keys %{$$SavePick{$MenuUnit_hash_ref};} ? : |
|
1772
|
0 |
0 |
unless $select_many |
|
1785
|
0 |
0 |
if (1 == $recurse and ref $$pick[$#{$pick;}] eq "HASH") |
|
1789
|
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'};}) { } |
|
1798
|
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;}) { } |
|
1801
|
0 |
0 |
if (wantarray) { } |
|
1814
|
0 |
0 |
if ($picks_from_parent) |
|
1830
|
0 |
0 |
if ref $_[0] eq "HASH" and exists $_[0]{'Name'} |
|
1832
|
0 |
0 |
if defined $_[1] and $_[1] |
|
1834
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
1845
|
0 |
0 |
if ($@) |
|
1852
|
0 |
0 |
if (ref $vars->{$key} eq "HASH" and %{$_[0];} eq %{$vars->{$key};}) |
|
1859
|
0 |
0 |
if ($@) |
|
1866
|
0 |
0 |
if $hash =~ /^_
|
|
1867
|
0 |
0 |
if $hash =~ /^Term::Menus::/ |
|
1868
|
0 |
0 |
if $hash =~ /^Config::/ |
|
1869
|
0 |
0 |
if $hash =~ /^DynaLoader::/ |
|
1870
|
0 |
0 |
if $hash =~ /^warnings::/ |
|
1871
|
0 |
0 |
if $hash =~ /^utf8::/ |
|
1872
|
0 |
0 |
if $hash =~ /^Carp::/ |
|
1873
|
0 |
0 |
if $hash =~ /^fields::attr/ |
|
1874
|
0 |
0 |
if $hash =~ /^Text::Balanced::/ |
|
1875
|
0 |
0 |
if $hash =~ /^Data::Dump::Streamer/ |
|
1876
|
0 |
0 |
if $hash =~ /^re::EXPORT_OK/ |
|
1877
|
0 |
0 |
if $hash =~ /^fa_code::email_addresses/ |
|
1878
|
0 |
0 |
if $hash =~ /^fa_code::email_defaults/ |
|
1879
|
0 |
0 |
if $hash =~ /^PadWalker::/ |
|
1880
|
0 |
0 |
if $hash =~ /^Fcntl::/ |
|
1881
|
0 |
0 |
if $hash =~ /^B::Utils::/ |
|
1882
|
0 |
0 |
if $hash =~ /^ExtUtils::/ |
|
1883
|
0 |
0 |
if $hash =~ /^Exporter::/ |
|
1884
|
0 |
0 |
if $hash =~ /^Moo::/ |
|
1885
|
0 |
0 |
if $hash =~ /^overload::/ |
|
1886
|
0 |
0 |
if $hash =~ /^Term::ReadKey::/ |
|
1887
|
0 |
0 |
if $hash =~ /^main::INC/ |
|
1888
|
0 |
0 |
if $hash =~ /^main::SIG/ |
|
1889
|
0 |
0 |
if $hash =~ /^main::ENV/ |
|
1890
|
0 |
0 |
if $hash =~ /^main[:][^\w]*$/ |
|
1891
|
0 |
0 |
if $hash =~ /^main::[\@]$/ |
|
1892
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::makeplan/ |
|
1893
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::admin_menus/ |
|
1896
|
0 |
0 |
if %test eq %{$_[0];} |
|
1897
|
0 |
0 |
if $name |
|
1904
|
0 |
0 |
if $name |
|
1907
|
0 |
0 |
if $name |
|
1912
|
0 |
0 |
if $name |
|
1930
|
0 |
0 |
if (ref $hashref_to_test eq 'HASH') { } |
|
1931
|
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;}))) { } |
|
2001
|
0 |
0 |
if (-1 < index($text, "][[") and -1 < index($text, "]][")) |
|
2002
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2020
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
2029
|
0 |
0 |
if (0 < $#pks and not $return_from_child_menu) { } |
|
2036
|
0 |
0 |
if ($expand_array_flag) |
|
2041
|
0 |
0 |
if (ref $pn eq 'HASH') { } |
|
|
0 |
0 |
elsif ($pn) { } |
|
2051
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2056
|
0 |
0 |
if $test_regx_flag |
|
2058
|
0 |
0 |
if -1 < index($regx, "(!)?t(?:") |
|
2064
|
0 |
0 |
if $text =~ /[)]\s*$/s |
|
2065
|
0 |
0 |
if ($menu) |
|
2066
|
0 |
0 |
if (-1 < index($menu, $current_menu_name)) { } |
|
2094
|
0 |
0 |
if $test_regx_flag |
|
2096
|
0 |
0 |
if -1 < index($regx, "(!)?t(?:") |
|
2119
|
0 |
0 |
unless $input_text =~ /^\s*$/ |
|
2124
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2156
|
0 |
0 |
if $test_regx_flag |
|
2158
|
0 |
0 |
if -1 < index($regx, "(!)?t(?:") |
|
2167
|
0 |
0 |
if $#instructions == 2 |
|
2168
|
0 |
0 |
if ($#instructions == 1) |
|
2169
|
0 |
0 |
if (exists $$Conveyed{$instructions[0] . "_mbir"}) |
|
2185
|
0 |
0 |
defined $_[1] ? : |
|
2194
|
0 |
0 |
if ($ikey eq "TAB" and exists $input->{'focus'}) |
|
2200
|
0 |
0 |
if $test_regx_flag |
|
2202
|
0 |
0 |
unless exists $input->{'focus'} |
|
2204
|
0 |
0 |
if -1 < index($regx, "(!)?t(?:") |
|
2216
|
0 |
0 |
unless (exists $$input{$instructions[0]}) |
|
2221
|
0 |
0 |
unless defined $$input{$instructions[0]} |
|
2222
|
0 |
0 |
if ($fill_focus) |
|
2223
|
0 |
0 |
if (exists $input->{'focus'}) { } |
|
2225
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Focus'} and $MenuUnit_hash_ref->{'Focus'}) |
|
2241
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2244
|
0 |
0 |
if ($#instructions == 2 and $instructions[2] > 0) |
|
2245
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) { } |
|
2256
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) |
|
2257
|
0 |
0 |
if ($ikey eq 'BACKSPACE') { } |
|
|
0 |
0 |
elsif ($ikey eq 'DELETE') { } |
|
|
0 |
0 |
elsif ($ikey ne 'TAB' and defined $numbor) { } |
|
2264
|
0 |
0 |
if ($length_input > $length_box) |
|
2291
|
0 |
0 |
if ($#newtext == -1 or $#newtext == 0) { } |
|
2296
|
0 |
0 |
if length $front_of_box_top < $frlen |
|
2299
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$#newtext - 1]) |
|
2307
|
0 |
0 |
if ($#newtext == -1) { } |
|
2311
|
0 |
0 |
$#newtext == 0 ? : |
|
2313
|
0 |
0 |
unless ($newtext[$elem] =~ /^\s*$/) |
|
2315
|
0 |
0 |
if length $front_of_box_mid < $frlen |
|
2319
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$elem]) |
|
2327
|
0 |
0 |
if ($#newtext == -1) { } |
|
|
0 |
0 |
elsif ($#newtext == 0) { } |
|
2363
|
0 |
0 |
if (-1 < index($text, "][[") and -1 < index($text, "]][")) |
|
2364
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2384
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
2394
|
0 |
0 |
if $test_regx_flag |
|
2396
|
0 |
0 |
if -1 < index($regx, "(!)?t(?:") |
|
2402
|
0 |
0 |
unless (exists $Conveyed->{$1} or $bang or $test_regx_flag) |
|
2435
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
2440
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
2444
|
0 |
0 |
unless ($Conveyed->{$1}) |
|
2449
|
0 |
0 |
if (ref $replace) |
|
2454
|
0 |
0 |
if ($expand_array_flag) |
|
2458
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2462
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2465
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2466
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2473
|
0 |
0 |
if (ref $picks_from_parent eq 'ARRAY') { } |
|
2478
|
0 |
0 |
if ($expand_array_flag) { } |
|
|
0 |
0 |
elsif ($replace =~ /^.(?
|
|
2481
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2486
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2487
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2492
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2496
|
0 |
0 |
unless $text =~ /^&?(?:.*::)*(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2505
|
0 |
0 |
unless $esc_one |
|
2509
|
0 |
0 |
if (ref $replace) |
|
2514
|
0 |
0 |
if ($expand_array_flag) |
|
2554
|
0 |
0 |
defined $_[1] ? : |
|
2555
|
0 |
0 |
defined $_[2] ? : |
|
2556
|
0 |
0 |
defined $_[3] ? : |
|
2557
|
0 |
0 |
defined $_[4] ? : |
|
2560
|
0 |
0 |
defined $_[5] ? : |
|
2562
|
0 |
0 |
unless (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
2563
|
0 |
0 |
if (grep {/Banner/;} keys %{$MenuUnit_hash_ref;}) |
|
2568
|
0 |
0 |
defined $_[6] ? : |
|
2569
|
0 |
0 |
defined $_[7] ? : |
|
2570
|
0 |
0 |
defined $_[8] ? : |
|
2571
|
0 |
0 |
defined $_[9] ? : |
|
2572
|
0 |
0 |
defined $_[10] ? : |
|
2573
|
0 |
0 |
defined $_[11] ? : |
|
2574
|
0 |
0 |
defined $_[12] ? : |
|
2575
|
0 |
0 |
defined $_[13] ? : |
|
2576
|
0 |
0 |
defined $_[14] ? : |
|
2577
|
0 |
0 |
defined $_[15] ? : |
|
2578
|
0 |
0 |
defined $_[16] ? : |
|
2579
|
0 |
0 |
defined $_[17] ? : |
|
2580
|
0 |
0 |
defined $_[18] ? : |
|
2587
|
0 |
0 |
if ($name) { } |
|
2592
|
0 |
0 |
if ($SavePick and exists $SavePick->{$MenuUnit_hash_ref}) |
|
2610
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
2620
|
0 |
0 |
if ($_[1]) { } |
|
2624
|
0 |
0 |
if ($result) |
|
2629
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) { } |
|
2649
|
0 |
0 |
if ($_[1]) { } |
|
2651
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) { } |
|
2658
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) |
|
2662
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module("main", $Term::Menus::fa_code)) |
|
2667
|
0 |
0 |
if $output eq "+" |
|
2680
|
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') { } |
|
2708
|
0 |
0 |
exists $MenuUnit_hash_ref->{'Select'} && $MenuUnit_hash_ref->{'Select'} ? : |
|
2709
|
0 |
0 |
unless $gotmany |
|
2710
|
0 |
0 |
if ($pick and exists $$FullMenu{$_[0]}[3]{$_[1][$pick - 1]}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
|
0 |
0 |
elsif ($_[3]) { } |
|
2711
|
0 |
0 |
if ($pick and exists $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Convey'}) |
|
2714
|
0 |
0 |
if (0 < $#{[keys %{$_[2];}];}) { } |
|
2726
|
0 |
0 |
if $convey eq "" |
|
2727
|
0 |
0 |
if (ref $convey eq "ARRAY" and $#{$convey;} == 0) |
|
2740
|
0 |
0 |
if not $convey or ref $convey eq "ARRAY" and $#{$convey;} == -1 |
|
2742
|
0 |
0 |
if (exists $$FullMenu{$_[0]}[2]{'__FA_Banner__'}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
2749
|
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") |
|
2754
|
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)) { } |
|
2775
|
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') { } |
|
2808
|
0 |
0 |
if ($@) |
|
2809
|
0 |
0 |
if (unpack('a11', $@) eq 'FATAL ERROR') { } |
|
2810
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
2822
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
2827
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($Term::Menus::fullauto) { } |
|
2836
|
0 |
0 |
$show_banner_only ? : |
|
2841
|
0 |
0 |
if ($test_item =~ /Convey\s*=\>/) |
|
2842
|
0 |
0 |
if ($convey ne 'SKIP') { } |
|
2848
|
0 |
0 |
if ($test_item =~ /Text\s*=\>/) |
|
2865
|
0 |
0 |
if ($show_banner_only) { } |
|
2869
|
0 |
0 |
if $pick |
|
2870
|
0 |
0 |
if $pick |
|
2871
|
0 |
0 |
if ($pick and ref $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Result'} eq "HASH") |
|
2883
|
0 |
0 |
if ($num_pick - $start <= $display_this_many_items) { } |
|
2889
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref} |
|
2890
|
0 |
0 |
if (not exists $Persists->{$MenuUnit_hash_ref}{'defaults'} and defined do {
[keys %{$$FullMenu{$MenuUnit_hash_ref}[5];}]
}->[0]) |
|
2894
|
0 |
0 |
if ($def) |
|
2895
|
0 |
0 |
if $def eq "*" |
|
2898
|
0 |
0 |
if ($item =~ /$def/) |
|
2905
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref}{'defaults'} |
|
2907
|
0 |
0 |
if (ref $Net::FullAuto::FA_Core::plan eq "HASH") |
|
2911
|
0 |
0 |
if (substr($plannn, 2, 5) eq 'ARRAY') { } |
|
2914
|
0 |
0 |
if $@ |
|
2938
|
0 |
0 |
if $numbor eq "admin" |
|
2940
|
0 |
0 |
if (exists $picks{$picknum}) { } |
|
2942
|
0 |
0 |
if ($return_from_child_menu) { } |
|
2954
|
0 |
0 |
$select_many || keys %{$$MenuUnit_hash_ref{'Select'};} ? : |
|
2955
|
0 |
0 |
if ($gotmany and $numbor =~ /^[Ff]$/ or $picks{$picknum} ne "+" and $picks{$picknum} ne "-" and not $gotmany) |
|
2963
|
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];}) |
|
2969
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[3]{$all_menu_items_array[$picknum - 1]}) { } |
|
2984
|
0 |
0 |
if $menu_return_debug |
|
2985
|
0 |
0 |
if $@ |
|
2986
|
0 |
0 |
unless ref $menu_output |
|
2987
|
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) { } |
|
3000
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3001
|
0 |
0 |
if $Term::Menus::fa_code |
|
3006
|
0 |
0 |
if (ref $sub eq "CODE") |
|
3007
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3013
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3038
|
0 |
0 |
if ($@) |
|
3039
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3041
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3048
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3053
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3065
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3072
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3077
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3083
|
0 |
0 |
if (-1 < $#resu) |
|
3084
|
0 |
0 |
if ($resu[0] eq "<") |
|
3085
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3095
|
0 |
0 |
if ($subfile) { } |
|
3097
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3103
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3121
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3124
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3131
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3132
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3162
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3168
|
0 |
0 |
if $@ |
|
3171
|
0 |
0 |
if ($@) |
|
3172
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3174
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3180
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3185
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3196
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3202
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3207
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3213
|
0 |
0 |
if (-1 < $#resu) |
|
3214
|
0 |
0 |
if ($resu[0] eq "<") |
|
3215
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3245
|
0 |
0 |
if exists $FullMenu->{$MenuUnit_hash_ref}[7]{$all_menu_items_array[$picknum - 1]} |
|
3246
|
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]}/) |
|
3259
|
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]}) |
|
3269
|
0 |
0 |
if (exists $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display} and $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display}) { } |
|
3276
|
0 |
0 |
unless $mark =~ /^ +$/ |
|
3278
|
0 |
0 |
if $Persists->{$parent_menu}{'defaults'} |
|
3279
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[9]) |
|
3286
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'}[1] eq $picknum || $MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3289
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0]) { } |
|
3290
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3302
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$picknum - 1]}) |
|
3306
|
0 |
0 |
if ($tstt =~ /many/i) |
|
3310
|
0 |
0 |
if ($mark =~ /^ +$/ or (exists $picks{$picknum} or exists $picks{$picknum_for_display})) |
|
3318
|
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) |
|
3344
|
0 |
0 |
if ($answ eq "]quit[") |
|
3347
|
0 |
0 |
if (-1 == index($answ, "result saved")) |
|
3349
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3362
|
0 |
0 |
do {
not $no_wantarray if wantarray
} ? : |
|
|
0 |
0 |
do {
$Persists->{$MenuUnit_hash_ref}{'defaults'}
} ? : |
|
|
0 |
0 |
$Persists->{'unattended'} ? : |
|
3363
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3364
|
0 |
0 |
if ($noclear) { } |
|
3365
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3375
|
0 |
0 |
if ($select_many or keys %{${$MenuUnit_hash_ref;}{'Select'};}) { } |
|
3377
|
0 |
0 |
unless (keys %{$$FullMenu{$MenuUnit_hash_ref}[1];}) |
|
3380
|
0 |
0 |
if ($mark_flg == 1 or $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3384
|
0 |
0 |
if ($filtered_menu) |
|
3387
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
3393
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
|
0 |
0 |
elsif ($filtered_menu) { } |
|
3397
|
0 |
0 |
if ($filtered_menu) { } |
|
3407
|
0 |
0 |
if ($display_this_many_items < $num_pick) { } |
|
3417
|
0 |
0 |
if ($term_input) { } |
|
3419
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Input'} and $MenuUnit_hash_ref->{'Input'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
3423
|
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" |
|
3437
|
0 |
0 |
if ($show_banner_only) { } |
|
3448
|
0 |
0 |
if wantarray |
|
3459
|
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]$/) { } |
|
3463
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
3467
|
0 |
0 |
if ($filtered_menu) { } |
|
3475
|
0 |
0 |
if (-1 == $#keys) |
|
3476
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
3477
|
0 |
0 |
if ($filtered_menu) |
|
3482
|
0 |
0 |
if $def eq "*" |
|
3483
|
0 |
0 |
if ($def) |
|
3487
|
0 |
0 |
if ($item =~ /$def/) |
|
3495
|
0 |
0 |
if (-1 == $#keys) |
|
3496
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3497
|
0 |
0 |
if ($noclear) { } |
|
3498
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3512
|
0 |
0 |
if ($term_input) { } |
|
3523
|
0 |
0 |
if lc $choice ne "quit" |
|
3535
|
0 |
0 |
unless exists do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]} and keys %{do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]};} |
|
3536
|
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}) { } |
|
3539
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3543
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3548
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3552
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3557
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3561
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3566
|
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) |
|
3571
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3576
|
0 |
0 |
unless ($got_default) |
|
3587
|
0 |
0 |
if $return_values |
|
3593
|
0 |
0 |
if $one |
|
3598
|
0 |
0 |
if ($one) { } |
|
|
0 |
0 |
elsif ($sorted and $sorted eq 'forward') { } |
|
3603
|
0 |
0 |
if $#spl == -1 |
|
3607
|
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]}) { } |
|
3620
|
0 |
0 |
if (not $sorted) { } |
|
3621
|
0 |
0 |
if $select_many |
|
3630
|
0 |
0 |
if (exists $picks{$num}) { } |
|
3641
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
3661
|
0 |
0 |
if $menu_return_debug |
|
3662
|
0 |
0 |
if $@ |
|
3663
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
3664
|
0 |
0 |
if ((values %{$menu_output;})[0] eq "recurse") |
|
3681
|
0 |
0 |
if $@ |
|
3683
|
0 |
0 |
unless ref $menu_output |
|
3684
|
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) { } |
|
3694
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3695
|
0 |
0 |
if $Term::Menus::fa_code |
|
3700
|
0 |
0 |
if (ref $sub eq "CODE") |
|
3701
|
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) |
|
3706
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3724
|
0 |
0 |
if ($@) |
|
3725
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3727
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3732
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3737
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3747
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3752
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3757
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3762
|
0 |
0 |
if (-1 < $#resu) |
|
3763
|
0 |
0 |
if ($resu[0] eq "<") |
|
3764
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3774
|
0 |
0 |
if ($subfile) { } |
|
3776
|
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) |
|
3781
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3799
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3801
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3807
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3808
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3830
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3836
|
0 |
0 |
if $@ |
|
3839
|
0 |
0 |
if ($@) |
|
3840
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3841
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3846
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3851
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3861
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3866
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
3871
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3876
|
0 |
0 |
if (-1 < $#resu) |
|
3877
|
0 |
0 |
if ($resu[0] eq "<") |
|
3878
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3896
|
0 |
0 |
if ($filtered_menu) |
|
3909
|
0 |
0 |
if ($parent_menu) { } |
|
3915
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3918
|
0 |
0 |
if $def eq "*" |
|
3919
|
0 |
0 |
if ($def) |
|
3922
|
0 |
0 |
if ($item =~ /$def/) |
|
3934
|
0 |
0 |
if $select_many |
|
3949
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
3965
|
0 |
0 |
if $menu_return_debug |
|
3966
|
0 |
0 |
if $@ |
|
3967
|
0 |
0 |
unless ref $menu_output |
|
3968
|
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) { } |
|
3977
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3978
|
0 |
0 |
if $Term::Menus::fa_code |
|
3983
|
0 |
0 |
if (ref $sub eq "CODE") |
|
3984
|
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) |
|
3989
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4007
|
0 |
0 |
if ($@) |
|
4008
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4010
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4015
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4020
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4030
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4035
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4040
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4045
|
0 |
0 |
if (-1 < $#resu) |
|
4046
|
0 |
0 |
if ($resu[0] eq "<") |
|
4047
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4057
|
0 |
0 |
if ($subfile) { } |
|
4059
|
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) |
|
4064
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4082
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4084
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4090
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4091
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4113
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4119
|
0 |
0 |
if $@ |
|
4122
|
0 |
0 |
if ($@) |
|
4123
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4124
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4129
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4134
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4144
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4149
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4154
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4159
|
0 |
0 |
if (-1 < $#resu) |
|
4160
|
0 |
0 |
if ($resu[0] eq "<") |
|
4161
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4179
|
0 |
0 |
if ($filtered_menu) |
|
4189
|
0 |
0 |
if $one |
|
4193
|
0 |
0 |
unless (exists $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
4196
|
0 |
0 |
if $def eq "*" |
|
4197
|
0 |
0 |
if ($def) |
|
4201
|
0 |
0 |
if ($item =~ /$def/) |
|
4211
|
0 |
0 |
if ($pik =~ /$one/s) |
|
4216
|
0 |
0 |
if $#spl == -1 |
|
4217
|
0 |
0 |
if $select_many |
|
4225
|
0 |
0 |
if (exists $picks{$num}) { } |
|
|
0 |
0 |
elsif ($def and $text =~ /$def/) { } |
|
4240
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
$$FullMenu{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
4255
|
0 |
0 |
if $menu_return_debug |
|
4256
|
0 |
0 |
if $@ |
|
4257
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
4258
|
0 |
0 |
if ((values %{$menu_output;})[0] eq "recurse") |
|
4275
|
0 |
0 |
if $menu_return_debug |
|
4276
|
0 |
0 |
if $@ |
|
4278
|
0 |
0 |
unless ref $menu_output |
|
4279
|
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) { } |
|
4290
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4291
|
0 |
0 |
if $Term::Menus::fa_code |
|
4296
|
0 |
0 |
if (ref $sub eq "CODE") |
|
4297
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4302
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4320
|
0 |
0 |
if ($@) |
|
4321
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4323
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4328
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4333
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4343
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4348
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4353
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4358
|
0 |
0 |
if (-1 < $#resu) |
|
4359
|
0 |
0 |
if ($resu[0] eq "<") |
|
4360
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4370
|
0 |
0 |
if ($subfile) { } |
|
4372
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4377
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4395
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4397
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4403
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4404
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4426
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4432
|
0 |
0 |
if $@ |
|
4435
|
0 |
0 |
if ($@) |
|
4436
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4437
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4442
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4447
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4457
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4462
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4467
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4472
|
0 |
0 |
if (-1 < $#resu) |
|
4473
|
0 |
0 |
if ($resu[0] eq "<") |
|
4474
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4492
|
0 |
0 |
if ($recurse_level == 1) { } |
|
|
0 |
0 |
elsif (grep {/\+|\*/;} values %picks) { } |
|
4502
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
4505
|
0 |
0 |
if $sp_copy{$key} eq "+" |
|
4509
|
0 |
0 |
if ($parent_menu->{'Scroll'}[1] > 1 and not exists $main::maintain_scroll_flag->{$parent_menu}) |
|
4531
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
4535
|
0 |
0 |
if ref $menu_result eq "CODE" |
|
4553
|
0 |
0 |
if $menu_return_debug |
|
4554
|
0 |
0 |
if $@ |
|
4555
|
0 |
0 |
unless ref $menu_output |
|
4556
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
4564
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
4585
|
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) { } |
|
4588
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4589
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4594
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4600
|
0 |
0 |
unless ($got_default) |
|
4609
|
0 |
0 |
if $Term::Menus::fa_code |
|
4614
|
0 |
0 |
if (ref $sub eq "CODE") |
|
4615
|
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) |
|
4620
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4638
|
0 |
0 |
if ($@) |
|
4639
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4641
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4646
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4651
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4661
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4666
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4671
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4676
|
0 |
0 |
if (-1 < $#resu) |
|
4677
|
0 |
0 |
if ($resu[0] eq "<") |
|
4678
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4688
|
0 |
0 |
if ($subfile) { } |
|
4690
|
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) |
|
4695
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4713
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4715
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4721
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4722
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4744
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4750
|
0 |
0 |
if $@ |
|
4753
|
0 |
0 |
if ($@) |
|
4754
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4755
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4760
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4765
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4775
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4780
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
4785
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4790
|
0 |
0 |
if (-1 < $#resu) |
|
4791
|
0 |
0 |
if ($resu[0] eq "<") |
|
4792
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4810
|
0 |
0 |
if $^O ne "cygwin" |
|
4818
|
0 |
0 |
if (not exists $Net::FullAuto::FA_Core::admin_menus{&pw($MenuUnit_hash_ref)}) { } |
|
4821
|
0 |
0 |
if $Net::FullAuto::FA_Core::admin_menu |
|
4823
|
0 |
0 |
if $menu_output[0] ne "-" and $menu_output[0] ne "+" |
|
4831
|
0 |
0 |
unless ($select_many or keys %{$$MenuUnit_hash_ref{"Select"};}) |
|
4836
|
0 |
0 |
if ($filtered_menu) { } |
|
4847
|
0 |
0 |
if ($select_many or exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$pck]}) |
|
4861
|
0 |
0 |
if (exists $picks{$pick}) |
|
4873
|
0 |
0 |
if defined $parent_menu |
|
4875
|
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') { } |
|
4876
|
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) { } |
|
4879
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != 1 |
|
4881
|
0 |
0 |
if $num_pick |
|
4882
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4884
|
0 |
0 |
if ($curscreennum - $remainder == $MenuUnit_hash_ref->{'Scroll'}[1] and $curscreennum == $num_pick) { } |
|
|
0 |
0 |
elsif ($start == $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
4890
|
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) |
|
4907
|
0 |
0 |
if $ikey eq "PAGEUP" and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4919
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4921
|
0 |
0 |
if ($num_pick == $start + $choose_num) |
|
4925
|
0 |
0 |
if ($remainder) { } |
|
4935
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4944
|
0 |
0 |
if ($^O eq 'cygwin') { } |
|
4955
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
4957
|
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) { } |
|
4961
|
0 |
0 |
if $num_pick |
|
4962
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4965
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
4966
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
4967
|
0 |
0 |
if ($display_this_many_items < $num_pick - $start) { } |
|
4982
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
4984
|
0 |
0 |
if ($show_banner_only) { } |
|
|
0 |
0 |
elsif ($display_this_many_items < $num_pick - $start) { } |
|
|
0 |
0 |
elsif ($ikey ne 'PAGEDOWN') { } |
|
4985
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) { } |
|
4989
|
0 |
0 |
if $num_pick |
|
4990
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4993
|
0 |
0 |
if ($parent_menu and exists $parent_menu->{'Scroll'}) |
|
4994
|
0 |
0 |
if (ref $parent_menu->{'Scroll'} eq "ARRAY") |
|
4996
|
0 |
0 |
if ($curscreennum + $display_this_many_items < $parent_menu->{'Scroll'}[1] and $parent_menu->{'Scroll'}[1] < $numpick) |
|
5012
|
0 |
0 |
if exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
5017
|
0 |
0 |
unless ($show_banner_only or not $numbor =~ /^\d+/) |
|
5024
|
0 |
0 |
if (not keys %picks && $numbor =~ /^[Ff]$/ || $numbor =~ /^\d+|admin$/ || $return_from_child_menu) { } |
|
|
0 |
0 |
elsif (exists $pn{$numbor} or keys %picks and $numbor =~ /^[Ff]$/) { } |
|
5026
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5032
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5034
|
0 |
0 |
if exists $picks{'__FA_Banner__'} |
|
5035
|
0 |
0 |
unless %pn |
|
5037
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
5039
|
0 |
0 |
if $parent_menu |
|
5041
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5042
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5056
|
0 |
0 |
$numbor =~ /^\d+$/ ? : |
|
5058
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'} and not defined $MenuUnit_hash_ref->{'Result'}) |
|
5100
|
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}}) { } |
|
5103
|
0 |
0 |
if ($filtered_menu and exists $SavePick->{$parent_menu}{$numbor}) { } |
|
|
0 |
0 |
elsif (exists $picks{$numbor}) { } |
|
5105
|
0 |
0 |
if ($Persists->{$parent_menu}{'defaults'}) |
|
5109
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5110
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5132
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5137
|
0 |
0 |
if $filtered_menu |
|
5148
|
0 |
0 |
if $filtered_menu |
|
5152
|
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 '-') { } |
|
5168
|
0 |
0 |
if ($skip == 0) |
|
5176
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5193
|
0 |
0 |
if ($numbor =~ /^[Ff]$/) |
|
5197
|
0 |
0 |
if (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
5200
|
0 |
0 |
unless $key =~ /Item_/ |
|
5203
|
0 |
0 |
if ($#items == 0 and ref $items[0] eq "HASH" and not grep({/Item_/;} keys %{$items[0];}) and grep {/Banner/;} keys %{$items[0];}) |
|
5209
|
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]})) |
|
5221
|
0 |
0 |
$filtered_menu ? : |
|
5222
|
0 |
0 |
if ($filtered_menu) |
|
5237
|
0 |
0 |
if ($pst =~ /0$/) |
|
5245
|
0 |
0 |
unless ($filtered_menu) |
|
5246
|
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]}) { } |
|
5269
|
0 |
0 |
if $numbor |
|
5270
|
0 |
0 |
$numbor_is_eff ? : |
|
5271
|
0 |
0 |
if (exists $picks{$numbor}) |
|
5277
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$numbor} ne ' ') { } |
|
5288
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5305
|
0 |
0 |
unless ($show_banner_only) |
|
5308
|
0 |
0 |
unless $filtered_menu |
|
5311
|
0 |
0 |
unless $filtered_menu |
|
5313
|
0 |
0 |
unless $filtered_menu |
|
5316
|
0 |
0 |
unless $select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{$numbor} |
|
5317
|
0 |
0 |
unless keys %picks and $numbor =~ /^[Ff]$/ |
|
5327
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
|
0 |
0 |
elsif ($numbor) { } |
|
5337
|
0 |
0 |
unless (exists $SaveMMap->{$cur_menu}) |
|
5338
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
5345
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
5361
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
5368
|
0 |
0 |
if ($filtered_menu) |
|
5386
|
0 |
0 |
if (exists $Selected->{$cur_menu}{'__FA_Banner__'}) { } |
|
5390
|
0 |
0 |
if ref $menu_result eq "CODE" |
|
5407
|
0 |
0 |
if $menu_return_debug |
|
5408
|
0 |
0 |
if $@ |
|
5409
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
5417
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
5420
|
0 |
0 |
if $num_pick |
|
5421
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
5423
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1] and $display_this_many_items < $num_pick - $start) |
|
5427
|
0 |
0 |
if ($start + $remainder == $num_pick) { } |
|
5451
|
0 |
0 |
unless ref $menu_output |
|
5452
|
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) { } |
|
5453
|
0 |
0 |
if (grep {/\+|\*/;} values %picks) { } |
|
5460
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
5463
|
0 |
0 |
if $sp_copy{$key} eq "+" |
|
5481
|
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) |
|
5486
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5492
|
0 |
0 |
unless ($got_default) |
|
5501
|
0 |
0 |
if $Term::Menus::fa_code |
|
5507
|
0 |
0 |
if (ref $sub eq "CODE") |
|
5508
|
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) |
|
5513
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5532
|
0 |
0 |
if ($@) |
|
5533
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5535
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5541
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5546
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5556
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5562
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5567
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5572
|
0 |
0 |
if (-1 < $#resu) |
|
5573
|
0 |
0 |
if ($resu[0] eq "<") |
|
5578
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5588
|
0 |
0 |
if ($subfile) { } |
|
5590
|
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) |
|
5595
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5613
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
5615
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5622
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
5623
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
5641
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5647
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5655
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5661
|
0 |
0 |
if $@ |
|
5664
|
0 |
0 |
if ($@) |
|
5665
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5667
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5672
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5677
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5687
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5692
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5697
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5702
|
0 |
0 |
if (-1 < $#resu) |
|
5703
|
0 |
0 |
if ($resu[0] eq "<") |
|
5708
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5721
|
0 |
0 |
if (not $numbor =~ /^[Ff]$/ and exists $picks{$numbor}) |
|
5722
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5734
|
0 |
0 |
if (keys %{$$FullMenu{$MenuUnit_hash_ref}[2];}) { } |
|
5735
|
0 |
0 |
if $numbor =~ /^[Ff]$/ |
|
5739
|
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]}) { } |
|
5744
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
5751
|
0 |
0 |
if ($data_dump_streamer) |
|
5767
|
0 |
0 |
if ($@) |
|
5768
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5769
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5774
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5779
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5789
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5794
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5799
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5804
|
0 |
0 |
if (-1 < $#resu) |
|
5805
|
0 |
0 |
if ($resu[0] eq "<") |
|
5806
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5831
|
0 |
0 |
if (wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($#resu == 0) { } |
|
5839
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$pn{$numbor}[0]}) |
|
5850
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5855
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5861
|
0 |
0 |
unless ($got_default) |
|
5870
|
0 |
0 |
if $Term::Menus::fa_code |
|
5875
|
0 |
0 |
if (ref $sub eq "CODE") |
|
5876
|
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) |
|
5881
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5900
|
0 |
0 |
if ($@) |
|
5901
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5903
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5908
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5913
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5923
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5928
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
5933
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5938
|
0 |
0 |
if (-1 < $#resu) |
|
5939
|
0 |
0 |
if ($resu[0] eq "<") |
|
5940
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5950
|
0 |
0 |
if ($subfile) { } |
|
5952
|
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) |
|
5957
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5975
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
5977
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5983
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
5984
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6006
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6012
|
0 |
0 |
if $@ |
|
6015
|
0 |
0 |
if ($@) |
|
6016
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6017
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6022
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6027
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6037
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6042
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6047
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6052
|
0 |
0 |
if (-1 < $#resu) |
|
6053
|
0 |
0 |
if ($resu[0] eq "<") |
|
6054
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6071
|
0 |
0 |
if ($show_banner_only) { } |
|
6078
|
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))) { } |
|
6095
|
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/) |
|
6101
|
0 |
0 |
unless $select_many |
|
6109
|
0 |
0 |
$show_banner_only ? : |
|
6112
|
0 |
0 |
if $Selected->{$MenuUnit_hash_ref}{$item} |
|
6128
|
0 |
0 |
if ($@) |
|
6129
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6130
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6135
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6140
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6150
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6155
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6160
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6165
|
0 |
0 |
if (0 == $#resu and ref $resu[0] eq 'CODE') { } |
|
6173
|
0 |
0 |
if (-1 < $#resu) |
|
6174
|
0 |
0 |
if ($resu[0] eq "<") |
|
6175
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif (ref $resu[0] eq 'HASH') { } |
|
6176
|
0 |
0 |
if (1 == $recurse_level) { } |
|
6182
|
0 |
0 |
if (grep {/Item_/;} keys %{$resu[0];} && $parent_menu) { } |
|
6183
|
0 |
0 |
if (exists $FullMenu->{$parent_menu}[2]{'__FA_Banner__'}) { } |
|
6211
|
0 |
0 |
unless $select_many |
|
6221
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
6229
|
0 |
0 |
if (ref $test_item eq "HASH" and grep {/Item_/;} keys %{$test_item;} or $show_banner_only) |
|
6233
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
6243
|
0 |
0 |
unless (exists $SaveMMap->{$MenuUnit_hash_ref}) |
|
6244
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
6251
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
6267
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
6283
|
0 |
0 |
if ($show_banner_only) { } |
|
6290
|
0 |
0 |
unless exists $SaveNext->{$MenuUnit_hash_ref} |
|
6302
|
0 |
0 |
if $menu_return_debug |
|
6303
|
0 |
0 |
if $@ |
|
6304
|
0 |
0 |
unless ref $menu_output |
|
6306
|
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) { } |
|
6329
|
0 |
0 |
if $start + $choose_num < $FullMenu->{$MenuUnit_hash_ref}[11] |
|
6330
|
0 |
0 |
if $display_this_many_items >= $num_pick - $start |
|
6348
|
0 |
0 |
$Term::Menus::fullauto ? : |
|
6353
|
0 |
0 |
if (ref $sub eq "CODE") |
|
6354
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6359
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6376
|
0 |
0 |
if ($@) |
|
6377
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6378
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6383
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6388
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6398
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6403
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6408
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6413
|
0 |
0 |
if (-1 < $#resu) |
|
6414
|
0 |
0 |
if ($resu[0] eq "<") |
|
6415
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6416
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6422
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6432
|
0 |
0 |
if ($subfile) { } |
|
6434
|
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) |
|
6439
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6464
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
6466
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6472
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
6473
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6493
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6508
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6514
|
0 |
0 |
if ($@) |
|
6520
|
0 |
0 |
if ($@) |
|
6521
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6522
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6527
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6532
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6542
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6547
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, "*")) |
|
6552
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6557
|
0 |
0 |
if (-1 < $#resu) |
|
6558
|
0 |
0 |
if ($resu[0] eq "<") |
|
6559
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6560
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6566
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6581
|
0 |
0 |
unless $return_from_child_menu |
|
6583
|
0 |
0 |
if $done |
|
6585
|
0 |
0 |
if ($select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{(keys %picks)[0] or ""}) |
|
6592
|
0 |
0 |
if ($MenuUnit_hash_ref) { } |
|
6604
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\d+$/) { } |
|
6610
|
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) |
|
6614
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{"Plan"};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6618
|
0 |
0 |
unless ($got_default) |
|
6627
|
0 |
0 |
if (wantarray) { } |
|
6645
|
0 |
0 |
if (-1 < index($result_string, "][[") and -1 < index($result_string, "]][")) |
|
6651
|
0 |
0 |
if (unpack('a5', $elem) eq 'eval ') { } |
|
6665
|
0 |
0 |
if -1 == index($sub, "\"") |
|
6674
|
0 |
0 |
if ($arg =~ /^[']/) { } |