| line |
true |
false |
branch |
|
142
|
0 |
0 |
$$ == $self->global->pid ? : |
|
146
|
0 |
0 |
if ($self->global->exit_on_sigint) |
|
160
|
0 |
0 |
if ($@) |
|
166
|
0 |
0 |
if ($file->is_executable) |
|
185
|
0 |
0 |
unless (defined $self->context) |
|
245
|
0 |
0 |
unless (defined $self->context) |
|
275
|
0 |
0 |
unless ($AUTOLOAD =~ /^Metabrik::Core::Shell::run_/) |
|
285
|
0 |
0 |
if (exists $aliases->{$command}) |
|
290
|
0 |
0 |
unless (defined $self->context) |
|
296
|
0 |
0 |
if ($context->is_used('shell::command')) { } |
|
297
|
0 |
0 |
$self->capture_mode ? : |
|
300
|
0 |
0 |
if (exists $executables->{$exec}) |
|
335
|
0 |
0 |
if ($start == 0 || substr($line, 0, $start) =~ /^\s*$/ and not $word =~ m[/]) { } |
|
419
|
0 |
0 |
if (defined $prompt) { } |
|
428
|
0 |
0 |
defined $ps1 ? : |
|
430
|
0 |
0 |
if ($^O =~ /win32/i) { } |
|
|
0 |
0 |
elsif ($< == 0) { } |
|
478
|
0 |
0 |
unless ($document) |
|
484
|
0 |
0 |
if $_[1]->isa('PPI::Structure') |
|
487
|
0 |
0 |
$r ? : |
|
499
|
0 |
0 |
if ($line =~ /^\s*'\s*((?:use|set|get|run)\s.*?)\s*'\s*;?\s*$/) |
|
517
|
0 |
0 |
if ($cmd =~ /^\s*exit(?:\s+(\d+))/) |
|
533
|
0 |
0 |
if ($line =~ /^\s*#/) |
|
537
|
0 |
0 |
if ($line =~ /^\s*$/) |
|
544
|
0 |
0 |
unless ($self->cmd_is_complete($lines)) |
|
570
|
0 |
0 |
if (defined $lines) { } |
|
572
|
0 |
0 |
if ($self->process_line($line, \@lines)) { } |
|
579
|
0 |
0 |
if $self->{'stop'} |
|
588
|
0 |
0 |
if ($self->process_line($line, \@lines)) { } |
|
595
|
0 |
0 |
if $self->{'stop'} |
|
614
|
0 |
0 |
if ($context->is_used('shell::history')) |
|
639
|
0 |
0 |
if (not defined $alias) { } |
|
|
0 |
0 |
elsif (length $alias and @cmd == 0) { } |
|
649
|
0 |
0 |
if (exists $$aliases{"run_$alias"}) { } |
|
680
|
0 |
0 |
if (defined $dir) { } |
|
681
|
0 |
0 |
if ($dir =~ /^~/) |
|
685
|
0 |
0 |
unless (-d $dir) |
|
688
|
0 |
0 |
unless chdir $dir |
|
695
|
0 |
0 |
unless chdir $self->{'path_home'} |
|
721
|
0 |
0 |
unless (length $line) |
|
732
|
0 |
0 |
if ($self->global->exit_on_sigint) |
|
740
|
0 |
0 |
unless (defined $r) |
|
744
|
0 |
0 |
if ($self->echo) |
|
766
|
0 |
0 |
unless (defined $brik) |
|
773
|
0 |
0 |
if ($brik =~ /^[a-z]/ and $brik =~ /::/) { } |
|
774
|
0 |
0 |
unless $r = $context->use($brik) |
|
775
|
0 |
0 |
if ($r) |
|
802
|
0 |
0 |
if ($count == 1 or $count == 2 and length $word > 0) |
|
805
|
0 |
0 |
if ($self->log->level > 2 and not defined $available) |
|
811
|
0 |
0 |
if $a =~ /^$word/ |
|
822
|
0 |
0 |
unless (defined $brik) |
|
828
|
0 |
0 |
unless ($context->is_used($brik)) |
|
837
|
0 |
0 |
if ($self->help_show_base_attributes or $self->help_show_base_all or $self->show_base_attributes or $self->show_base_all or $self->help_show_all or $self->show_all) |
|
844
|
0 |
0 |
if ($self->help_show_inherited_attributes or $self->help_show_inherited_all or $self->show_inherited_attributes or $self->show_inherited_all or $self->help_show_all or $self->show_all) |
|
865
|
0 |
0 |
unless (defined $brik) |
|
871
|
0 |
0 |
unless ($context->is_used($brik)) |
|
880
|
0 |
0 |
if ($self->help_show_base_commands or $self->help_show_base_all or $self->show_base_commands or $self->show_base_all or $self->help_show_all or $self->show_all) |
|
887
|
0 |
0 |
if ($self->help_show_inherited_commands or $self->help_show_inherited_all or $self->show_inherited_commands or $self->show_inherited_all or $self->help_show_all or $self->show_all) |
|
908
|
0 |
0 |
unless (defined $brik) |
|
914
|
0 |
0 |
unless ($context->is_used($brik)) |
|
923
|
0 |
0 |
if ($self->comp_show_base_attributes or $self->comp_show_base_all or $self->show_base_attributes or $self->show_base_all or $self->comp_show_all or $self->show_all) |
|
930
|
0 |
0 |
if ($self->comp_show_inherited_attributes or $self->comp_show_inherited_all or $self->show_inherited_attributes or $self->show_inherited_all or $self->comp_show_all or $self->show_all) |
|
951
|
0 |
0 |
unless (defined $brik) |
|
957
|
0 |
0 |
unless ($context->is_used($brik)) |
|
966
|
0 |
0 |
if ($self->comp_show_base_commands or $self->comp_show_base_all or $self->show_base_commands or $self->show_base_all or $self->comp_show_all or $self->show_all) |
|
973
|
0 |
0 |
if ($self->comp_show_inherited_commands or $self->comp_show_inherited_all or $self->show_inherited_commands or $self->show_inherited_all or $self->comp_show_all or $self->show_all) |
|
1002
|
0 |
0 |
if (not defined $arg1) { } |
|
|
0 |
0 |
elsif (not defined $arg2) { } |
|
1022
|
0 |
0 |
if ($context->is_used($arg1)) { } |
|
|
0 |
0 |
elsif (exists $commands{$arg1}) { } |
|
|
0 |
0 |
elsif (exists $aliases{$arg1}) { } |
|
1030
|
0 |
0 |
if defined $help |
|
1035
|
0 |
0 |
if defined $help |
|
1054
|
0 |
0 |
if (exists $briks{$arg1}) { } |
|
1064
|
0 |
0 |
if (exists $attributes->{$arg2} or exists $base_attributes->{$arg2}) { } |
|
|
0 |
0 |
elsif (exists $commands->{$arg2} or exists $base_commands->{$arg2}) { } |
|
1098
|
0 |
0 |
if ($count == 1 or $count == 2 and length $word > 0) { } |
|
1103
|
0 |
0 |
unless length $a |
|
1104
|
0 |
0 |
if $a =~ /^$word/ |
|
1123
|
0 |
0 |
unless (defined $brik and defined $attribute and defined $value) |
|
1128
|
0 |
0 |
unless (defined $r) |
|
1145
|
0 |
0 |
unless (defined $used) |
|
1155
|
0 |
0 |
defined $words[1] ? : |
|
1160
|
0 |
0 |
if ($count == 1 or $count == 2 and length $word > 0) { } |
|
|
0 |
0 |
elsif ($count == 2 and length $word == 0) { } |
|
|
0 |
0 |
elsif ($count == 3 and length $word > 0) { } |
|
1163
|
0 |
0 |
if $a =~ /^$word/ |
|
1168
|
0 |
0 |
if ($self->log->level > 2 and not exists $used->{$brik}) |
|
1181
|
0 |
0 |
if ($self->log->level > 2 and not exists $used->{$brik}) |
|
1189
|
0 |
0 |
if ($attribute =~ /^$word/) |
|
1209
|
0 |
0 |
if (not defined $brik) { } |
|
|
0 |
0 |
elsif (defined $brik and not defined $attribute) { } |
|
|
0 |
0 |
elsif (defined $brik and defined $attribute) { } |
|
1210
|
0 |
0 |
unless my $used = $context->used |
|
1222
|
0 |
0 |
unless my $used = $context->used |
|
1224
|
0 |
0 |
unless (exists $used->{$brik}) |
|
1236
|
0 |
0 |
unless my $used = $context->used |
|
1238
|
0 |
0 |
unless (exists $used->{$brik}) |
|
1242
|
0 |
0 |
unless ($used->{$brik}->brik_has_attribute($attribute)) |
|
1266
|
0 |
0 |
unless (defined $brik and defined $command) |
|
1274
|
0 |
0 |
if ($self->global->exit_on_sigint) |
|
1281
|
0 |
0 |
if ($self->log->level > 2) |
|
1288
|
0 |
0 |
if ($module eq 'Term::Shell' and $command eq 'exec') |
|
1293
|
0 |
0 |
unless (defined $r) |
|
1298
|
0 |
0 |
if ($self->echo) |
|
1322
|
0 |
0 |
unless (defined $used) |
|
1327
|
0 |
0 |
defined $words[1] ? : |
|
1332
|
0 |
0 |
if ($count == 1 or $count == 2 and length $word > 0) { } |
|
|
0 |
0 |
elsif ($count == 2 and length $word == 0) { } |
|
|
0 |
0 |
elsif ($count == 3 and length $word > 0) { } |
|
1335
|
0 |
0 |
if $a =~ /^$word/ |
|
1340
|
0 |
0 |
if ($self->log->level > 2) |
|
1341
|
0 |
0 |
unless (exists $used->{$brik}) |
|
1355
|
0 |
0 |
if ($self->log->level > 2) |
|
1356
|
0 |
0 |
unless (exists $used->{$brik}) |
|
1365
|
0 |
0 |
if ($command =~ /^$word/) |
|
1390
|
0 |
0 |
if ($context->is_used('shell::command')) |
|
1391
|
0 |
0 |
$self->capture_mode ? : |
|
1392
|
0 |
0 |
if (defined $args[0] and $args[0] =~ m[^\s*/]) |
|
1418
|
0 |
0 |
if ($@) |
|
1419
|
0 |
0 |
if ($self->log->level > 2) |
|
1426
|
0 |
0 |
if ($this =~ /$dirpattern/) |
|
1436
|
0 |
0 |
if ($@) |
|
1437
|
0 |
0 |
if ($self->log->level > 2) |
|
1444
|
0 |
0 |
if ($this =~ /$filepattern/) |
|
1480
|
0 |
0 |
unless (length $word) |
|
1490
|
0 |
0 |
if ($last =~ /^\$/ and not $line =~ /\s+$/) { } |
|
1496
|
0 |
0 |
if ($this =~ /^$word/) |
|
1508
|
0 |
0 |
if ($word =~ m[^(.*)/.*$]) |
|
1518
|
0 |
0 |
if ($this =~ /^$word/) |
|
1526
|
0 |
0 |
if (/\s+/) |
|
1560
|
0 |
0 |
unless (length $start) |
|
1570
|
0 |
0 |
if ($last =~ /^\$/ and not $line =~ /\s+$/) { } |
|
1576
|
0 |
0 |
if ($this =~ /^$start/) |
|
1594
|
0 |
0 |
if ($start =~ m[^(.*)/.*$]) |
|
1603
|
0 |
0 |
if ($this =~ /^$start/) |
|
1611
|
0 |
0 |
if (/\s+/) |