| line |
!l |
l&&!r |
l&&r |
condition |
|
237
|
0 |
0 |
3 |
defined &Carp::CALLER_OVERRIDE_CHECK_OK && &Carp::CALLER_OVERRIDE_CHECK_OK
|
|
266
|
4 |
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH'
|
|
351
|
0 |
0 |
0 |
$llen > $indent and $llen + length($_) > $foldwidth
|
|
380
|
0 |
0 |
0 |
index($colspec, $left) < 0 and index($colspec, $right) < 0
|
|
467
|
14 |
0 |
0 |
$title =~ /^[1-9]\d*$/u || $title eq '0' and $title <= $num_cols
|
|
522
|
0 |
0 |
2 |
defined $userpkg and $userpkg =~ /^[a-zA-Z][:\w]*$/a
|
|
583
|
7 |
70 |
208 |
@_ > 0 and ref $_[0]
|
|
584
|
0 |
0 |
184 |
ref $_[0] eq "ARRAY" and @{$_[0];} <= 2
|
|
|
0 |
0 |
184 |
ref $_[0] eq "ARRAY" and @{$_[0];} <= 2 and ref($_[0][0]) . "" =~ /^Spreadsheet::Edit\b/u
|
|
606
|
73 |
121 |
80 |
defined $rx and $rx < 0 || $rx > $#{$sheet->rows;}
|
|
728
|
10 |
0 |
1110 |
defined &blessed($_[0]) and $_[0]->isa("Spreadsheet::Edit")
|
|
|
10 |
0 |
1110 |
defined &blessed($_[0]) and $_[0]->isa("Spreadsheet::Edit") and shift @_
|
|
800
|
0 |
1 |
0 |
$opts{"undef_ok"} and not defined $$opthash{$k}
|
|
|
1 |
0 |
0 |
$opts{"undef_ok"} and not defined $$opthash{$k} and not grep({$_ eq $k;} @{$opts{"undef_ok"};})
|
|
848
|
0 |
0 |
4 |
defined $_[0] and "$_[0]" =~ /^\d+$/u
|
|
920
|
0 |
0 |
4 |
defined $classname and $classname =~ /^[\w_:]+$/u
|
|
1034
|
0 |
0 |
6 |
ref $linenums eq "ARRAY" and &all(sub {
|
|
1039
|
4 |
0 |
0 |
$num_cols and $num_cols != $nc
|
|
1109
|
0 |
3 |
0 |
@_ > 0 and %$tiedvarnames
|
|
1323
|
0 |
0 |
0 |
exists $${$self;}{"input_iolayers"} and $${$self;}{"input_iolayers"} =~ /encoding\(([^()]*)\)/u
|
|
1370
|
0 |
0 |
9 |
&blessed($sheet) && $sheet->isa('Spreadsheet::Edit')
|
|
|
3 |
9 |
0 |
defined $sheet and not &blessed($sheet) && $sheet->isa('Spreadsheet::Edit')
|
|
1472
|
1 |
1 |
0 |
$rx <= $#$rows and !defined($rxlast) || $rx <= $rxlast
|
|
1485
|
6 |
0 |
0 |
defined $$hash{"current_rx"} and $$hash{"current_rx"} > $#$rows
|
|
1639
|
0 |
0 |
0 |
$spec =~ /^[1-9]\d*$/u || $spec eq '0' and $spec <= $num_cols
|
|
1758
|
0 |
0 |
0 |
$$opthash{"optional"} and $@ =~ /does not match/isu
|
|
1905
|
1 |
0 |
0 |
$debug and @nd_reasons
|
|
2049
|
0 |
0 |
0 |
not defined $title_rx and $have_new_titles
|
|
2055
|
0 |
0 |
0 |
defined $title_rx and $row == $$rows[$title_rx]
|
|
2311
|
0 |
0 |
5 |
@$result > 0 and not grep({$_ eq "" unless ref $_;} @$result)
|
|
2520
|
0 |
0 |
0 |
defined $title_rx and $rx <= $title_rx
|
|
2523
|
0 |
0 |
0 |
defined $first_data_rx and $rx <= $first_data_rx
|
|
2526
|
0 |
0 |
0 |
defined $last_data_rx and $rx <= $last_data_rx
|
|
2718
|
0 |
0 |
0 |
$dest =~ /\.([a-z]*)$/u and lc $1 ne "csv"
|
|
2762
|
0 |
0 |
0 |
$csvopts{'escape_char'} ne '' && $csvopts{'escape_char'} ne "\000"
|
|
2785
|
0 |
0 |
0 |
$csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0"
|
|
|
0 |
0 |
0 |
$csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0" and $value =~ /\Q$csvopts{"sep_char"}\E/d
|
|
|
0 |
0 |
0 |
$csvopts{"escape_char"} ne "" and $csvopts{"escape_char"} ne "\0"
|
|
|
0 |
0 |
0 |
$csvopts{"escape_char"} ne "" and $csvopts{"escape_char"} ne "\0" and $value =~ /\Q$csvopts{"escape_char"}\E/d
|
|
|
0 |
0 |
0 |
$csvopts{"quote_binary"} and $value =~ /[\x00-\x1f\x7f-\xa0]/d
|
|
|
0 |
0 |
0 |
$csvopts{"quote_space"} and $value =~ /[\x09\x20]/d
|
|
2864
|
0 |
0 |
0 |
defined $pkg and $pkg->isa("Data::Dumper")
|
|
2967
|
0 |
0 |
47 |
$index >= 0 and $index <= $#$aref
|
|
2974
|
0 |
0 |
12 |
$index >= 0 and $index <= $#$aref + 1
|
| line |
l |
!l |
condition |
|
346
|
0 |
0 |
$indent //= 4
|
|
347
|
0 |
0 |
$foldwidth //= 72
|
|
612
|
0 |
274 |
$sheet->attributes->{"logmsg_pfx_gen"} // \&Spreadsheet::Edit::_default_pfx_gen
|
|
797
|
0 |
0 |
$opts{"desc"} // "option"
|
|
842
|
0 |
0 |
$optdesc // "option"
|
|
848
|
0 |
0 |
$_[1] // "argument"
|
|
854
|
0 |
0 |
$_[1] // "argument"
|
|
877
|
0 |
0 |
$rx // ""
|
|
928
|
0 |
4 |
delete $$opthash{"cmd_nesting"} // 0
|
|
952
|
0 |
4 |
delete $opts{"attributes"} // {}
|
|
|
0 |
4 |
delete $opts{"linenums"} // []
|
|
|
0 |
4 |
delete $opts{"meta_info"} // []
|
|
1050
|
6 |
6 |
$_ //= "???"
|
|
1055
|
0 |
2 |
$$hash{"num_cols"} //= 0
|
|
1082
|
0 |
0 |
$$$self{"pkg2tiedvarnames"}{$pkg} //= {}
|
|
1107
|
0 |
3 |
$$$self{"pkg2tiedvarnames"}{$pkg} //= {}
|
|
1342
|
0 |
0 |
$$$self{"current_rx"} // (return undef)
|
|
1387
|
0 |
0 |
$$$self{'cmd_nesting'} || 1
|
|
1397
|
0 |
0 |
$sheet->sheetname || $sheet->data_source || 'no data_source'
|
|
1472
|
1 |
0 |
$rxfirst // 0
|
|
1875
|
0 |
1 |
$$opthash{"min_rx"} // 0
|
|
1879
|
0 |
1 |
$$opthash{"first_cx"} // 0
|
|
1880
|
0 |
1 |
$$opthash{"last_cx"} // 2147483647
|
|
1995
|
0 |
0 |
$$$self{"first_data_rx"} // 0
|
|
2047
|
0 |
0 |
$_ // ""
|
|
2237
|
0 |
0 |
$$hash{"title_rx"} // -1
|
|
2287
|
1 |
0 |
$$hash{"title_rx"} // -1
|
|
|
0 |
1 |
$$hash{"first_data_rx"} // 0
|
|
2414
|
0 |
0 |
$$row[$ocx] // ""
|
|
2425
|
0 |
0 |
$$$self{"data_source"} //= ""
|
|
2507
|
0 |
0 |
$rx //= "END"
|
|
2508
|
0 |
0 |
$count //= 1
|
|
2582
|
0 |
0 |
$$opthash{"iolayers"} // ""
|
|
2586
|
0 |
2 |
$$$self{"iolayers"} // ""
|
|
2692
|
0 |
0 |
$$$self{"iolayers"} // ""
|
|
2696
|
0 |
0 |
$self->input_encoding || 'UTF-8'
|
|
2863
|
0 |
0 |
(caller $lvl)[0] || (last)
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
351
|
0 |
0 |
0 |
$_ eq "\n" or $llen > $indent and $llen + length($_) > $foldwidth
|
|
467
|
0 |
0 |
14 |
$title =~ /^[1-9]\d*$/u || $title eq '0'
|
|
|
0 |
0 |
14 |
$title eq "" or $title eq "^"
|
|
|
0 |
0 |
14 |
$title eq "" or $title eq "^" or $title eq "\$"
|
|
482
|
6 |
0 |
0 |
$title_rx // &oops()
|
|
525
|
2 |
0 |
0 |
$opts{"data_source"} ||= "Created at ${fn}:$lno by $subname"
|
|
606
|
40 |
40 |
121 |
$rx < 0 || $rx > $#{$sheet->rows;}
|
|
854
|
0 |
0 |
0 |
not defined $_[0] or "$_[0]" =~ /^\d+$/u
|
|
895
|
0 |
0 |
0 |
$wantarray or not defined $wantarray
|
|
941
|
0 |
0 |
0 |
delete $opts{"data_source"} // qq[cloned from $$$self{"data_source"}]
|
|
1034
|
6 |
0 |
0 |
&looks_like_number($_) or not /[^\?]/u
|
|
1081
|
0 |
0 |
0 |
$$opts{"package"} // &__callerpkg()
|
|
1214
|
2 |
0 |
0 |
$pkg2currsheet{$pkg} // croak("No sheet is currently valid for package $pkg\n")
|
|
1244
|
0 |
0 |
3 |
$$opts{"silent"} // $$$self{"silent"}
|
|
1245
|
0 |
0 |
3 |
$$opts{"verbose"} // $$$self{"verbose"}
|
|
1246
|
0 |
0 |
3 |
$$opts{"debug"} // $$$self{"debug"}
|
|
1248
|
2 |
1 |
0 |
$$opts{"package"} // &__callerpkg()
|
|
1348
|
0 |
0 |
0 |
$rx < 0 or $rx > $#$rows
|
|
1351
|
0 |
0 |
0 |
not defined $cx or $cx < 0
|
|
|
0 |
0 |
0 |
not defined $cx or $cx < 0 or $cx > $#$row
|
|
1452
|
0 |
0 |
0 |
$_ < 0 or $_ >= $num_cols
|
|
1465
|
0 |
0 |
5 |
$rx < 0 or $rx > $#$rows
|
|
1472
|
1 |
0 |
0 |
!defined($rxlast) || $rx <= $rxlast
|
|
1639
|
0 |
0 |
0 |
$spec =~ /^[1-9]\d*$/u || $spec eq '0'
|
|
1652
|
0 |
0 |
0 |
$$rows[$title_rx] // &oops()
|
|
1784
|
0 |
0 |
0 |
delete $$useraliases{$_} // croak("unalias: '${_}' is not a column alias\n")
|
|
1786
|
0 |
0 |
0 |
delete $$colx{$_} // &oops()
|
|
1787
|
0 |
0 |
0 |
delete $$colx_desc{$_} // &oops()
|
|
1876
|
0 |
1 |
0 |
$$opthash{"max_rx"} // $min_rx + 3
|
|
2081
|
0 |
0 |
0 |
$first_data_rx // (defined $title_rx ? $title_rx + 1 : 0)
|
|
|
0 |
0 |
0 |
$first_rx //= $first_data_rx // (defined $title_rx ? $title_rx + 1 : 0)
|
|
2083
|
0 |
0 |
0 |
$last_data_rx // $#$rows
|
|
|
0 |
0 |
0 |
$last_rx //= $last_data_rx // $#$rows
|
|
2346
|
0 |
0 |
0 |
$_ < 0 or $_ > $max_rx
|
|
2586
|
0 |
0 |
2 |
$$opthash{"iolayers"} //= $$$self{"iolayers"} // ""
|
|
2599
|
0 |
0 |
2 |
$$$self{'verbose'} || $$$self{'debug'}
|
|
2611
|
0 |
0 |
2 |
$$$self{"iolayers"} //= $$hash{"iolayers"}
|
|
2692
|
0 |
0 |
0 |
$$opts{"iolayers"} //= $$$self{"iolayers"} // ""
|
|
2773
|
0 |
0 |
0 |
$csvopts{'always_quote'} || ($mi // 0) & 1
|
|
2785
|
0 |
0 |
0 |
$value =~ /\Q$csvopts{"quote_char"}\E/d or $csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0" and $value =~ /\Q$csvopts{"sep_char"}\E/d
|
|
|
0 |
0 |
0 |
$value =~ /\Q$csvopts{"quote_char"}\E/d or $csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0" and $value =~ /\Q$csvopts{"sep_char"}\E/d or $csvopts{"escape_char"} ne "" and $csvopts{"escape_char"} ne "\0" and $value =~ /\Q$csvopts{"escape_char"}\E/d
|
|
|
0 |
0 |
0 |
$value =~ /\Q$csvopts{"quote_char"}\E/d or $csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0" and $value =~ /\Q$csvopts{"sep_char"}\E/d or $csvopts{"escape_char"} ne "" and $csvopts{"escape_char"} ne "\0" and $value =~ /\Q$csvopts{"escape_char"}\E/d or $csvopts{"quote_binary"} and $value =~ /[\x00-\x1f\x7f-\xa0]/d
|
|
|
0 |
0 |
0 |
$value =~ /\Q$csvopts{"quote_char"}\E/d or $csvopts{"sep_char"} ne "" and $csvopts{"sep_char"} ne "\0" and $value =~ /\Q$csvopts{"sep_char"}\E/d or $csvopts{"escape_char"} ne "" and $csvopts{"escape_char"} ne "\0" and $value =~ /\Q$csvopts{"escape_char"}\E/d or $csvopts{"quote_binary"} and $value =~ /[\x00-\x1f\x7f-\xa0]/d or $csvopts{"quote_space"} and $value =~ /[\x09\x20]/d
|
|
2821
|
0 |
0 |
0 |
$$opts{"col_formats"} // croak("{col_formats} is required")
|
|
2826
|
0 |
0 |
0 |
$$colx{$key} // croak("Invalid COLSPEC '${key}' in col_formats")
|
|
2842
|
0 |
0 |
0 |
$$opts{"sheetname"} //= fileparse($outpath, qr/\.\w+/u)
|
|
2890
|
0 |
0 |
0 |
$$$sheet{$array_ident} // &oops(&dvisq("\$array_ident \@_"))
|
|
2891
|
0 |
0 |
0 |
$$$sheet{$index_ident} // do {
|
|
2892
|
0 |
0 |
0 |
$index_ident eq "current_rx" or $index_ident eq "title_rx"
|
|
2914
|
2 |
12 |
0 |
$$opthash{"package"} // caller()
|
|
2918
|
0 |
0 |
14 |
$$opthash{'verbose'} || $curr && $$$curr{'verbose'}
|
|
2924
|
0 |
0 |
9 |
$verbose ||= $$$new{"verbose"}
|
|
3046
|
4 |
0 |
0 |
$cx <= $#{$cells;} // croak("BUG?? key '${key}' maps to cx $cx which is out of range!")
|