| 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])) { } |
|
1053
|
0 |
0 |
if (not $m_flag and -f "$dir/$Term::Menus::fa_menu") |
|
1058
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1059
|
0 |
0 |
if (not exists $menudups{$1}) { } |
|
1067
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1068
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1075
|
0 |
0 |
if (not $s_flag and -f "$dir/$Term::Menus::fa_code") |
|
1080
|
0 |
0 |
if ($line =~ /^[ \t]*\%(.*)\s*=/) |
|
1081
|
0 |
0 |
if (not exists $dups{$1}) { } |
|
1090
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1091
|
0 |
0 |
unless $Net::FullAuto::FA_Core::cron |
|
1100
|
0 |
0 |
if ($Term::Menus::fullauto) |
|
1102
|
0 |
0 |
if (eval "\\%$symname") |
|
1105
|
0 |
0 |
if (ref $hashref->{$key} eq 'HASH') |
|
1107
|
0 |
0 |
if (lc $ky eq 'text') |
|
1144
|
0 |
0 |
if $cache |
|
1145
|
0 |
0 |
unless $cache |
|
1150
|
0 |
0 |
if $to |
|
1151
|
0 |
0 |
if ($code) { } |
|
|
0 |
0 |
elsif (ref $start_menu_ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($start_menu_ref) { } |
|
1154
|
0 |
0 |
unless (keys %LookUpMenuName) |
|
1157
|
0 |
0 |
if ($Net::FullAuto::FA_Core::plan) |
|
1160
|
0 |
0 |
if $@ |
|
1195
|
0 |
0 |
if ($@) |
|
1197
|
0 |
0 |
if $code |
|
1211
|
0 |
0 |
if ($Term::Menus::fullauto and defined $Net::FullAuto::FA_Core::service and $Net::FullAuto::FA_Core::service) |
|
1217
|
0 |
0 |
unless chdir '/' |
|
1219
|
0 |
0 |
unless open STDIN, '/dev/null' |
|
1220
|
0 |
0 |
unless open STDOUT, '>/dev/null' |
|
1221
|
0 |
0 |
unless open STDERR, '>/dev/null' |
|
1222
|
0 |
0 |
unless defined(my $pid = fork) |
|
1223
|
0 |
0 |
if $pid |
|
1224
|
0 |
0 |
unless $pid = &setsid |
|
1229
|
0 |
0 |
defined $_[1] ? : |
|
1230
|
0 |
0 |
if $Term::Menus::fa_code |
|
1235
|
0 |
0 |
if $@ |
|
1249
|
0 |
0 |
if $map_count < $count |
|
1270
|
0 |
0 |
if (10 < length $_[0] and unpack('a11', $_[0]) eq 'FATAL ERROR') { } |
|
1271
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1284
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1289
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1299
|
0 |
0 |
unless $banner |
|
1303
|
0 |
0 |
defined $_[4] ? : |
|
1309
|
0 |
0 |
if (ref $banner eq 'CODE') { } |
|
|
0 |
0 |
elsif (keys %{$Conveyed;} or $picks_from_parent) { } |
|
1311
|
0 |
0 |
if ($data_dump_streamer) |
|
1331
|
0 |
0 |
if ($@) |
|
1332
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1333
|
0 |
0 |
if (wantarray) |
|
1336
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1341
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1345
|
0 |
0 |
if (wantarray) |
|
1348
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1353
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1365
|
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) |
|
1370
|
0 |
0 |
if (not $banner =~ /::/) { } |
|
1394
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Select'}) { } |
|
1395
|
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) { } |
|
1410
|
0 |
0 |
if ($picks_from_parent and -1 < index($picks_from_parent, '*')) |
|
1415
|
0 |
0 |
if ($picks_from_parent =~ /\](Cron|Batch|Unattended|FullAuto)\[/i) |
|
1419
|
0 |
0 |
defined $_[2] ? : |
|
1420
|
0 |
0 |
defined $_[3] ? : |
|
1421
|
0 |
0 |
defined $_[4] ? : |
|
1422
|
0 |
0 |
defined $_[5] ? : |
|
1423
|
0 |
0 |
defined $_[6] ? : |
|
1424
|
0 |
0 |
defined $_[7] ? : |
|
1425
|
0 |
0 |
defined $_[8] ? : |
|
1426
|
0 |
0 |
defined $_[9] ? : |
|
1427
|
0 |
0 |
defined $_[10] ? : |
|
1430
|
0 |
0 |
if (defined $_[11] and $_[11] or (caller)[0] ne 'Term::Menus' and not wantarray) |
|
1434
|
0 |
0 |
if (defined $_[12] and $_[12]) |
|
1437
|
0 |
0 |
if (defined $_[13] and $_[13]) |
|
1448
|
0 |
0 |
if (4 < length $key and substr($key, 0, 4) eq 'Item') |
|
1452
|
0 |
0 |
if $unattended |
|
1454
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
1467
|
0 |
0 |
if (exists $Items{$num}) { } |
|
1468
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Banner'} and not $got_item_flag) { } |
|
1474
|
0 |
0 |
if (exists $Items{$num}{'Negate'} and not keys %{$$MenuUnit_hash_ref{'Select'};}) |
|
1479
|
0 |
0 |
if $Term::Menus::fullauto |
|
1484
|
0 |
0 |
if (exists $Items{$num}{'Convey'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
1486
|
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)) { } |
|
1492
|
0 |
0 |
if ($data_dump_streamer) |
|
1505
|
0 |
0 |
if ref $convey[0] eq 'ARRAY' |
|
1506
|
0 |
0 |
if ($@) |
|
1507
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
1508
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1513
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1518
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1528
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
1533
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
1538
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
1543
|
0 |
0 |
if (0 == $#convey and $convey[0] =~ /^(?:[{](.*)[}])?[<]$/) |
|
1548
|
0 |
0 |
if (defined $picks_from_parent and not ref $picks_from_parent) |
|
1554
|
0 |
0 |
if (not $transformed_convey =~ /::/) { } |
|
1565
|
0 |
0 |
if $item =~ /^\s*$/s |
|
1571
|
0 |
0 |
if (-1 < index($text, "__Master_$$__")) |
|
1576
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/) { } |
|
1577
|
0 |
0 |
if ($text =~ /$Items{$num}{'Include'}/s) { } |
|
1579
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $text =~ /$Items{$num}{'Exclude'}/ |
|
1590
|
0 |
0 |
if (exists $Items{$num}{'Convey'} and $Items{$num}{'Convey'} ne '') { } |
|
|
0 |
0 |
elsif (not exists $Items{$num}{'Convey'}) { } |
|
1597
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1600
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1601
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1610
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1611
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1614
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1616
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1618
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1622
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) |
|
1629
|
0 |
0 |
if (-1 < index($Items{$num}{'Text'}, "__Master_$$__")) |
|
1635
|
0 |
0 |
if (exists $Items{$num}{'Include'}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/) { } |
|
1636
|
0 |
0 |
if ($Items{$num}{'Text'} =~ /$Items{$num}{'Include'}/) { } |
|
1638
|
0 |
0 |
if exists $Items{$num}{'Exclude'} and $Items{$num}{'Text'} =~ /$Items{$num}{'Exclude'}/ |
|
1646
|
0 |
0 |
if exists $Items{$num}{'Convey'} |
|
1648
|
0 |
0 |
if exists $Items{$num}{'Default'} |
|
1650
|
0 |
0 |
if exists $Items{$num}{'Negate'} |
|
1651
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[2]{$text}) { } |
|
|
0 |
0 |
elsif (exists $Items{$num}{'Result'}) { } |
|
1660
|
0 |
0 |
if exists $Items{$num}{'Select'} and $tsttt =~ /many/i |
|
1661
|
0 |
0 |
if (exists $Items{$num}{'Mark'}) |
|
1664
|
0 |
0 |
if $mark{'BLANK'} < $lmt |
|
1666
|
0 |
0 |
if exists $Items{$num}{'Filter'} |
|
1668
|
0 |
0 |
if exists $Items{$num}{'Sort'} |
|
1671
|
0 |
0 |
if exists $Items{$num}{'__NUM__'} |
|
1680
|
0 |
0 |
if exists $_[0]{'Display'} |
|
1682
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and ref $MenuUnit_hash_ref->{'Scroll'} ne 'ARRAY') |
|
1692
|
0 |
0 |
if defined $FullMenu->{$MenuUnit_hash_ref}[5] |
|
1693
|
0 |
0 |
keys %num__ ? : |
|
1698
|
0 |
0 |
if ($select_many or keys %{$$MenuUnit_hash_ref{'Select'};}) { } |
|
1712
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1718
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1721
|
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) { } |
|
1731
|
0 |
0 |
if (ref $$pick[$#{$pick;}] eq 'HASH') |
|
1754
|
0 |
0 |
if (-1 < $#filtered_menu_return) |
|
1761
|
0 |
0 |
if ($Term::Menus::fullauto and $master_substituted) |
|
1764
|
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) { } |
|
1767
|
0 |
0 |
do {
keys %{$$Selected{$MenuUnit_hash_ref};} unless $select_many
} ? : |
|
|
0 |
0 |
keys %{$$SavePick{$MenuUnit_hash_ref};} ? : |
|
1770
|
0 |
0 |
unless $select_many |
|
1783
|
0 |
0 |
if (1 == $recurse and ref $$pick[$#{$pick;}] eq 'HASH') |
|
1787
|
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'};}) { } |
|
1796
|
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;}) { } |
|
1799
|
0 |
0 |
if (wantarray) { } |
|
1812
|
0 |
0 |
if ($picks_from_parent) |
|
1828
|
0 |
0 |
if ref $_[0] eq 'HASH' and exists $_[0]{'Name'} |
|
1830
|
0 |
0 |
if defined $_[1] and $_[1] |
|
1832
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
1843
|
0 |
0 |
if ($@) |
|
1850
|
0 |
0 |
if (ref $vars->{$key} eq 'HASH' and %{$_[0];} eq %{$vars->{$key};}) |
|
1857
|
0 |
0 |
if ($@) |
|
1864
|
0 |
0 |
if $hash =~ /^_
|
|
1865
|
0 |
0 |
if $hash =~ /^Term::Menus::/ |
|
1866
|
0 |
0 |
if $hash =~ /^Config::/ |
|
1867
|
0 |
0 |
if $hash =~ /^DynaLoader::/ |
|
1868
|
0 |
0 |
if $hash =~ /^warnings::/ |
|
1869
|
0 |
0 |
if $hash =~ /^utf8::/ |
|
1870
|
0 |
0 |
if $hash =~ /^Carp::/ |
|
1871
|
0 |
0 |
if $hash =~ /^fields::attr/ |
|
1872
|
0 |
0 |
if $hash =~ /^Text::Balanced::/ |
|
1873
|
0 |
0 |
if $hash =~ /^Data::Dump::Streamer/ |
|
1874
|
0 |
0 |
if $hash =~ /^re::EXPORT_OK/ |
|
1875
|
0 |
0 |
if $hash =~ /^fa_code::email_addresses/ |
|
1876
|
0 |
0 |
if $hash =~ /^fa_code::email_defaults/ |
|
1877
|
0 |
0 |
if $hash =~ /^PadWalker::/ |
|
1878
|
0 |
0 |
if $hash =~ /^Fcntl::/ |
|
1879
|
0 |
0 |
if $hash =~ /^B::Utils::/ |
|
1880
|
0 |
0 |
if $hash =~ /^ExtUtils::/ |
|
1881
|
0 |
0 |
if $hash =~ /^Exporter::/ |
|
1882
|
0 |
0 |
if $hash =~ /^Moo::/ |
|
1883
|
0 |
0 |
if $hash =~ /^overload::/ |
|
1884
|
0 |
0 |
if $hash =~ /^Term::ReadKey::/ |
|
1885
|
0 |
0 |
if $hash =~ /^main::INC/ |
|
1886
|
0 |
0 |
if $hash =~ /^main::SIG/ |
|
1887
|
0 |
0 |
if $hash =~ /^main::ENV/ |
|
1888
|
0 |
0 |
if $hash =~ /^main[:][^\w]*$/ |
|
1889
|
0 |
0 |
if $hash =~ /^main::[\@]$/ |
|
1890
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::makeplan/ |
|
1891
|
0 |
0 |
if $hash =~ /^Net::FullAuto::FA_Core::admin_menus/ |
|
1894
|
0 |
0 |
if %test eq %{$_[0];} |
|
1895
|
0 |
0 |
if $name |
|
1902
|
0 |
0 |
if $name |
|
1905
|
0 |
0 |
if $name |
|
1910
|
0 |
0 |
if $name |
|
1928
|
0 |
0 |
if (ref $hashref_to_test eq 'HASH') { } |
|
1929
|
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;}))) { } |
|
1999
|
0 |
0 |
if (-1 < index($text, '][[') and -1 < index($text, ']][')) |
|
2000
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2018
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
2027
|
0 |
0 |
if (0 < $#pks and not $return_from_child_menu) { } |
|
2034
|
0 |
0 |
if ($expand_array_flag) |
|
2039
|
0 |
0 |
if (ref $pn eq 'HASH') { } |
|
|
0 |
0 |
elsif ($pn) { } |
|
2049
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2054
|
0 |
0 |
if $test_regx_flag |
|
2056
|
0 |
0 |
if -1 < index($regx, '(!)?t(?:') |
|
2062
|
0 |
0 |
if $text =~ /[)]\s*$/s |
|
2063
|
0 |
0 |
if ($menu) |
|
2064
|
0 |
0 |
if (-1 < index($menu, $current_menu_name)) { } |
|
2092
|
0 |
0 |
if $test_regx_flag |
|
2094
|
0 |
0 |
if -1 < index($regx, '(!)?t(?:') |
|
2117
|
0 |
0 |
unless $input_text =~ /^\s*$/ |
|
2122
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2154
|
0 |
0 |
if $test_regx_flag |
|
2156
|
0 |
0 |
if -1 < index($regx, '(!)?t(?:') |
|
2165
|
0 |
0 |
if $#instructions == 2 |
|
2166
|
0 |
0 |
if ($#instructions == 1) |
|
2167
|
0 |
0 |
if (exists $$Conveyed{$instructions[0] . '_mbir'}) |
|
2183
|
0 |
0 |
defined $_[1] ? : |
|
2192
|
0 |
0 |
if ($ikey eq 'TAB' and exists $input->{'focus'}) |
|
2198
|
0 |
0 |
if $test_regx_flag |
|
2200
|
0 |
0 |
unless exists $input->{'focus'} |
|
2202
|
0 |
0 |
if -1 < index($regx, '(!)?t(?:') |
|
2214
|
0 |
0 |
unless (exists $$input{$instructions[0]}) |
|
2219
|
0 |
0 |
unless defined $$input{$instructions[0]} |
|
2220
|
0 |
0 |
if ($fill_focus) |
|
2221
|
0 |
0 |
if (exists $input->{'focus'}) { } |
|
2223
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Focus'} and $MenuUnit_hash_ref->{'Focus'}) |
|
2239
|
0 |
0 |
if ($line =~ /^(.*)$esc_one(.*)$/) { } |
|
2242
|
0 |
0 |
if ($#instructions == 2 and $instructions[2] > 0) |
|
2243
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) { } |
|
2254
|
0 |
0 |
if ($input->{'focus'}[0] eq $instructions[0]) |
|
2255
|
0 |
0 |
if ($ikey eq 'BACKSPACE') { } |
|
|
0 |
0 |
elsif ($ikey eq 'DELETE') { } |
|
|
0 |
0 |
elsif ($ikey ne 'TAB' and defined $numbor) { } |
|
2262
|
0 |
0 |
if ($length_input > $length_box) |
|
2289
|
0 |
0 |
if ($#newtext == -1 or $#newtext == 0) { } |
|
2294
|
0 |
0 |
if length $front_of_box_top < $frlen |
|
2297
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$#newtext - 1]) |
|
2305
|
0 |
0 |
if ($#newtext == -1) { } |
|
2309
|
0 |
0 |
$#newtext == 0 ? : |
|
2311
|
0 |
0 |
unless ($newtext[$elem] =~ /^\s*$/) |
|
2313
|
0 |
0 |
if length $front_of_box_mid < $frlen |
|
2317
|
0 |
0 |
if ($length_of_front_and_macro <= length $newtext[$elem]) |
|
2325
|
0 |
0 |
if ($#newtext == -1) { } |
|
|
0 |
0 |
elsif ($#newtext == 0) { } |
|
2361
|
0 |
0 |
if (-1 < index($text, '][[') and -1 < index($text, ']][')) |
|
2362
|
0 |
0 |
unless ($text =~ /^\s*\]\[\[\s*/s and $text =~ /\s*\]\]\[\s*$/s) |
|
2382
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
2392
|
0 |
0 |
if $test_regx_flag |
|
2394
|
0 |
0 |
if -1 < index($regx, '(!)?t(?:') |
|
2400
|
0 |
0 |
unless (exists $Conveyed->{$1} or $bang or $test_regx_flag) |
|
2433
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
2438
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
2442
|
0 |
0 |
unless ($Conveyed->{$1}) |
|
2447
|
0 |
0 |
if (ref $replace) |
|
2452
|
0 |
0 |
if ($expand_array_flag) |
|
2456
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) |
|
2460
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2463
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2464
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2471
|
0 |
0 |
if (ref $picks_from_parent eq 'ARRAY') { } |
|
2476
|
0 |
0 |
if ($expand_array_flag) { } |
|
|
0 |
0 |
elsif ($replace =~ /^.(?
|
|
2479
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2484
|
0 |
0 |
if ($replace =~ /^.(?
|
|
2485
|
0 |
0 |
unless $text =~ /^&?(\w+)\s*[(]["'].*["'][)]\s*$/ |
|
2490
|
0 |
0 |
if ($text =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) |
|
2494
|
0 |
0 |
unless $text =~ /^&?(?:.*::)*(\w+)\s*[(]["'].*["'][)]\s*$/ or $replace =~ /^eval / |
|
2503
|
0 |
0 |
unless $esc_one |
|
2507
|
0 |
0 |
if (ref $replace) |
|
2512
|
0 |
0 |
if ($expand_array_flag) |
|
2552
|
0 |
0 |
defined $_[1] ? : |
|
2553
|
0 |
0 |
defined $_[2] ? : |
|
2554
|
0 |
0 |
defined $_[3] ? : |
|
2555
|
0 |
0 |
defined $_[4] ? : |
|
2558
|
0 |
0 |
defined $_[5] ? : |
|
2560
|
0 |
0 |
unless (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
2561
|
0 |
0 |
if (grep {/Banner/;} keys %{$MenuUnit_hash_ref;}) |
|
2566
|
0 |
0 |
defined $_[6] ? : |
|
2567
|
0 |
0 |
defined $_[7] ? : |
|
2568
|
0 |
0 |
defined $_[8] ? : |
|
2569
|
0 |
0 |
defined $_[9] ? : |
|
2570
|
0 |
0 |
defined $_[10] ? : |
|
2571
|
0 |
0 |
defined $_[11] ? : |
|
2572
|
0 |
0 |
defined $_[12] ? : |
|
2573
|
0 |
0 |
defined $_[13] ? : |
|
2574
|
0 |
0 |
defined $_[14] ? : |
|
2575
|
0 |
0 |
defined $_[15] ? : |
|
2576
|
0 |
0 |
defined $_[16] ? : |
|
2577
|
0 |
0 |
defined $_[17] ? : |
|
2578
|
0 |
0 |
defined $_[18] ? : |
|
2585
|
0 |
0 |
if ($name) { } |
|
2590
|
0 |
0 |
if ($SavePick and exists $SavePick->{$MenuUnit_hash_ref}) |
|
2608
|
0 |
0 |
$FullMenu->{$MenuUnit_hash_ref}[11] ? : |
|
2618
|
0 |
0 |
if ($_[1]) { } |
|
2622
|
0 |
0 |
if ($result) |
|
2627
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) { } |
|
2647
|
0 |
0 |
if ($_[1]) { } |
|
2649
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) { } |
|
2656
|
0 |
0 |
if (keys %{$$Selected{$_[0]};}) |
|
2660
|
0 |
0 |
if ($result =~ /^&?(?:.*::)*(\w+)\s*[(]?.*[)]?\s*$/ and grep {$1 eq $_;} list_module('main', $Term::Menus::fa_code)) |
|
2665
|
0 |
0 |
if $output eq '+' |
|
2678
|
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') { } |
|
2706
|
0 |
0 |
exists $MenuUnit_hash_ref->{'Select'} && $MenuUnit_hash_ref->{'Select'} ? : |
|
2707
|
0 |
0 |
unless $gotmany |
|
2708
|
0 |
0 |
if ($pick and exists $$FullMenu{$_[0]}[3]{$_[1][$pick - 1]}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
|
0 |
0 |
elsif ($_[3]) { } |
|
2709
|
0 |
0 |
if ($pick and exists $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Convey'}) |
|
2712
|
0 |
0 |
if (0 < $#{[keys %{$_[2];}];}) { } |
|
2724
|
0 |
0 |
if $convey eq '' |
|
2725
|
0 |
0 |
if (ref $convey eq 'ARRAY' and $#{$convey;} == 0) |
|
2738
|
0 |
0 |
if not $convey or ref $convey eq 'ARRAY' and $#{$convey;} == -1 |
|
2740
|
0 |
0 |
if (exists $$FullMenu{$_[0]}[2]{'__FA_Banner__'}) { } |
|
|
0 |
0 |
elsif ($pick) { } |
|
2747
|
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') |
|
2752
|
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)) { } |
|
2773
|
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') { } |
|
2806
|
0 |
0 |
if ($@) |
|
2807
|
0 |
0 |
if (unpack('a11', $@) eq 'FATAL ERROR') { } |
|
2808
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
2820
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
2825
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($Term::Menus::fullauto) { } |
|
2834
|
0 |
0 |
$show_banner_only ? : |
|
2839
|
0 |
0 |
if ($test_item =~ /Convey\s*=\>/) |
|
2840
|
0 |
0 |
if ($convey ne 'SKIP') { } |
|
2846
|
0 |
0 |
if ($test_item =~ /Text\s*=\>/) |
|
2863
|
0 |
0 |
if ($show_banner_only) { } |
|
2867
|
0 |
0 |
if $pick |
|
2868
|
0 |
0 |
if $pick |
|
2869
|
0 |
0 |
if ($pick and ref $_[0]{$$FullMenu{$_[0]}[4]{$_[1][$pick - 1]}}{'Result'} eq 'HASH') |
|
2881
|
0 |
0 |
if ($num_pick - $start <= $display_this_many_items) { } |
|
2887
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref} |
|
2888
|
0 |
0 |
if (not exists $Persists->{$MenuUnit_hash_ref}{'defaults'} and defined do {
[keys %{$$FullMenu{$MenuUnit_hash_ref}[5];}]
}->[0]) |
|
2892
|
0 |
0 |
if ($def) |
|
2893
|
0 |
0 |
if $def eq '*' |
|
2896
|
0 |
0 |
if ($item =~ /$def/) |
|
2903
|
0 |
0 |
unless exists $Persists->{$MenuUnit_hash_ref}{'defaults'} |
|
2905
|
0 |
0 |
if (ref $Net::FullAuto::FA_Core::plan eq 'HASH') |
|
2909
|
0 |
0 |
if (substr($plannn, 2, 5) eq 'ARRAY') { } |
|
2912
|
0 |
0 |
if $@ |
|
2936
|
0 |
0 |
if $numbor eq 'admin' |
|
2938
|
0 |
0 |
if (exists $picks{$picknum}) { } |
|
2940
|
0 |
0 |
if ($return_from_child_menu) { } |
|
2952
|
0 |
0 |
$select_many || keys %{$$MenuUnit_hash_ref{'Select'};} ? : |
|
2953
|
0 |
0 |
if ($gotmany and $numbor =~ /^[Ff]$/ or $picks{$picknum} ne '+' and $picks{$picknum} ne '-' and not $gotmany) |
|
2961
|
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];}) |
|
2967
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[3]{$all_menu_items_array[$picknum - 1]}) { } |
|
2982
|
0 |
0 |
if $menu_return_debug |
|
2983
|
0 |
0 |
if $@ |
|
2984
|
0 |
0 |
unless ref $menu_output |
|
2985
|
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) { } |
|
2998
|
0 |
0 |
if (1 == $recurse_level) { } |
|
2999
|
0 |
0 |
if $Term::Menus::fa_code |
|
3004
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
3005
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3011
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3036
|
0 |
0 |
if ($@) |
|
3037
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3039
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3046
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3051
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3063
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3070
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3075
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3081
|
0 |
0 |
if (-1 < $#resu) |
|
3082
|
0 |
0 |
if ($resu[0] eq '<') |
|
3083
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3093
|
0 |
0 |
if ($subfile) { } |
|
3095
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
3101
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3119
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3122
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3129
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3130
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3160
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3166
|
0 |
0 |
if $@ |
|
3169
|
0 |
0 |
if ($@) |
|
3170
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3172
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3178
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3183
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3194
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3200
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3205
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3211
|
0 |
0 |
if (-1 < $#resu) |
|
3212
|
0 |
0 |
if ($resu[0] eq '<') |
|
3213
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3243
|
0 |
0 |
if exists $FullMenu->{$MenuUnit_hash_ref}[7]{$all_menu_items_array[$picknum - 1]} |
|
3244
|
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]}/) |
|
3257
|
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]}) |
|
3267
|
0 |
0 |
if (exists $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display} and $SavePick->{$MenuUnit_hash_ref}{$picknum_for_display}) { } |
|
3274
|
0 |
0 |
unless $mark =~ /^ +$/ |
|
3276
|
0 |
0 |
if $Persists->{$parent_menu}{'defaults'} |
|
3277
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[9]) |
|
3284
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'}[1] eq $picknum || $MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3287
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0]) { } |
|
3288
|
0 |
0 |
if ($MenuUnit_hash_ref->{'Scroll'}[0] eq $picknum) |
|
3300
|
0 |
0 |
if (exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$picknum - 1]}) |
|
3304
|
0 |
0 |
if ($tstt =~ /many/i) |
|
3308
|
0 |
0 |
if ($mark =~ /^ +$/ or (exists $picks{$picknum} or exists $picks{$picknum_for_display})) |
|
3316
|
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) |
|
3342
|
0 |
0 |
if ($answ eq ']quit[') |
|
3345
|
0 |
0 |
if (-1 == index($answ, 'result saved')) |
|
3347
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3360
|
0 |
0 |
do {
not $no_wantarray if wantarray
} ? : |
|
|
0 |
0 |
do {
$Persists->{$MenuUnit_hash_ref}{'defaults'}
} ? : |
|
|
0 |
0 |
$Persists->{'unattended'} ? : |
|
3361
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3362
|
0 |
0 |
if ($noclear) { } |
|
3363
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3373
|
0 |
0 |
if ($select_many or keys %{${$MenuUnit_hash_ref;}{'Select'};}) { } |
|
3375
|
0 |
0 |
unless (keys %{$$FullMenu{$MenuUnit_hash_ref}[1];}) |
|
3378
|
0 |
0 |
if ($mark_flg == 1 or $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3382
|
0 |
0 |
if ($filtered_menu) |
|
3385
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
3391
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
|
0 |
0 |
elsif ($filtered_menu) { } |
|
3395
|
0 |
0 |
if ($filtered_menu) { } |
|
3405
|
0 |
0 |
if ($display_this_many_items < $num_pick) { } |
|
3415
|
0 |
0 |
if ($term_input) { } |
|
3417
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Input'} and $MenuUnit_hash_ref->{'Input'}) { } |
|
|
0 |
0 |
elsif ($show_banner_only) { } |
|
3421
|
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' |
|
3435
|
0 |
0 |
if ($show_banner_only) { } |
|
3446
|
0 |
0 |
if wantarray |
|
3457
|
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]$/) { } |
|
3461
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
3465
|
0 |
0 |
if ($filtered_menu) { } |
|
3473
|
0 |
0 |
if (-1 == $#keys) |
|
3474
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) { } |
|
3475
|
0 |
0 |
if ($filtered_menu) |
|
3480
|
0 |
0 |
if $def eq '*' |
|
3481
|
0 |
0 |
if ($def) |
|
3485
|
0 |
0 |
if ($item =~ /$def/) |
|
3493
|
0 |
0 |
if (-1 == $#keys) |
|
3494
|
0 |
0 |
if ($^O ne 'cygwin') { } |
|
3495
|
0 |
0 |
if ($noclear) { } |
|
3496
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'MSWin64') { } |
|
3510
|
0 |
0 |
if ($term_input) { } |
|
3521
|
0 |
0 |
if lc $choice ne 'quit' |
|
3533
|
0 |
0 |
unless exists do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]} and keys %{do {
$FullMenu
}->{$chosen}[2]{${$_[0];}[$pk - 1]};} |
|
3534
|
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}) { } |
|
3537
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3541
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3546
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3550
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3555
|
0 |
0 |
if (-1 < index($txt, "__Master_$$__")) |
|
3559
|
0 |
0 |
unless (exists $dupseen{$txt}) |
|
3564
|
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) |
|
3569
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3574
|
0 |
0 |
unless ($got_default) |
|
3585
|
0 |
0 |
if $return_values |
|
3591
|
0 |
0 |
if $one |
|
3596
|
0 |
0 |
if ($one) { } |
|
|
0 |
0 |
elsif ($sorted and $sorted eq 'forward') { } |
|
3601
|
0 |
0 |
if $#spl == -1 |
|
3605
|
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]}) { } |
|
3618
|
0 |
0 |
if (not $sorted) { } |
|
3619
|
0 |
0 |
if $select_many |
|
3628
|
0 |
0 |
if (exists $picks{$num}) { } |
|
3639
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
3659
|
0 |
0 |
if $menu_return_debug |
|
3660
|
0 |
0 |
if $@ |
|
3661
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
3662
|
0 |
0 |
if ((values %{$menu_output;})[0] eq 'recurse') |
|
3679
|
0 |
0 |
if $@ |
|
3681
|
0 |
0 |
unless ref $menu_output |
|
3682
|
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) { } |
|
3692
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3693
|
0 |
0 |
if $Term::Menus::fa_code |
|
3698
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
3699
|
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) |
|
3704
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3722
|
0 |
0 |
if ($@) |
|
3723
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3725
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3730
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3735
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3745
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3750
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3755
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3760
|
0 |
0 |
if (-1 < $#resu) |
|
3761
|
0 |
0 |
if ($resu[0] eq '<') |
|
3762
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3772
|
0 |
0 |
if ($subfile) { } |
|
3774
|
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) |
|
3779
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
3797
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
3799
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3805
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
3806
|
0 |
0 |
if ($FullMenu->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
3828
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
3834
|
0 |
0 |
if $@ |
|
3837
|
0 |
0 |
if ($@) |
|
3838
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
3839
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3844
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3849
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3859
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
3864
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
3869
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
3874
|
0 |
0 |
if (-1 < $#resu) |
|
3875
|
0 |
0 |
if ($resu[0] eq '<') |
|
3876
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
3894
|
0 |
0 |
if ($filtered_menu) |
|
3907
|
0 |
0 |
if ($parent_menu) { } |
|
3913
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
3916
|
0 |
0 |
if $def eq '*' |
|
3917
|
0 |
0 |
if ($def) |
|
3920
|
0 |
0 |
if ($item =~ /$def/) |
|
3932
|
0 |
0 |
if $select_many |
|
3947
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
${$FullMenu;}{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
3963
|
0 |
0 |
if $menu_return_debug |
|
3964
|
0 |
0 |
if $@ |
|
3965
|
0 |
0 |
unless ref $menu_output |
|
3966
|
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) { } |
|
3975
|
0 |
0 |
if (1 == $recurse_level) { } |
|
3976
|
0 |
0 |
if $Term::Menus::fa_code |
|
3981
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
3982
|
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) |
|
3987
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4005
|
0 |
0 |
if ($@) |
|
4006
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4008
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4013
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4018
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4028
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4033
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4038
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4043
|
0 |
0 |
if (-1 < $#resu) |
|
4044
|
0 |
0 |
if ($resu[0] eq '<') |
|
4045
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4055
|
0 |
0 |
if ($subfile) { } |
|
4057
|
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) |
|
4062
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4080
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4082
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4088
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4089
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4111
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4117
|
0 |
0 |
if $@ |
|
4120
|
0 |
0 |
if ($@) |
|
4121
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4122
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4127
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4132
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4142
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4147
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4152
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4157
|
0 |
0 |
if (-1 < $#resu) |
|
4158
|
0 |
0 |
if ($resu[0] eq '<') |
|
4159
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4177
|
0 |
0 |
if ($filtered_menu) |
|
4187
|
0 |
0 |
if $one |
|
4191
|
0 |
0 |
unless (exists $Persists->{$MenuUnit_hash_ref}{'defaults'}) |
|
4194
|
0 |
0 |
if $def eq '*' |
|
4195
|
0 |
0 |
if ($def) |
|
4199
|
0 |
0 |
if ($item =~ /$def/) |
|
4209
|
0 |
0 |
if ($pik =~ /$one/s) |
|
4214
|
0 |
0 |
if $#spl == -1 |
|
4215
|
0 |
0 |
if $select_many |
|
4223
|
0 |
0 |
if (exists $picks{$num}) { } |
|
|
0 |
0 |
elsif ($def and $text =~ /$def/) { } |
|
4238
|
0 |
0 |
if exists do {
${$MenuUnit_hash_ref;}{do {
$$FullMenu{$MenuUnit_hash_ref}[4]
}->{$text}}
}->{'Result'} |
|
4253
|
0 |
0 |
if $menu_return_debug |
|
4254
|
0 |
0 |
if $@ |
|
4255
|
0 |
0 |
if (-1 < $#return_from_filtered_menu) |
|
4256
|
0 |
0 |
if ((values %{$menu_output;})[0] eq 'recurse') |
|
4273
|
0 |
0 |
if $menu_return_debug |
|
4274
|
0 |
0 |
if $@ |
|
4276
|
0 |
0 |
unless ref $menu_output |
|
4277
|
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) { } |
|
4288
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4289
|
0 |
0 |
if $Term::Menus::fa_code |
|
4294
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
4295
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4300
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4318
|
0 |
0 |
if ($@) |
|
4319
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4321
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4326
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4331
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4341
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4346
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4351
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4356
|
0 |
0 |
if (-1 < $#resu) |
|
4357
|
0 |
0 |
if ($resu[0] eq '<') |
|
4358
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4368
|
0 |
0 |
if ($subfile) { } |
|
4370
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4375
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4393
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4395
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4401
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4402
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4424
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4430
|
0 |
0 |
if $@ |
|
4433
|
0 |
0 |
if ($@) |
|
4434
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4435
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4440
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4445
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4455
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4460
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4465
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4470
|
0 |
0 |
if (-1 < $#resu) |
|
4471
|
0 |
0 |
if ($resu[0] eq '<') |
|
4472
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4490
|
0 |
0 |
if ($recurse_level == 1) { } |
|
|
0 |
0 |
elsif (grep {/\+|\*/;} values %picks) { } |
|
4500
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
4503
|
0 |
0 |
if $sp_copy{$key} eq '+' |
|
4507
|
0 |
0 |
if ($parent_menu->{'Scroll'}[1] > 1 and not exists $main::maintain_scroll_flag->{$parent_menu}) |
|
4529
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
4533
|
0 |
0 |
if ref $menu_result eq 'CODE' |
|
4551
|
0 |
0 |
if $menu_return_debug |
|
4552
|
0 |
0 |
if $@ |
|
4553
|
0 |
0 |
unless ref $menu_output |
|
4554
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
4562
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
4583
|
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) { } |
|
4586
|
0 |
0 |
if (1 == $recurse_level) { } |
|
4587
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
4592
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4598
|
0 |
0 |
unless ($got_default) |
|
4607
|
0 |
0 |
if $Term::Menus::fa_code |
|
4612
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
4613
|
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) |
|
4618
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4636
|
0 |
0 |
if ($@) |
|
4637
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4639
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4644
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4649
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4659
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4664
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4669
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4674
|
0 |
0 |
if (-1 < $#resu) |
|
4675
|
0 |
0 |
if ($resu[0] eq '<') |
|
4676
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4686
|
0 |
0 |
if ($subfile) { } |
|
4688
|
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) |
|
4693
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
4711
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
4713
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4719
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
4720
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
4742
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
4748
|
0 |
0 |
if $@ |
|
4751
|
0 |
0 |
if ($@) |
|
4752
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
4753
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4758
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4763
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4773
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
4778
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
4783
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
4788
|
0 |
0 |
if (-1 < $#resu) |
|
4789
|
0 |
0 |
if ($resu[0] eq '<') |
|
4790
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
4808
|
0 |
0 |
if $^O ne 'cygwin' |
|
4816
|
0 |
0 |
if (not exists $Net::FullAuto::FA_Core::admin_menus{&pw($MenuUnit_hash_ref)}) { } |
|
4819
|
0 |
0 |
if $Net::FullAuto::FA_Core::admin_menu |
|
4821
|
0 |
0 |
if $menu_output[0] ne '-' and $menu_output[0] ne '+' |
|
4829
|
0 |
0 |
unless ($select_many or keys %{$$MenuUnit_hash_ref{'Select'};}) |
|
4834
|
0 |
0 |
if ($filtered_menu) { } |
|
4845
|
0 |
0 |
if ($select_many or exists $FullMenu->{$MenuUnit_hash_ref}[6]{$all_menu_items_array[$pck]}) |
|
4859
|
0 |
0 |
if (exists $picks{$pick}) |
|
4871
|
0 |
0 |
if defined $parent_menu |
|
4873
|
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') { } |
|
4874
|
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) { } |
|
4877
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != 1 |
|
4879
|
0 |
0 |
if $num_pick |
|
4880
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4882
|
0 |
0 |
if ($curscreennum - $remainder == $MenuUnit_hash_ref->{'Scroll'}[1] and $curscreennum == $num_pick) { } |
|
|
0 |
0 |
elsif ($start == $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
4888
|
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) |
|
4905
|
0 |
0 |
if $ikey eq 'PAGEUP' and exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4917
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4919
|
0 |
0 |
if ($num_pick == $start + $choose_num) |
|
4923
|
0 |
0 |
if ($remainder) { } |
|
4933
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
4942
|
0 |
0 |
if ($^O eq 'cygwin') { } |
|
4953
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
4955
|
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) { } |
|
4959
|
0 |
0 |
if $num_pick |
|
4960
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4963
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
4964
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1]) { } |
|
4965
|
0 |
0 |
if ($display_this_many_items < $num_pick - $start) { } |
|
4980
|
0 |
0 |
if $MenuUnit_hash_ref->{'Scroll'}[1] != $num_pick |
|
4982
|
0 |
0 |
if ($show_banner_only) { } |
|
|
0 |
0 |
elsif ($display_this_many_items < $num_pick - $start) { } |
|
|
0 |
0 |
elsif ($ikey ne 'PAGEDOWN') { } |
|
4983
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'}) { } |
|
4987
|
0 |
0 |
if $num_pick |
|
4988
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
4991
|
0 |
0 |
if ($parent_menu and exists $parent_menu->{'Scroll'}) |
|
4992
|
0 |
0 |
if (ref $parent_menu->{'Scroll'} eq 'ARRAY') |
|
4994
|
0 |
0 |
if ($curscreennum + $display_this_many_items < $parent_menu->{'Scroll'}[1] and $parent_menu->{'Scroll'}[1] < $numpick) |
|
5010
|
0 |
0 |
if exists $MenuUnit_hash_ref->{'Scroll'} and $MenuUnit_hash_ref->{'Scroll'} |
|
5015
|
0 |
0 |
unless ($show_banner_only or not $numbor =~ /^\d+/) |
|
5022
|
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]$/) { } |
|
5024
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5030
|
0 |
0 |
if defined $main::maintain_scroll_flag |
|
5032
|
0 |
0 |
if exists $picks{'__FA_Banner__'} |
|
5033
|
0 |
0 |
unless %pn |
|
5035
|
0 |
0 |
if ($Persists->{$MenuUnit_hash_ref}{'defaults'} and not $filtered_menu) |
|
5037
|
0 |
0 |
if $parent_menu |
|
5039
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5040
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5054
|
0 |
0 |
$numbor =~ /^\d+$/ ? : |
|
5056
|
0 |
0 |
if (exists $MenuUnit_hash_ref->{'Result'} and not defined $MenuUnit_hash_ref->{'Result'}) |
|
5098
|
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}}) { } |
|
5101
|
0 |
0 |
if ($filtered_menu and exists $SavePick->{$parent_menu}{$numbor}) { } |
|
|
0 |
0 |
elsif (exists $picks{$numbor}) { } |
|
5103
|
0 |
0 |
if ($Persists->{$parent_menu}{'defaults'}) |
|
5107
|
0 |
0 |
if (exists $picks{$pick} and not $picks{$numbor}) |
|
5108
|
0 |
0 |
if ($picks{$pick} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$pick} eq '+') { } |
|
5130
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5135
|
0 |
0 |
if $filtered_menu |
|
5146
|
0 |
0 |
if $filtered_menu |
|
5150
|
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 '-') { } |
|
5166
|
0 |
0 |
if ($skip == 0) |
|
5174
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5191
|
0 |
0 |
if ($numbor =~ /^[Ff]$/) |
|
5195
|
0 |
0 |
if (grep {/Item_/;} keys %{$MenuUnit_hash_ref;}) |
|
5198
|
0 |
0 |
unless $key =~ /Item_/ |
|
5201
|
0 |
0 |
if ($#items == 0 and ref $items[0] eq 'HASH' and not grep({/Item_/;} keys %{$items[0];}) and grep {/Banner/;} keys %{$items[0];}) |
|
5207
|
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]})) |
|
5219
|
0 |
0 |
$filtered_menu ? : |
|
5220
|
0 |
0 |
if ($filtered_menu) |
|
5235
|
0 |
0 |
if ($pst =~ /0$/) |
|
5243
|
0 |
0 |
unless ($filtered_menu) |
|
5244
|
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]}) { } |
|
5267
|
0 |
0 |
if $numbor |
|
5268
|
0 |
0 |
$numbor_is_eff ? : |
|
5269
|
0 |
0 |
if (exists $picks{$numbor}) |
|
5275
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
|
0 |
0 |
elsif ($picks{$numbor} ne ' ') { } |
|
5286
|
0 |
0 |
if ($prev_menu and $prev_menu != $numbor) |
|
5303
|
0 |
0 |
unless ($show_banner_only) |
|
5306
|
0 |
0 |
unless $filtered_menu |
|
5309
|
0 |
0 |
unless $filtered_menu |
|
5311
|
0 |
0 |
unless $filtered_menu |
|
5314
|
0 |
0 |
unless $select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{$numbor} |
|
5315
|
0 |
0 |
unless keys %picks and $numbor =~ /^[Ff]$/ |
|
5325
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
|
0 |
0 |
elsif ($numbor) { } |
|
5335
|
0 |
0 |
unless (exists $SaveMMap->{$cur_menu}) |
|
5336
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
5343
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
5359
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
5366
|
0 |
0 |
if ($filtered_menu) |
|
5384
|
0 |
0 |
if (exists $Selected->{$cur_menu}{'__FA_Banner__'}) { } |
|
5388
|
0 |
0 |
if ref $menu_result eq 'CODE' |
|
5405
|
0 |
0 |
if $menu_return_debug |
|
5406
|
0 |
0 |
if $@ |
|
5407
|
0 |
0 |
if (ref $menu_output eq 'ARRAY' and $menu_output->[0] =~ /^[{](.*)[}][<]$/) { } |
|
5415
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
5418
|
0 |
0 |
if $num_pick |
|
5419
|
0 |
0 |
$start + $remainder == $num_pick ? : |
|
5421
|
0 |
0 |
if ($curscreennum < $MenuUnit_hash_ref->{'Scroll'}[1] and $display_this_many_items < $num_pick - $start) |
|
5425
|
0 |
0 |
if ($start + $remainder == $num_pick) { } |
|
5449
|
0 |
0 |
unless ref $menu_output |
|
5450
|
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) { } |
|
5451
|
0 |
0 |
if (grep {/\+|\*/;} values %picks) { } |
|
5458
|
0 |
0 |
if exists $SavePick->{$parent_menu} |
|
5461
|
0 |
0 |
if $sp_copy{$key} eq '+' |
|
5479
|
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) |
|
5484
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5490
|
0 |
0 |
unless ($got_default) |
|
5499
|
0 |
0 |
if $Term::Menus::fa_code |
|
5505
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
5506
|
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) |
|
5511
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5530
|
0 |
0 |
if ($@) |
|
5531
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5533
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5539
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5544
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5554
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5560
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5565
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5570
|
0 |
0 |
if (-1 < $#resu) |
|
5571
|
0 |
0 |
if ($resu[0] eq '<') |
|
5576
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5586
|
0 |
0 |
if ($subfile) { } |
|
5588
|
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) |
|
5593
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5611
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
5613
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5620
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
5621
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
5639
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5645
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5653
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5659
|
0 |
0 |
if $@ |
|
5662
|
0 |
0 |
if ($@) |
|
5663
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5665
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5670
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5675
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5685
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5690
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5695
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5700
|
0 |
0 |
if (-1 < $#resu) |
|
5701
|
0 |
0 |
if ($resu[0] eq '<') |
|
5706
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5719
|
0 |
0 |
if (not $numbor =~ /^[Ff]$/ and exists $picks{$numbor}) |
|
5720
|
0 |
0 |
if ($picks{$numbor} eq '*') { } |
|
5732
|
0 |
0 |
if (keys %{$$FullMenu{$MenuUnit_hash_ref}[2];}) { } |
|
5733
|
0 |
0 |
if $numbor =~ /^[Ff]$/ |
|
5737
|
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]}) { } |
|
5742
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
5749
|
0 |
0 |
if ($data_dump_streamer) |
|
5765
|
0 |
0 |
if ($@) |
|
5766
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5767
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5772
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5777
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5787
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5792
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5797
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5802
|
0 |
0 |
if (-1 < $#resu) |
|
5803
|
0 |
0 |
if ($resu[0] eq '<') |
|
5804
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5829
|
0 |
0 |
if (wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif ($#resu == 0) { } |
|
5837
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$pn{$numbor}[0]}) |
|
5848
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
5853
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5859
|
0 |
0 |
unless ($got_default) |
|
5868
|
0 |
0 |
if $Term::Menus::fa_code |
|
5873
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
5874
|
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) |
|
5879
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5898
|
0 |
0 |
if ($@) |
|
5899
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
5901
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5906
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5911
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5921
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
5926
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
5931
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
5936
|
0 |
0 |
if (-1 < $#resu) |
|
5937
|
0 |
0 |
if ($resu[0] eq '<') |
|
5938
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
5948
|
0 |
0 |
if ($subfile) { } |
|
5950
|
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) |
|
5955
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
5973
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
5975
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
5981
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
5982
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6004
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6010
|
0 |
0 |
if $@ |
|
6013
|
0 |
0 |
if ($@) |
|
6014
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6015
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6020
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6025
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6035
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6040
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6045
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6050
|
0 |
0 |
if (-1 < $#resu) |
|
6051
|
0 |
0 |
if ($resu[0] eq '<') |
|
6052
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6069
|
0 |
0 |
if ($show_banner_only) { } |
|
6076
|
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))) { } |
|
6093
|
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/) |
|
6099
|
0 |
0 |
unless $select_many |
|
6107
|
0 |
0 |
$show_banner_only ? : |
|
6110
|
0 |
0 |
if $Selected->{$MenuUnit_hash_ref}{$item} |
|
6126
|
0 |
0 |
if ($@) |
|
6127
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6128
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6133
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6138
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6148
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6153
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6158
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6163
|
0 |
0 |
if (0 == $#resu and ref $resu[0] eq 'CODE') { } |
|
6171
|
0 |
0 |
if (-1 < $#resu) |
|
6172
|
0 |
0 |
if ($resu[0] eq '<') |
|
6173
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
|
0 |
0 |
elsif (ref $resu[0] eq 'HASH') { } |
|
6174
|
0 |
0 |
if (1 == $recurse_level) { } |
|
6180
|
0 |
0 |
if (grep {/Item_/;} keys %{$resu[0];} && $parent_menu) { } |
|
6181
|
0 |
0 |
if (exists $FullMenu->{$parent_menu}[2]{'__FA_Banner__'}) { } |
|
6209
|
0 |
0 |
unless $select_many |
|
6219
|
0 |
0 |
if (exists $Selected->{$MenuUnit_hash_ref}{'__FA_Banner__'}) { } |
|
6227
|
0 |
0 |
if (ref $test_item eq 'HASH' and grep {/Item_/;} keys %{$test_item;} or $show_banner_only) |
|
6231
|
0 |
0 |
if (0 < $#{[keys %picks];}) { } |
|
6241
|
0 |
0 |
unless (exists $SaveMMap->{$MenuUnit_hash_ref}) |
|
6242
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($parent_menu) { } |
|
6249
|
0 |
0 |
if $#{$pmap;} < $#{$m;} |
|
6265
|
0 |
0 |
if (ref $convey eq 'ARRAY') { } |
|
6281
|
0 |
0 |
if ($show_banner_only) { } |
|
6288
|
0 |
0 |
unless exists $SaveNext->{$MenuUnit_hash_ref} |
|
6300
|
0 |
0 |
if $menu_return_debug |
|
6301
|
0 |
0 |
if $@ |
|
6302
|
0 |
0 |
unless ref $menu_output |
|
6304
|
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) { } |
|
6327
|
0 |
0 |
if $start + $choose_num < $FullMenu->{$MenuUnit_hash_ref}[11] |
|
6328
|
0 |
0 |
if $display_this_many_items >= $num_pick - $start |
|
6346
|
0 |
0 |
$Term::Menus::fullauto ? : |
|
6351
|
0 |
0 |
if (ref $sub eq 'CODE') |
|
6352
|
0 |
0 |
if ($Term::Menus::fullauto and not exists $MenuUnit_hash_ref->{'NoPlan'} && $MenuUnit_hash_ref->{'NoPlan'} and defined $Net::FullAuto::FA_Core::makeplan) |
|
6357
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6374
|
0 |
0 |
if ($@) |
|
6375
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6376
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6381
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6386
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6396
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6401
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6406
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6411
|
0 |
0 |
if (-1 < $#resu) |
|
6412
|
0 |
0 |
if ($resu[0] eq '<') |
|
6413
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6414
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6420
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6430
|
0 |
0 |
if ($subfile) { } |
|
6432
|
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) |
|
6437
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6462
|
0 |
0 |
if (-1 < index($firsterr, 'Undefined subroutine') and -1 < index($firsterr, $sub)) { } |
|
|
0 |
0 |
elsif ($firsterr) { } |
|
6464
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6470
|
0 |
0 |
if ($seconderr =~ /Undefined subroutine/) { } |
|
6471
|
0 |
0 |
if (do {
$FullMenu
}->{$MenuUnit_hash_ref}[2]{$all_menu_items_array[$numbor - 1]}) { } |
|
6491
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6506
|
0 |
0 |
if (not $sub =~ /::/) { } |
|
6512
|
0 |
0 |
if ($@) |
|
6518
|
0 |
0 |
if ($@) |
|
6519
|
0 |
0 |
if (10 < length $@ and unpack('a11', $@) eq 'FATAL ERROR') { } |
|
6520
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6525
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6530
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6540
|
0 |
0 |
if ($parent_menu and wantarray and not $no_wantarray) |
|
6545
|
0 |
0 |
if (defined $log_handle and -1 < index($log_handle, '*')) |
|
6550
|
0 |
0 |
if ($Term::Menus::fullauto) { } |
|
6555
|
0 |
0 |
if (-1 < $#resu) |
|
6556
|
0 |
0 |
if ($resu[0] eq '<') |
|
6557
|
0 |
0 |
if ($resu[0] =~ /^[{](.*)[}][<]$/) |
|
6558
|
0 |
0 |
if ($1 eq $MenuUnit_hash_ref->{'Name'}) { } |
|
6564
|
0 |
0 |
if (0 < $#resu and wantarray and not $no_wantarray) { } |
|
6579
|
0 |
0 |
unless $return_from_child_menu |
|
6581
|
0 |
0 |
if $done |
|
6583
|
0 |
0 |
if ($select_many or exists do {
$MenuUnit_hash_ref
}->{'Select'}{(keys %picks)[0] or ''}) |
|
6590
|
0 |
0 |
if ($MenuUnit_hash_ref) { } |
|
6602
|
0 |
0 |
if ($filtered_menu) { } |
|
|
0 |
0 |
elsif ($numbor =~ /^\d+$/) { } |
|
6608
|
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) |
|
6612
|
0 |
0 |
if (-1 == $#{$Net::FullAuto::FA_Core::makeplan{'Plan'};} and not exists $Net::FullAuto::FA_Core::makeplan->{'Title'}) |
|
6616
|
0 |
0 |
unless ($got_default) |
|
6625
|
0 |
0 |
if (wantarray) { } |
|
6643
|
0 |
0 |
if (-1 < index($result_string, '][[') and -1 < index($result_string, ']][')) |
|
6649
|
0 |
0 |
if (unpack('a5', $elem) eq 'eval ') { } |
|
6663
|
0 |
0 |
if -1 == index($sub, '"') |
|
6672
|
0 |
0 |
if ($arg =~ /^[']/) { } |