| line |
true |
false |
branch |
|
56
|
0 |
0 |
if (/^-infile=(.*)$/) { } |
|
|
0 |
0 |
elsif (/^-copyhooks$/) { } |
|
61
|
0 |
0 |
if ($copyhooks) |
|
62
|
0 |
0 |
unless ref $main::Star eq 'Text::Starfish' |
|
72
|
0 |
0 |
unless $copyhooks |
|
81
|
0 |
0 |
if (/^-e=?/) { } |
|
|
0 |
0 |
elsif (/^-mode=/) { } |
|
|
0 |
0 |
elsif (/^-o=/) { } |
|
|
0 |
0 |
elsif (/^-replace$/) { } |
|
|
0 |
0 |
elsif (/^-v$/) { } |
|
89
|
0 |
0 |
if (defined $sf->{'NEW_FILE_MODE'} and $sf->{'NEW_FILE_MODE'} =~ /^0/) |
|
100
|
0 |
0 |
unless defined $sf |
|
110
|
0 |
0 |
if (/^-replace$/) { } |
|
|
0 |
0 |
elsif (/^-noreplace$/) { } |
|
|
0 |
0 |
elsif (/^-require$/) { } |
|
|
0 |
0 |
elsif (not /^-/ and $infile eq '') { } |
|
120
|
0 |
0 |
if ($sf->{'INFILE'} eq '' or not -r $sf->{'INFILE'}) |
|
121
|
0 |
0 |
if ($require) |
|
132
|
0 |
0 |
if (defined $self->{'REPLACE'} and not defined $self->{'OUTFILE'}) |
|
146
|
0 |
0 |
exists $self->{'OUTFILE'} ? : |
|
149
|
0 |
0 |
if (not defined $self->{'OUTFILE'}) { } |
|
|
0 |
0 |
elsif ($FileCount > 1) { } |
|
|
0 |
0 |
elsif (not -f $self->{'OUTFILE'}) { } |
|
169
|
0 |
0 |
if ($outfileExternal ne '' and $outfileExternal ne $self->{'OUTFILE'}) |
|
174
|
0 |
0 |
if ($FileCount == 1 and defined $self->{'OUTFILE'}) |
|
176
|
0 |
0 |
if (not -f $self->{'OUTFILE'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'NEW_FILE_MODE'}) { } |
|
179
|
0 |
0 |
if (defined $self->{'NEW_FILE_MODE'}) { } |
|
188
|
0 |
0 |
if ($ExistingText ne $self->{'Out'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'NEW_FILE_MODE'}) { } |
|
189
|
0 |
0 |
if (defined $self->{'OUTFILE'}) { } |
|
195
|
0 |
0 |
if (($mode & 128) == 0 and defined $self->{'NEW_FILE_MODE'}) { } |
|
197
|
0 |
0 |
if ($FileCount == 1) { } |
|
201
|
0 |
0 |
if ($FileCount == 1) { } |
|
207
|
0 |
0 |
if defined $self->{'NEW_FILE_MODE'} |
|
211
|
0 |
0 |
if (defined $self->{'OUTFILE'}) { } |
|
228
|
0 |
0 |
if ($self->{'ttype'} > -1) { } |
|
234
|
0 |
0 |
if ($self->{'CurrentLoop'} < $self->{'Loops'}) |
|
236
|
0 |
0 |
if ($self->{'REPLACE'}) |
|
240
|
0 |
0 |
if ($savedcontent ne $self->{'Out'}) |
|
246
|
0 |
0 |
if (defined $self->{'Final'}) |
|
253
|
0 |
0 |
if (defined $self->{'macrosdefined'}) |
|
257
|
0 |
0 |
if ($s =~ /\n/) |
|
259
|
0 |
0 |
if ($s) { } |
|
270
|
0 |
0 |
if ($self->{'REPLACE'} and $self->{'IgnoreOuter'}) { } |
|
281
|
3 |
3 |
if (ref $subs eq 'Regexp') { } |
|
|
2 |
1 |
elsif ($off < 1) { } |
|
282
|
1 |
2 |
if ($off < 1) { } |
|
283
|
1 |
0 |
if ($str =~ /$subs/) { } |
|
287
|
2 |
0 |
if ($str =~ /$subs/g) { } |
|
312
|
0 |
0 |
if ($ht eq '') |
|
313
|
0 |
0 |
if (exists $hook->{'begin'}) { } |
|
316
|
0 |
0 |
if ($ht eq 'string') { } |
|
|
0 |
0 |
elsif ($ht eq 'be') { } |
|
|
0 |
0 |
elsif ($ht eq 'regex') { } |
|
|
0 |
0 |
elsif ($ht eq 'ht:re2') { } |
|
318
|
0 |
0 |
unless $j != -1 and $j <= $i1 |
|
319
|
0 |
0 |
if $j == $i1 and $i2 <= $j + $pl2 |
|
324
|
0 |
0 |
unless $j != -1 and $j <= $i1 |
|
325
|
0 |
0 |
if ($hook->{'end'} ne '') { } |
|
327
|
0 |
0 |
if -1 == $j2 |
|
329
|
0 |
0 |
if $j == $i1 and $i2 <= $j2 |
|
334
|
0 |
0 |
unless @args |
|
336
|
0 |
0 |
unless $j < $i1 |
|
343
|
0 |
0 |
unless @args |
|
345
|
0 |
0 |
unless $j < $i1 |
|
360
|
0 |
0 |
if ($self->{'data'} eq '') { } |
|
367
|
0 |
0 |
if ($self->{'ttype'} == -2) { } |
|
380
|
0 |
0 |
if (defined $self->{'OutDelimiters'}) |
|
382
|
0 |
0 |
if ($self->{'data'} =~ /^\Q$b1\E(\d*)\Q$b2\E.*?\Q$e1\E\1\Q$e2\E/s) |
|
397
|
0 |
0 |
if ($ht eq 'string') { } |
|
|
0 |
0 |
elsif ($hook->{'ht'} eq 'regex') { } |
|
|
0 |
0 |
elsif ($hook->{'ht'} eq 'ht:re2') { } |
|
|
0 |
0 |
elsif (@{$self->{'args'};}) { } |
|
411
|
0 |
0 |
if $self->{'REPLACE'} |
|
412
|
0 |
0 |
if $main::O eq '' |
|
420
|
0 |
0 |
unless defined $code |
|
423
|
0 |
0 |
if ($@) |
|
438
|
0 |
0 |
if (defined $self->{'CodePreparation'} and $self->{'CodePreparation'}) |
|
448
|
0 |
0 |
if ($self->{'REPLACE'}) |
|
449
|
0 |
0 |
if ($main::O ne '') |
|
455
|
0 |
0 |
if defined $self->{'OutDelimiters'} |
|
457
|
0 |
0 |
if (index($out, $e) != -1) |
|
458
|
0 |
0 |
if index($out, $e) == -1 |
|
459
|
0 |
0 |
if $i > 1000000 |
|
473
|
0 |
0 |
if (defined $self->{'CodePreparation'} and $self->{'CodePreparation'}) |
|
484
|
0 |
0 |
if ($self->{'REPLACE'}) { } |
|
|
0 |
0 |
elsif ($main::O eq '') { } |
|
491
|
0 |
0 |
if (index($main::O, $e) != -1) |
|
492
|
0 |
0 |
if index($main::O, $e) == -1 |
|
493
|
0 |
0 |
if $i > 1000000 |
|
511
|
0 |
0 |
if $self->{'REPLACE'} |
|
512
|
0 |
0 |
if $main::O eq '' |
|
520
|
0 |
0 |
if $self->{'REPLACE'} |
|
531
|
0 |
0 |
if ($self->{'REPLACE'}) |
|
542
|
0 |
0 |
if ($self->{'CurrentLoop'} > 1) |
|
544
|
0 |
0 |
unless $data =~ /^.+/ |
|
545
|
0 |
0 |
unless $& |
|
546
|
0 |
0 |
if $self->{'ForbidMacro'}{$&} |
|
557
|
0 |
0 |
if ($self->{'CurrentLoop'} > 1) |
|
559
|
0 |
0 |
unless $data =~ /^.+/ |
|
560
|
0 |
0 |
unless $& |
|
561
|
0 |
0 |
if $self->{'ForbidMacro'}{$&} |
|
568
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
574
|
0 |
0 |
if ($self->{'CurrentLoop'} > 1) |
|
576
|
0 |
0 |
unless $data =~ /^.+/ |
|
577
|
0 |
0 |
unless $& |
|
578
|
0 |
0 |
if defined $self->{'ForbidMacro'}{$&} |
|
584
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
590
|
0 |
0 |
if ($self->{'CurrentLoop'} > 1) |
|
592
|
0 |
0 |
unless $data =~ /^.+/ |
|
593
|
0 |
0 |
unless $& |
|
594
|
0 |
0 |
if (defined $self->{'Macros'}{$&} or $self->{'ForbidMacro'}{$&}) |
|
603
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
609
|
0 |
0 |
if ($self->{'CurrentLoop'} < 2 or $self->{'HideMacros'}) |
|
612
|
0 |
0 |
unless $data =~ /^.+/ |
|
613
|
0 |
0 |
unless $& |
|
620
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
626
|
0 |
0 |
if ($self->{'CurrentLoop'} < 2 or $self->{'HideMacros'}) |
|
629
|
0 |
0 |
unless $data =~ /^.+/ |
|
630
|
0 |
0 |
unless $& |
|
631
|
0 |
0 |
unless defined $self->{'Macros'}{$&} |
|
637
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
643
|
0 |
0 |
if ($self->{'CurrentLoop'} < 2) |
|
645
|
0 |
0 |
unless $data =~ /^.+/ |
|
646
|
0 |
0 |
unless $& |
|
647
|
0 |
0 |
unless defined $self->{'Macros'}{$&} |
|
653
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
659
|
0 |
0 |
if ($self->{'CurrentLoop'} < 2) |
|
661
|
0 |
0 |
unless $data =~ /^.+/ |
|
662
|
0 |
0 |
unless $& |
|
663
|
0 |
0 |
unless defined $self->{'Macros'}{$&} |
|
670
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
676
|
0 |
0 |
unless $data =~ /^.+/ |
|
677
|
0 |
0 |
unless $& |
|
683
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
689
|
0 |
0 |
unless $data =~ /^.+/ |
|
690
|
0 |
0 |
unless $& |
|
696
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
702
|
0 |
0 |
unless $data =~ /^.+/ |
|
703
|
0 |
0 |
unless $& |
|
709
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
715
|
0 |
0 |
if ($self->{'CurrentLoop'} < 2) |
|
716
|
0 |
0 |
unless $data =~ /^.+/ |
|
717
|
0 |
0 |
unless $& |
|
718
|
0 |
0 |
unless defined $self->{'Macros'}{$&} |
|
725
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
731
|
0 |
0 |
unless $data =~ /^.+/ |
|
732
|
0 |
0 |
unless $& |
|
735
|
0 |
0 |
if $self->{'ForbidMacro'}{$mn} |
|
736
|
0 |
0 |
unless (defined $self->{'Macros'}{$mn}) |
|
742
|
0 |
0 |
unless ref $self eq 'Text::Starfish' |
|
748
|
0 |
0 |
unless $data =~ /^.+/ |
|
749
|
0 |
0 |
unless $& |
|
751
|
0 |
0 |
if $self->{'ForbidMacro'}{$mn} |
|
752
|
0 |
0 |
unless (defined $self->{'Macros'}{$mn}) |
|
794
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
796
|
0 |
0 |
if ($#_ == -1) |
|
797
|
0 |
0 |
if (defined $self->{'STYLE'} and $self->{'STYLE'} ne '') { } |
|
802
|
0 |
0 |
if ($f =~ /\.(html\.sfish|sf)$/i) { } |
|
805
|
0 |
0 |
if ($f =~ /\.html?/i) { } |
|
|
0 |
0 |
elsif ($f =~ /\.(?:la)?tex$/i) { } |
|
|
0 |
0 |
elsif ($f =~ /\.java$/i) { } |
|
|
0 |
0 |
elsif ($f =~ /^[Mm]akefile/) { } |
|
|
0 |
0 |
elsif ($f =~ /\.ps$/i) { } |
|
|
0 |
0 |
elsif ($f =~ /\.py$/i) { } |
|
818
|
0 |
0 |
if ($s eq 'latex' or $s eq 'TeX') |
|
819
|
0 |
0 |
if (defined $self->{'Style'} and $s eq $self->{'Style'}) |
|
839
|
0 |
0 |
if ($s eq 'perl') { } |
|
|
0 |
0 |
elsif ($s eq 'makefile') { } |
|
|
0 |
0 |
elsif ($s eq 'python') { } |
|
|
0 |
0 |
elsif ($s eq 'java') { } |
|
|
0 |
0 |
elsif ($s eq 'tex') { } |
|
|
0 |
0 |
elsif ($s eq 'html.sfish') { } |
|
|
0 |
0 |
elsif ($s eq 'html') { } |
|
|
0 |
0 |
elsif ($s eq 'ps') { } |
|
908
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
913
|
0 |
0 |
if (ref $fun eq '') |
|
914
|
0 |
0 |
if ($fun eq 'ignore') { } |
|
|
0 |
0 |
elsif ($fun eq 'echo') { } |
|
917
|
0 |
0 |
$lc eq '' ? : |
|
924
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
927
|
0 |
0 |
if $#_ > 0 |
|
933
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
935
|
0 |
0 |
if scalar @_ != 4 |
|
942
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
947
|
0 |
0 |
if ($ht eq 'string') { } |
|
|
0 |
0 |
elsif ($ht eq 'be') { } |
|
|
0 |
0 |
elsif ($ht eq 'regex') { } |
|
|
0 |
0 |
elsif ($ht eq 'ht:re2') { } |
|
953
|
0 |
0 |
if ($#_ > -1) |
|
955
|
0 |
0 |
if ($f eq 'default') { } |
|
|
0 |
0 |
elsif ($f eq 'ignore') { } |
|
|
0 |
0 |
elsif ($f eq 'echo') { } |
|
|
0 |
0 |
elsif (ref $f eq 'CODE') { } |
|
965
|
0 |
0 |
if ($self->{'REPLACE'}) |
|
978
|
0 |
0 |
if $@ |
|
984
|
0 |
0 |
if (ref $replace eq '' and $replace eq 'comment') { } |
|
|
0 |
0 |
elsif (ref $replace eq 'CODE') { } |
|
994
|
0 |
0 |
unless ref $replace eq 'CODE' |
|
1004
|
0 |
0 |
if ($#_ == 2) { } |
|
|
0 |
0 |
elsif ($#_ == 1 and ref $_[0] eq 'Regexp') { } |
|
1013
|
0 |
0 |
if (ref $self ne 'Text::Starfish') |
|
1017
|
0 |
0 |
if ($ht eq 'be') { } |
|
1021
|
0 |
0 |
if ($h->{'begin'} eq $b and $h->{'end'} eq $e) { } |
|
1040
|
0 |
0 |
unless ref $f eq 'CODE' |
|
1041
|
0 |
0 |
unless (defined $self->{'Final'}) |
|
1048
|
0 |
0 |
if $self->{'CurrentLoop'} > 1 |
|
1049
|
0 |
0 |
if $self->{'Loops'} < 2 |
|
1109
|
0 |
0 |
unless $f =~ /\b$l=(.*(?:(?<=\\)\n.*)*)/ |
|
1130
|
0 |
0 |
if ($& eq "\n") { } |
|
1143
|
0 |
0 |
unless open F, "<$f" |
|
1146
|
0 |
0 |
wantarray ? : |
|
1152
|
0 |
0 |
unless open F, ">$f" |
|
1153
|
0 |
0 |
unless @_ |
|
1161
|
0 |
0 |
unless open F, ">>$f" |
|
1162
|
0 |
0 |
unless @_ |
|
1177
|
0 |
0 |
if ($arg =~ /^file=/) |
|
1178
|
0 |
0 |
unless open F, $f |
|
1185
|
0 |
0 |
if ($arg =~ /^([ \t\r]*(#.*)?\n)+/) |
|
1186
|
0 |
0 |
if $arg eq '' |
|
1187
|
0 |
0 |
if ($arg =~ /([ \t\r]*\n){2,}/) { } |
|
1191
|
0 |
0 |
if ($record =~ /^[ \t]*#.*\n/) |
|
1193
|
0 |
0 |
unless $record =~ /^[ \t]*([^\n:]*?)[ \t]*:/ |
|
1196
|
0 |
0 |
if $k eq '' |
|
1198
|
0 |
0 |
if ($record =~ /^(.*?)\\(\r?\n)/) { } |
|
|
0 |
0 |
elsif ($record =~ /^.*?\r?\n[ \t]/) { } |
|
|
0 |
0 |
elsif ($record =~ /^(.*?)\r?\n/) { } |
|
1203
|
0 |
0 |
if (exists $r->{$k}) |
|
1212
|
0 |
0 |
wantarray ? : |
|
1218
|
0 |
0 |
@_ ? : |
|
1219
|
0 |
0 |
if ($self->{'Loops'} < 2) |
|
1224
|
0 |
0 |
@_ ? : |
|
1229
|
0 |
0 |
@_ ? : |
|
1239
|
0 |
0 |
unless -e 'starfish.conf' |
|
1246
|
0 |
0 |
unless chdir $d |
|
1250
|
0 |
0 |
unless chdir $currdir |
|
1264
|
0 |
0 |
if grep {$_ eq $d;} @Text::Starfish::DirGenerateIfNeeded |