| line |
true |
false |
branch |
|
259
|
0 |
0 |
unless $DEBUG |
|
260
|
0 |
0 |
scalar @_ == 1 ? : |
|
273
|
0 |
0 |
unless defined $v |
|
274
|
0 |
0 |
unless $v =~ m[^\s*\!{0,2}(perl/)?regexp\s*]i |
|
276
|
0 |
0 |
unless $v =~ /^\(\?([\^\-uxism]*):(.*)\)\z/s |
|
286
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
0 |
@_ ? : |
|
287
|
0 |
0 |
unless length $file and -r $file |
|
291
|
0 |
0 |
if (ref $file) { } |
|
296
|
0 |
0 |
unless (defined $fh) |
|
312
|
0 |
0 |
if defined $ret |
|
314
|
0 |
0 |
unless (defined $ret) |
|
319
|
0 |
0 |
if $cleanup |
|
321
|
0 |
0 |
if defined $args->{'buffer'} |
|
327
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
0 |
@_ ? : |
|
333
|
0 |
0 |
if $args->{'append'} |
|
334
|
0 |
0 |
if $args->{'locked'} |
|
337
|
0 |
0 |
if (ref $file) { } |
|
342
|
0 |
0 |
unless (defined $fh) |
|
352
|
0 |
0 |
if (ref $data eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
360
|
0 |
0 |
if $args->{'append'} |
|
361
|
0 |
0 |
unless $fh->print(${$buf_ref;}) |
|
362
|
0 |
0 |
if $cleanup |
|
363
|
0 |
0 |
if $cleanup |
|
368
|
0 |
0 |
unless length $fn |
|
371
|
0 |
0 |
unless ($ostat) |
|
375
|
0 |
0 |
if $ostat |
|
381
|
0 |
0 |
unless defined $file and -e $file |
|
382
|
0 |
0 |
unless (unlink $file) |
|
390
|
0 |
0 |
unless defined $file |
|
391
|
0 |
0 |
unless -e $file and -r $file |
|
394
|
0 |
0 |
unless $data |
|
400
|
0 |
0 |
unless defined $file |
|
401
|
0 |
0 |
unless defined $data |
|
412
|
0 |
0 |
unless defined $mfile and -e $mfile and -r $mfile and -s $mfile |
|
414
|
0 |
0 |
unless (open $fh, "<", $mfile) |
|
421
|
0 |
0 |
if /^\s*#/ |
|
424
|
0 |
0 |
if ($skipflag and $_ =~ m[^\s*\!\!perl/regexp\s*]i) { } |
|
433
|
0 |
0 |
unless (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/) |
|
439
|
0 |
0 |
if (($file, $args) = /^'(\\[\\']|.+)+'\s*(.*)/) { } |
|
445
|
0 |
0 |
unless $file |
|
446
|
0 |
0 |
defined $args ? : |
|
453
|
0 |
0 |
unless defined $dir and -e $dir |
|
463
|
0 |
0 |
if -d $_ |
|
489
|
0 |
0 |
unless defined $file |
|
490
|
0 |
0 |
unless defined $mani and ref $mani eq "HASH" |
|
496
|
0 |
0 |
unless (open $fh, ">", $file) |
|
513
|
0 |
0 |
$d->{'mtime'} ? : |
|
516
|
0 |
0 |
if $tabs < 1 |
|
517
|
0 |
0 |
unless $text |
|
518
|
0 |
0 |
if ($f =~ /\s/) |