| line |
true |
false |
branch |
|
119
|
0 |
0 |
if ($@) |
|
131
|
0 |
0 |
unless my $con = 'Metabrik::Core::Context'->new |
|
134
|
0 |
0 |
unless $con->brik_init |
|
136
|
0 |
0 |
unless $con->use($brik) |
|
137
|
0 |
0 |
unless my $data = $con->run($brik, $command, @args) |
|
150
|
0 |
0 |
unless (defined $r) |
|
163
|
0 |
0 |
unless (defined $code) |
|
173
|
0 |
0 |
if ($@) |
|
178
|
0 |
0 |
defined $res ? : |
|
180
|
0 |
0 |
defined $res ? : |
|
187
|
0 |
0 |
unless (defined $subref) |
|
197
|
0 |
0 |
if ($@) |
|
202
|
0 |
0 |
if ($self->log->level > 2) |
|
218
|
0 |
0 |
unless $__ctx_variable =~ /^\$/ |
|
219
|
0 |
0 |
if $__ctx_variable =~ /^\$_/ |
|
253
|
0 |
0 |
if ($file =~ /$dot_regex/ or $file =~ /$dot2_regex/) { } |
|
|
0 |
0 |
elsif ($dir =~ /$dir_regex/ and $file =~ /$file_regex/) { } |
|
278
|
0 |
0 |
if /^\.$/ |
|
290
|
0 |
0 |
if (length $brik) |
|
324
|
0 |
0 |
unless (defined $brik) |
|
340
|
0 |
0 |
if ($__ctx_brik =~ /^[a-z0-9]+::[a-z0-9]+$/) { } |
|
|
0 |
0 |
elsif ($__ctx_brik =~ /^[a-z0-9]+::[a-z0-9]+::[a-z0-9]+$/) { } |
|
360
|
0 |
0 |
length $__ctx_brik_repository ? : |
|
366
|
0 |
0 |
if ($CON->is_used($__ctx_brik)) |
|
373
|
0 |
0 |
if ($@) |
|
389
|
0 |
0 |
unless (defined $__ctx_new) |
|
411
|
0 |
0 |
unless defined $file |
|
413
|
0 |
0 |
if ($file eq $INC{'Module/Reload.pm'}) |
|
419
|
0 |
0 |
unless (defined $stat{$file}) |
|
423
|
0 |
0 |
unless defined $mtime |
|
425
|
0 |
0 |
if ($mtime > $stat{$file}) |
|
431
|
0 |
0 |
if ($@) { } |
|
433
|
0 |
0 |
if ($self->log->level > 2) { } |
|
468
|
0 |
0 |
unless (defined $brik) |
|
473
|
0 |
0 |
if (exists $available->{$brik}) |
|
494
|
0 |
0 |
unless (defined $brik) |
|
501
|
0 |
0 |
unless (defined $get) |
|
512
|
0 |
0 |
unless (defined $brik) |
|
517
|
0 |
0 |
if (exists $used->{$brik}) |
|
539
|
0 |
0 |
if (@toks == 1) { } |
|
|
0 |
0 |
elsif (@toks == 2) { } |
|
|
0 |
0 |
elsif (@toks > 2) { } |
|
551
|
0 |
0 |
if (length $repository) |
|
569
|
0 |
0 |
unless (defined $brik) |
|
574
|
0 |
0 |
if (exists $used->{$brik}) |
|
591
|
0 |
0 |
exists $used->{$k} ? : |
|
604
|
0 |
0 |
unless (defined $brik and defined $attribute and defined $value) |
|
617
|
0 |
0 |
unless ($CON->is_used($__ctx_brik)) |
|
623
|
0 |
0 |
unless ($CON->used->{$__ctx_brik}->brik_has_attribute($__ctx_attribute)) |
|
631
|
0 |
0 |
if ($__ctx_value =~ /^\$\w+/ or $__ctx_value =~ /^\@\$\w+/ or $__ctx_value =~ /^\@\w+/ or $__ctx_value =~ /^\%\$\w+/ or $__ctx_value =~ /^\%\w+/) { } |
|
|
0 |
0 |
elsif ($__ctx_value =~ /^\[.*\]$/ or $__ctx_value =~ /^\{.*\}$/) { } |
|
637
|
0 |
0 |
if ($@) |
|
650
|
0 |
0 |
if ($@) |
|
674
|
0 |
0 |
unless (defined $brik and defined $attribute) |
|
686
|
0 |
0 |
unless ($CON->is_used($__ctx_brik)) |
|
692
|
0 |
0 |
unless ($CON->used->{$__ctx_brik}->brik_has_attribute($__ctx_attribute)) |
|
698
|
0 |
0 |
unless (defined $CON->{'used'}{$__ctx_brik}->$__ctx_attribute) |
|
716
|
0 |
0 |
unless (defined $brik and defined $command) |
|
720
|
0 |
0 |
if ($self->log->level > 2) |
|
734
|
0 |
0 |
unless ($CON->is_used($__ctx_brik)) |
|
740
|
0 |
0 |
unless ($CON->used->{$__ctx_brik}->brik_has_command($__ctx_command)) |
|
750
|
0 |
0 |
unless ($__ctx_run->init_done or $__ctx_command =~ /^brik_/) |
|
751
|
0 |
0 |
unless ($__ctx_run->brik_init) |
|
761
|
0 |
0 |
if (/^\$\w+/ or /^\@\$\w+/ or /^\@\w+/ or /^\%\$\w+/ or /^\%\w+/) { } |
|
|
0 |
0 |
elsif (/^\[.*\]$/ or /^\{.*\}$/) { } |
|
765
|
0 |
0 |
if ($@) |
|
778
|
0 |
0 |
if ($@) |
|
789
|
0 |
0 |
unless (defined $__ctx_return) |
|
808
|
0 |
0 |
unless (defined $brik) |
|
819
|
0 |
0 |
unless ($CON->is_used($__ctx_brik)) |
|
842
|
0 |
0 |
unless (defined $brik) |
|
853
|
0 |
0 |
unless ($CON->is_used($__ctx_brik)) |
|
860
|
0 |
0 |
if (defined $__ctx_state) |
|
877
|
0 |
0 |
if $brik eq 'core::context' |