| line |
true |
false |
branch |
|
75
|
0 |
1 |
if $self->{'has_context'} |
|
84
|
0 |
1 |
unless $l =~ /\S/ |
|
87
|
0 |
1 |
if $self->{'debug_mod'} >= 2 |
|
95
|
0 |
1 |
if $self->{'debug_mod'} >= 2 |
|
110
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
120
|
0 |
1 |
if -f $self->{'cache_dir'} . '/captures.json' |
|
141
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
172
|
0 |
1 |
if $self->{'debug_mod'} >= 2 |
|
185
|
0 |
1 |
if $self->{'debug_mod'} >= 2 |
|
187
|
0 |
1 |
if ($self->{'debug_mod'} >= 2) |
|
197
|
1 |
0 |
if ($check_type eq 'default') { } |
|
|
0 |
0 |
elsif ($check_type eq 'regexp') { } |
|
202
|
0 |
1 |
if $ln =~ /#dsl_note:/ |
|
204
|
0 |
1 |
if (index($ln, $pattern) != -1) |
|
220
|
0 |
0 |
if $ln eq ':blank_line' |
|
221
|
0 |
0 |
if $ln =~ /#dsl_note:/ |
|
225
|
0 |
0 |
if (scalar @foo) |
|
229
|
0 |
0 |
if $self->{'within_mode'} |
|
242
|
0 |
1 |
if ($self->{'debug_mod'} >= 2) |
|
262
|
0 |
1 |
if ($self->{'cache_dir'}) |
|
264
|
0 |
0 |
unless open CAPTURES, '>', $self->{'cache_dir'} . '/captures.json' |
|
267
|
0 |
0 |
if $self->{'debug_mod'} >= 1 |
|
272
|
0 |
1 |
if ($self->{'within_mode'} and $status) { } |
|
|
0 |
2 |
elsif ($self->{'within_mode'} and not $status) { } |
|
275
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
278
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
306
|
0 |
1 |
if (-f $check_list) { } |
|
307
|
0 |
0 |
unless open my $ff, $check_list |
|
313
|
0 |
1 |
ref $check_list ? : |
|
320
|
0 |
1 |
if $self->{'debug_mod'} >= 2 |
|
322
|
0 |
1 |
unless $l =~ /\S/ |
|
324
|
0 |
1 |
if $l =~ /^\s*#(.*)/ |
|
326
|
0 |
1 |
if ($here_str_mode and $l =~ s/^$here_str_marker\s*$//) |
|
330
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
332
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
348
|
0 |
0 |
if ($block_type and not $l =~ /\\\s*$/ and not $here_str_mode) |
|
356
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
365
|
0 |
0 |
if ($block_type and $l =~ /^\s*(code|generator|validator):\s*(.*)/ and not $here_str_mode) |
|
373
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
382
|
0 |
0 |
if ($block_type and $l =~ s/\\\s*$// || $here_str_mode) |
|
396
|
0 |
1 |
if ($l =~ /^\s*begin:\s*$/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*end:\s*$/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*reset_context:\s*$/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*assert:\s+(\d+)\s+(.*)/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*between:\s+(.*)/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*(code|generator|validator):\s*(.*)/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*regexp:\s*(.*)/) { } |
|
|
0 |
1 |
elsif ($l =~ /^\s*within:\s*(.*)/) { } |
|
398
|
0 |
0 |
if ($block_type) |
|
400
|
0 |
0 |
if $self->{'within_mode'} |
|
404
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
416
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
420
|
0 |
0 |
if ($block_type) |
|
427
|
0 |
0 |
if ($block_type) |
|
429
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
431
|
0 |
0 |
if $status eq 'false' |
|
433
|
0 |
0 |
if $status eq 'true' |
|
440
|
0 |
0 |
if $self->{'within_mode'} |
|
441
|
0 |
0 |
if $self->{'block_mode'} |
|
445
|
0 |
0 |
if ($block_type) |
|
456
|
0 |
0 |
if ($code =~ s/(.*)\\\s*$//) { } |
|
|
0 |
0 |
elsif ($code =~ s/<<(\S+)//) { } |
|
463
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
464
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
474
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
479
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
487
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
506
|
0 |
0 |
if $self->{'block_mode'} |
|
527
|
0 |
1 |
if ($block_type) |
|
533
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
553
|
0 |
0 |
if (not ref $code) { } |
|
556
|
0 |
0 |
if $@ |
|
557
|
0 |
0 |
if $self->{'debug_mod'} >= 3 |
|
565
|
0 |
0 |
if ($code->[0] =~ s/^\!(.*)//) { } |
|
571
|
0 |
0 |
if ($language eq 'perl') { } |
|
576
|
0 |
0 |
if $@ |
|
577
|
0 |
0 |
if $self->{'debug_mod'} >= 3 |
|
587
|
0 |
0 |
unless open SOURCE_CODE, '>', $source_file |
|
593
|
0 |
0 |
if ($language eq 'bash') { } |
|
595
|
0 |
0 |
if ($self->{'languages'}{$language}) { } |
|
602
|
0 |
0 |
if $self->{'languages'}{$language} |
|
609
|
0 |
0 |
if ($st != 0) |
|
613
|
0 |
0 |
if $self->{'debug_mod'} >= 2 |
|
615
|
0 |
0 |
unless open EXT_OUT, "$source_file.out" |
|
619
|
0 |
0 |
unless ($ENV{'OTX_KEEP_SOURCE_FILES'}) |
|
632
|
0 |
0 |
if $@ |
|
633
|
0 |
0 |
if $self->{'debug_mod'} >= 3 |
|
649
|
0 |
0 |
if (not defined $self->{'last_check_status'} or $self->{'last_check_status'}) { } |
|
653
|
0 |
0 |
if $self->{'debug_mod'} >= 1 |
|
664
|
0 |
0 |
if (not defined $self->{'last_check_status'} or $self->{'last_check_status'}) { } |
|
669
|
0 |
0 |
if $self->{'debug_mod'} >= 1 |
|
687
|
0 |
1 |
if ($self->{'within_mode'}) { } |
|
693
|
0 |
0 |
if ($self->{'last_check_status'}) { } |
|
694
|
0 |
0 |
if ($check_type eq 'regexp') { } |
|
700
|
0 |
0 |
if ($check_type eq 'regexp') { } |
|
710
|
0 |
1 |
if ($self->{'block_mode'}) { } |
|
711
|
0 |
0 |
if ($check_type eq 'regexp') { } |
|
717
|
0 |
1 |
if ($check_type eq 'regexp') { } |
|
728
|
0 |
1 |
if $reset_context |
|
730
|
0 |
1 |
if $self->{'debug_mode'} >= 3 |
|
750
|
0 |
0 |
if ($self->{'within_mode'}) { } |
|
751
|
0 |
0 |
if ($self->{'last_check_status'}) { } |
|
765
|
0 |
0 |
if $self->{'debug_mode'} >= 3 |
|
791
|
0 |
1 |
$sstr < $str ? : |