| line |
true |
false |
branch |
|
190
|
384 |
32 |
if $e =~ /^(utf-?8|ucs-?8)/i
|
|
197
|
11122 |
7469 |
if defined $_
|
|
207
|
15 |
0 |
if ref $infoh ne 'GLOB'
|
|
216
|
17 |
0 |
if ref $infoh ne 'GLOB'
|
|
226
|
51 |
16 |
$dont_wrap ? :
|
|
227
|
31 |
36 |
unless $self->{'quiet'}
|
|
233
|
306 |
8 |
if $self->{'_close_inh_when_finished'}
|
|
241
|
103 |
0 |
if defined $self->{'outh'} and $self->{'_close_outh_when_finished'}
|
|
251
|
5 |
3 |
if (defined $err_code and not $self->{'quiet'} and $self->{'croak_if_error'})
|
|
252
|
5 |
0 |
if ($err_code == 0) { }
|
|
262
|
15 |
2 |
defined $cols[$i] ? :
|
|
269
|
30 |
51 |
if ($self->{'croak_if_error'} and not $dont_stop)
|
|
308
|
253 |
2 |
unless defined $escape_char
|
|
310
|
0 |
255 |
if length $escape_char >= 2
|
|
313
|
0 |
255 |
if length $quote_char >= 2
|
|
316
|
0 |
255 |
if $escape_char eq ''
|
|
317
|
0 |
255 |
if $quote_char eq ''
|
|
330
|
0 |
255 |
if ($self->{'inh_is_stdin'}) { }
|
|
332
|
0 |
0 |
if $_debug
|
|
336
|
0 |
255 |
if $_debug
|
|
347
|
4514 |
255 |
if $c < $l - 1
|
|
348
|
1521 |
3248 |
if ($status == $ST_INSIDE) { }
|
|
|
3248 |
0 |
elsif ($status == $ST_OUTSIDE) { }
|
|
349
|
0 |
1521 |
if ($ch eq $escape_char and $chnext eq $quote_char) { }
|
|
|
197 |
1324 |
elsif ($ch eq $quote_char) { }
|
|
358
|
0 |
3248 |
if ($ch eq $escape_char and $chnext eq $quote_char || exists $Seps{$chnext}) { }
|
|
|
930 |
2318 |
elsif (exists $Seps{$ch}) { }
|
|
|
197 |
2121 |
elsif ($ch eq $quote_char) { }
|
|
373
|
144 |
111 |
if ($Seps{';'} == 0 and $Seps{','} >= 1) { }
|
|
|
102 |
9 |
elsif ($Seps{','} == 0 and $Seps{';'} >= 1) { }
|
|
|
0 |
9 |
elsif ($Seps{','} == 0 and $Seps{';'} == 0 and $Seps{"\t"} >= 1) { }
|
|
387
|
3 |
6 |
if ($h_no_accnt =~ /^[[:alnum:]_]+$/i)
|
|
393
|
0 |
6 |
if ($_debug)
|
|
408
|
0 |
633 |
unless (open $inh, '<', $in_file)
|
|
412
|
633 |
0 |
unless ($self->{'_leave_encoding_alone'})
|
|
415
|
0 |
633 |
unless defined $self->{'_inh_encoding_string'}
|
|
440
|
13 |
291 |
if ($self->{'_int_one_pass'})
|
|
448
|
291 |
0 |
if (defined $inh)
|
|
454
|
7 |
7081 |
if $l =~ /(?<!$sep_char)$quote_char$quote_char(?!$sep_char)/
|
|
459
|
7 |
284 |
if ($qesc) { }
|
|
467
|
291 |
0 |
if (defined $inh)
|
|
478
|
1036 |
9982 |
unless $csv->is_quoted($i)
|
|
480
|
247 |
1381 |
unless $is_always_quoted
|
|
482
|
44 |
247 |
$csv->eof ? :
|
|
486
|
0 |
291 |
if $_debug
|
|
499
|
950 |
0 |
unless $_debug
|
|
509
|
0 |
501 |
if defined $nonexistent_arg
|
|
514
|
153 |
348 |
if ($new_count > $self->get_max_in_mem_record_count)
|
|
520
|
0 |
501 |
if ($_debug)
|
|
522
|
0 |
0 |
if $updated_max
|
|
532
|
282 |
31 |
if not defined $enc or $enc eq ''
|
|
536
|
0 |
313 |
if $#encodings < 0
|
|
538
|
0 |
313 |
if $_debug
|
|
548
|
313 |
12 |
unless defined $m0
|
|
550
|
12 |
313 |
unless $detect_enc
|
|
552
|
0 |
313 |
if not defined $in_file or $in_file eq ''
|
|
554
|
0 |
313 |
if $_debug
|
|
560
|
289 |
24 |
if (_is_utf8($e))
|
|
561
|
289 |
0 |
if (open my $fh, '<:raw', $in_file)
|
|
564
|
12 |
277 |
if (length $bom == 3 and $bom eq "\357\273\277")
|
|
565
|
10 |
2 |
unless (defined $via)
|
|
574
|
0 |
313 |
unless (open $inh, '<', $in_file)
|
|
595
|
0 |
313 |
if $_debug
|
|
597
|
301 |
12 |
if $wrn == 0
|
|
600
|
0 |
313 |
if ($wrn >= 1)
|
|
606
|
0 |
313 |
unless defined $m
|
|
608
|
0 |
313 |
if $_debug
|
|
629
|
18 |
469 |
if (defined $self->{'_status'} and $self->{'_status'} == 4)
|
|
630
|
16 |
2 |
unless ($called_from_print_error)
|
|
639
|
30 |
457 |
if $called_from_print_error
|
|
663
|
0 |
4156 |
if (not defined $step or $step != -1 and $step != 1)
|
|
668
|
0 |
4156 |
unless ($n) = $target =~ /^S(\d)$/
|
|
670
|
1 |
4155 |
if ($self->{'_read_in_progress'})
|
|
676
|
139 |
4016 |
if ($step == -1)
|
|
677
|
19 |
120 |
if ($n < $self->{'_status'})
|
|
678
|
16 |
3 |
if ($self->{'_status'} == 4)
|
|
679
|
0 |
16 |
if $_debug
|
|
683
|
0 |
3 |
if $_debug
|
|
688
|
856 |
3160 |
if ($self->{'_status'} < $n)
|
|
689
|
0 |
856 |
if $_debug
|
|
692
|
12 |
349 |
if ($self->{'_status'} <= 1 and $n >= 2 and $self->{'_int_one_pass'} and $self->get_pass_count >= 1)
|
|
695
|
12 |
0 |
if $self->{'one_pass'}
|
|
696
|
0 |
0 |
unless $self->{'one_pass'}
|
|
702
|
0 |
1326 |
unless defined $funcname
|
|
704
|
0 |
1326 |
if $_debug
|
|
706
|
1326 |
0 |
if (my $member_function = $self->can($funcname)) { }
|
|
707
|
3 |
1307 |
unless $self->$member_function
|
|
713
|
0 |
1307 |
if $_debug
|
|
792
|
322 |
0 |
unless defined $self->{'_debugh'}
|
|
793
|
0 |
322 |
if $ALWAYS_DEBUG
|
|
795
|
0 |
322 |
if $_debug
|
|
804
|
1 |
321 |
if (defined($self->{'fields_ar'}) + defined($self->{'fields_hr'}) + defined($self->{'fields_column_names'}) >= 2)
|
|
811
|
2 |
320 |
if (defined $self->{'fields_ar'} and not defined $self->{'fields_hr'})
|
|
819
|
13 |
309 |
unless ($self->{'has_headers'})
|
|
820
|
1 |
12 |
if (defined $self->{'fields_ar'})
|
|
824
|
1 |
11 |
if (defined $self->{'fields_hr'})
|
|
839
|
3 |
311 |
unless $self->_status_reset
|
|
841
|
0 |
311 |
if $_debug
|
|
843
|
309 |
2 |
if ($self->{'dates_zeros_ok'})
|
|
846
|
4201 |
5425 |
unless ($v =~ /[1-9]/)
|
|
847
|
3 |
4198 |
if $v =~ /^[^0:]*0+[^0:]+0+[^0:]+0+/
|
|
872
|
4 |
459 |
unless defined $self->{'in_file'}
|
|
876
|
0 |
463 |
if defined $self->{'dont_mess_with_encoding'}
|
|
888
|
4 |
459 |
if (defined $self->{'inh'}) { }
|
|
889
|
4 |
0 |
unless defined $self->{'dont_mess_with_encoding'}
|
|
891
|
4 |
0 |
unless defined $self->{'one_pass'}
|
|
894
|
459 |
0 |
unless defined $self->{'dont_mess_with_encoding'}
|
|
897
|
0 |
459 |
if ($in_file eq '') { }
|
|
900
|
0 |
0 |
unless defined $self->{'one_pass'}
|
|
903
|
3 |
456 |
unless (open $inh, '<', $in_file)
|
|
913
|
0 |
460 |
unless defined $in_file_disp
|
|
926
|
456 |
4 |
unless ($self->{'_leave_encoding_alone'})
|
|
927
|
313 |
143 |
unless ($self->{'_init_input_already_called'})
|
|
929
|
12 |
301 |
$self->{'_int_one_pass'} ? :
|
|
936
|
0 |
456 |
if $_debug
|
|
940
|
241 |
219 |
unless defined $self->{'out_file'}
|
|
951
|
317 |
143 |
unless defined $self->{'quote_char'}
|
|
953
|
5 |
455 |
if (defined $self->{'in_csvobj'}) { }
|
|
954
|
200 |
255 |
if (defined $self->{'sep_char'}) { }
|
|
956
|
0 |
200 |
if $_debug
|
|
960
|
255 |
0 |
unless ($self->{'_init_input_already_called'})
|
|
961
|
6 |
249 |
unless ($self->_detect_csv_sep($escape_char, $quote_char, \$sep_char))
|
|
965
|
0 |
249 |
if $_debug
|
|
969
|
0 |
0 |
$sep_char eq "\t" ? :
|
|
|
0 |
449 |
if $_debug
|
|
972
|
304 |
145 |
unless (defined $self->{'escape_char'})
|
|
982
|
0 |
449 |
unless (defined $self->{'_in_csvobj'})
|
|
1074
|
0 |
19 |
unless $self->_status_forward('S3')
|
|
1085
|
0 |
1 |
unless $self->_status_forward('S3')
|
|
1094
|
0 |
0 |
unless $self->_status_forward('S3')
|
|
1113
|
0 |
2 |
unless defined $self->{'_stats'}
|
|
1120
|
0 |
0 |
if defined $self->{'fields_ar'}
|
|
1121
|
0 |
0 |
if defined $self->{'fields_column_names'}
|
|
1122
|
0 |
0 |
if defined $self->{'fields_hr'}
|
|
1167
|
0 |
12 |
if $#tmp >= 0
|
|
1174
|
0 |
48 |
if ($#all_idx >= 1)
|
|
1180
|
0 |
48 |
if ($idx < 0) { }
|
|
1188
|
0 |
12 |
$e >= 1 ? :
|
|
1197
|
0 |
2 |
unless $self->_status_forward('S2')
|
|
1198
|
0 |
2 |
unless $self->_status_backward('S2')
|
|
1210
|
0 |
2 |
unless $self->_status_forward('S2')
|
|
1211
|
0 |
2 |
unless $self->_status_backward('S2')
|
|
1320
|
530 |
0 |
if ($self->{'has_headers'}) { }
|
|
1322
|
0 |
530 |
unless defined $col
|
|
1333
|
0 |
40 |
unless $self->_status_forward('S3')
|
|
1334
|
0 |
40 |
unless defined $self->{'_dates_detailed_status'}
|
|
1341
|
67 |
281 |
if $self->{'_detect_dates_formats_has_run'}
|
|
1343
|
11 |
270 |
if defined $self->{'fields_dates'}
|
|
1344
|
230 |
40 |
unless @fields_dates or $self->{'fields_dates_auto'}
|
|
1346
|
0 |
51 |
if ($self->{'_int_one_pass'})
|
|
1381
|
51 |
0 |
if $self->{'has_headers'}
|
|
1393
|
11 |
40 |
if (defined $self->{'fields_dates'}) { }
|
|
|
40 |
0 |
elsif ($self->{'fields_dates_auto'}) { }
|
|
1397
|
1 |
22 |
unless (exists $regular_named_fields{$f})
|
|
1404
|
0 |
22 |
if (exists $column_seen{$n})
|
|
1411
|
1 |
10 |
if $count_field_not_found
|
|
1429
|
2 |
48 |
if defined $self->{'dates_formats_to_try_supp'}
|
|
1431
|
40 |
10 |
unless defined $formats_to_try
|
|
1436
|
912 |
0 |
unless exists $seen{$_}
|
|
1441
|
36 |
14 |
unless defined $ignore_trailing_chars
|
|
1442
|
43 |
7 |
unless defined $search_time
|
|
1444
|
40 |
10 |
$ignore_trailing_chars ? :
|
|
1470
|
2 |
48 |
if defined $localizations
|
|
1472
|
200 |
712 |
$f =~ /%a|%A|%b|%B|%c|%\+/ ? :
|
|
1473
|
902 |
10 |
unless (@locales and $has_localized_item)
|
|
1502
|
244 |
678 |
if (exists $mates{$m}) { }
|
|
1504
|
202 |
42 |
$fstr =~ /%y/ ? :
|
|
1505
|
42 |
202 |
$fstr =~ /%Y/ ? :
|
|
1506
|
42 |
202 |
$alt_fstr =~ /%y/ ? :
|
|
1507
|
202 |
42 |
$alt_fstr =~ /%Y/ ? :
|
|
1511
|
42 |
202 |
if (not $m_lower and $m_upper and $a_lower and not $a_upper) { }
|
|
|
202 |
0 |
elsif ($m_lower and not $m_upper and not $a_lower and $a_upper) { }
|
|
1524
|
20 |
902 |
if $floc ne ''
|
|
1525
|
880 |
42 |
$fstr ne '' ? :
|
|
1543
|
0 |
922 |
if $format->index_slave >= 0 and $format->index_master >= 0
|
|
1546
|
244 |
678 |
if ($format->index_slave >= 0)
|
|
1548
|
0 |
244 |
if ($mate->index_master != $i or $mate->index_slave != -1)
|
|
1553
|
244 |
678 |
if ($format->index_master >= 0)
|
|
1555
|
0 |
244 |
if ($mate->index_slave != $i or $mate->index_master != -1)
|
|
1561
|
0 |
50 |
if ($debug_fmt)
|
|
1564
|
0 |
0 |
if $_->index_slave >= 0
|
|
1565
|
0 |
0 |
if $_->index_master >= 0
|
|
1567
|
0 |
0 |
if $idx >= 0
|
|
1595
|
0 |
4645 |
if ($debug_fmt)
|
|
1601
|
14533 |
16897 |
if $cache_nodate[$n]
|
|
1604
|
89 |
16808 |
unless defined $v
|
|
1605
|
7502 |
9395 |
if $v eq ''
|
|
1606
|
3 |
9392 |
if defined $refsub_is_datetime_empty and &$refsub_is_datetime_empty($v)
|
|
1608
|
0 |
9392 |
if ($debug_fmt)
|
|
1617
|
0 |
158222 |
if $debug_fmt
|
|
1631
|
8267 |
149955 |
unless defined $records{$n}{$fid}
|
|
1633
|
19361 |
138861 |
unless ($records{$n}{$fid}->count_ko)
|
|
1636
|
7604 |
11757 |
unless ($is_ok)
|
|
1638
|
77 |
7527 |
if ($records{$n}{$fid}->count_ko == 0 and $records{$n}{$fid}->has_searched_time and $records{$n}{$fid}->has_found_time)
|
|
1645
|
4 |
73 |
if ($give_up_time)
|
|
1652
|
14144 |
5217 |
if ($is_ok or not $ignore_trailing_chars) { }
|
|
1655
|
3141 |
11003 |
unless ($records{$n}{$fid}->has_searched_time)
|
|
1659
|
0 |
3141 |
if $records{$n}{$fid}->count_ok != 0
|
|
1661
|
1965 |
1176 |
if ($search_time) { }
|
|
|
78 |
1098 |
elsif ($fstr eq '') { }
|
|
1663
|
0 |
1965 |
if $debug_fmt
|
|
1667
|
254 |
1711 |
defined $t ? :
|
|
1668
|
254 |
1711 |
if (defined $t) { }
|
|
|
191 |
1520 |
elsif ($fstr eq '') { }
|
|
1684
|
2368 |
2621 |
unless $incr or $is_ok
|
|
1687
|
9155 |
4989 |
if ($incr)
|
|
1691
|
6837 |
2318 |
if ($fmt->index_slave >= 0 or $fmt->index_master >= 0)
|
|
1692
|
2384 |
4453 |
$fmt->index_slave >= 0 ? :
|
|
1693
|
2384 |
4453 |
$has_slave ? :
|
|
1695
|
6686 |
151 |
if (exists $records{$n}{$mate})
|
|
1696
|
2239 |
4447 |
if ($has_slave) { }
|
|
1697
|
2 |
2237 |
if ($records{$n}{$mate}->count_ko == 0)
|
|
1702
|
114 |
0 |
if ($records{$n}{$mate}->count_ko == 0 and $records{$n}{$mate}->count_ok >= 1 and $records{$n}{$fid}->count_ko == 0)
|
|
1717
|
0 |
158222 |
if $debug_fmt
|
|
1726
|
14533 |
16897 |
if $cache_nodate[$n]
|
|
1733
|
58822 |
200048 |
unless defined $rec
|
|
1738
|
0 |
200048 |
if $ok == 0 and $ko == 0
|
|
1741
|
14137 |
185911 |
if $ok >= 1 and $ko == 0
|
|
1743
|
9599 |
7298 |
if ($candidate == 1) { }
|
|
|
2269 |
5029 |
elsif ($candidate >= 2) { }
|
|
|
222 |
4807 |
elsif ($tt != 0) { }
|
|
1755
|
0 |
4645 |
if ($debug_fmt)
|
|
1763
|
2077 |
2558 |
if $count_gotit + $count_ambiguous + $count_nodate >= 1 and not $count_ambiguous and not $count_empty
|
|
1767
|
28 |
4617 |
if ($can_start_recording_data and not $has_signaled_can_start_recording_data)
|
|
1770
|
0 |
28 |
if $_debug
|
|
1774
|
7 |
21 |
unless $self->{'fields_dates_auto'}
|
|
1791
|
297 |
7970 |
if ($rec->count_ok >= 1 and $rec->count_ko == 0)
|
|
1794
|
177 |
120 |
if $rec->has_found_time
|
|
1806
|
16 |
507 |
if ($#formats_ok < 0 and $tt == 0) { }
|
|
|
222 |
285 |
elsif ($#formats_ok < 0) { }
|
|
|
12 |
273 |
elsif ($#formats_ok > 0) { }
|
|
1823
|
523 |
0 |
unless exists $dates_detailed_status{$col}
|
|
1824
|
273 |
250 |
if $is_ok and not defined $dates_formats[$n]
|
|
1828
|
0 |
49 |
if ($check_empty != $count_empty or $check_nodate != $count_nodate or $check_ambiguous != $count_ambiguous or $check_gotit != $count_gotit)
|
|
1832
|
0 |
1 |
if ($count_empty or $check_nodate or $count_nodate or $check_ambiguous or $count_ambiguous or $check_gotit or $count_gotit)
|
|
1846
|
0 |
50 |
if ($debug_fmt)
|
|
1855
|
0 |
0 |
if defined $rec->locale and $rec->locale ne ''
|
|
1862
|
0 |
50 |
if ($_debug)
|
|
1869
|
0 |
0 |
if (defined $dates_formats[$n])
|
|
1876
|
10 |
40 |
unless ($self->{'fields_dates_auto'})
|
|
1879
|
13 |
7 |
if defined $dates_formats[$n]
|
|
1884
|
4 |
6 |
if $e
|
|
1897
|
0 |
0 |
if defined $rec and $rec->has_found_time
|
|
1903
|
0 |
0 |
if defined $floc and $floc ne ''
|
|
1905
|
0 |
0 |
if defined $rec
|
|
1906
|
0 |
0 |
unless defined $tmpok
|
|
1907
|
0 |
0 |
if defined $rec
|
|
1908
|
0 |
0 |
unless defined $tmpko
|
|
1918
|
4649 |
14712 |
if $rec->has_found_time
|
|
1921
|
11363 |
7604 |
defined $parser->parse_datetime($value_to_parse) ? :
|
|
|
18967 |
394 |
if $parser
|
|
1923
|
8267 |
11094 |
unless (defined $rec->format)
|
|
1953
|
4 |
1961 |
if $format =~ /:/
|
|
1956
|
316 |
1645 |
if ($format eq '') { }
|
|
1959
|
387 |
1258 |
unless ((undef, $sep) = $v =~ /(^|\d([^0-9:]+))(\d{1,2}):(\d{1,2})(\D|$)/)
|
|
1960
|
29 |
358 |
if ($v =~ /\d{4}:\d{2}(\D|$)/) { }
|
|
1964
|
0 |
358 |
if $debug_fmt
|
|
1971
|
732 |
871 |
unless defined $sep
|
|
1989
|
1 |
1602 |
if $sep eq ' '
|
|
1991
|
0 |
1603 |
if ($debug_fmt)
|
|
1998
|
0 |
9139 |
if $debug_fmt
|
|
2001
|
12 |
9127 |
if defined $locale and $locale ne ''
|
|
2003
|
8885 |
254 |
unless defined $parser_of_increased_format->parse_datetime($START . $v . $stop)
|
|
2005
|
0 |
254 |
if ($debug_fmt)
|
|
2046
|
338 |
11 |
if ($has_headers)
|
|
2049
|
0 |
338 |
if $self->{'_debug_read'}
|
|
2054
|
0 |
338 |
if $self->{'_debug_read'}
|
|
2056
|
0 |
338 |
if (defined $self->{'_inh_header'}) { }
|
|
2059
|
0 |
0 |
unless (open $inmemh, '<', \$l)
|
|
2066
|
336 |
0 |
if defined $r
|
|
2069
|
0 |
336 |
if $self->{'_debug_read'}
|
|
2072
|
330 |
17 |
if ($has_headers and not defined $self->{'fields_column_names'})
|
|
2074
|
12 |
318 |
if (defined $self->{'fields_hr'}) { }
|
|
2075
|
0 |
12 |
unless ($self->_process_header(\@headers, $self->{'fields_hr'}, \%indexes))
|
|
2079
|
0 |
12 |
if ($_debug)
|
|
2086
|
0 |
48 |
if $_ eq ''
|
|
2095
|
14 |
333 |
if defined $self->{'fields_column_names'}
|
|
2098
|
1350 |
20 |
defined $_ ? :
|
|
2100
|
0 |
347 |
if ($_debug)
|
|
2102
|
0 |
0 |
if (@columns) { }
|
|
2106
|
0 |
0 |
if defined $headers[$i]
|
|
2116
|
1334 |
36 |
if defined $columns[$i] and $columns[$i] ne ''
|
|
2120
|
336 |
11 |
if $has_headers
|
|
2130
|
4 |
4 |
unless exists $self->{'_out_headers'}
|
|
2133
|
0 |
8 |
if exists $self->{'_out_headers'}{$field}
|
|
2153
|
338 |
11 |
if $has_headers
|
|
2156
|
36 |
313 |
if exists $self->{'_extra_fields'}
|
|
2162
|
1349 |
27 |
if $has_headers
|
|
2172
|
80 |
12 |
if (defined $c)
|
|
2173
|
9 |
71 |
unless (exists $named_fields{$c})
|
|
2182
|
2 |
81 |
if ($edef->ef_type == $EF_LINK and $edef->link_remote_read eq '*')
|
|
2216
|
6 |
79 |
if (exists $named_fields{$e1->self_name})
|
|
2227
|
79 |
0 |
if $has_headers
|
|
2236
|
337 |
11 |
if $has_headers
|
|
2247
|
57 |
288 |
if defined $self->{'_dates_formats'}
|
|
2251
|
329 |
1107 |
if (defined $dates_formats[$i])
|
|
2258
|
1107 |
329 |
unless defined $dt_format
|
|
2261
|
4 |
325 |
if defined $dt_locale and $dt_locale ne ''
|
|
2266
|
0 |
329 |
exists $self->{'out_dates_locale'} ? :
|
|
2267
|
4 |
325 |
if defined $loc_out and $loc_out ne ''
|
|
2269
|
0 |
329 |
exists $self->{'out_dates_format'} ? :
|
|
2277
|
37 |
315 |
if not defined $_ or $_ eq '' or defined $refsub_is_datetime_empty and &$refsub_is_datetime_empty($_)
|
|
2285
|
0 |
0 |
if ($_debug and $DEBUG_DATETIME_FORMATS and $DEBUG_DATETIME_FORMATS_EVEN_MORE)
|
|
2286
|
0 |
0 |
defined $dt ? :
|
|
2291
|
2 |
313 |
unless (defined $dt)
|
|
2293
|
0 |
2 |
if ($verbose) { }
|
|
2298
|
0 |
0 |
$dt_locale eq '' ? :
|
|
2317
|
9 |
87 |
unless defined $_
|
|
2318
|
6 |
81 |
unless ref $_
|
|
2319
|
0 |
81 |
unless $_->isa('DateTime')
|
|
2323
|
0 |
81 |
unless (defined $str)
|
|
2347
|
0 |
70 |
unless (exists $named_fields{$field})
|
|
2357
|
2 |
68 |
if (defined $subrefs[$i])
|
|
2358
|
2 |
0 |
if $ii == 0
|
|
2359
|
0 |
2 |
if $ii == 1
|
|
2375
|
6 |
339 |
if defined $tmp
|
|
2378
|
13 |
3 |
if not defined $_ or $_ eq '' or exists $named_fields{$_}
|
|
2383
|
2 |
343 |
if ($count_field_not_found)
|
|
2389
|
4 |
340 |
if defined $self->{'_out_headers'}
|
|
2392
|
6 |
2 |
if not defined $_ or $_ eq '' or exists $named_fields{$_}
|
|
2397
|
2 |
342 |
if $count_field_not_found
|
|
2426
|
0 |
2329 |
if $self->{'_debug_read'}
|
|
2428
|
284 |
2045 |
unless ($ar = _mygetline($incsv, $self->{'_inh'}))
|
|
2429
|
0 |
284 |
if (not $incsv->eof) { }
|
|
2448
|
0 |
2045 |
if ($self->{'_debug_read'})
|
|
2459
|
30 |
2015 |
if ($no_undef)
|
|
2461
|
242 |
82 |
unless defined $ar->[$_]
|
|
2472
|
10077 |
479 |
unless defined $subref
|
|
2479
|
474 |
0 |
if defined $field
|
|
2488
|
0 |
442 |
if $_debug_extra_fields
|
|
2491
|
238 |
204 |
if ($e->ef_type == $EF_LINK) { }
|
|
|
51 |
153 |
elsif ($e->ef_type == $EF_FUNC) { }
|
|
|
153 |
0 |
elsif ($e->ef_type == $EF_COPY) { }
|
|
2493
|
0 |
238 |
if $_debug_extra_fields
|
|
2505
|
0 |
51 |
if $_debug_extra_fields
|
|
2511
|
0 |
153 |
if $_debug_extra_fields
|
|
2514
|
0 |
153 |
if not defined $input and $no_undef
|
|
2515
|
57 |
96 |
if (defined $e->copy_sub) { }
|
|
2522
|
0 |
153 |
if $_debug_extra_fields
|
|
2528
|
56 |
384 |
if not defined $value and $no_undef
|
|
2532
|
0 |
440 |
if $_debug_extra_fields
|
|
2536
|
33 |
2005 |
if (defined $self->{'read_post_update_hr'})
|
|
2541
|
1109 |
929 |
if $self->{'croak_if_error'}
|
|
2544
|
31 |
2007 |
if defined $self->{'walker_ar'}
|
|
2546
|
71 |
1967 |
if defined $self->{'walker_hr'}
|
|
2563
|
0 |
295 |
if $verbose
|
|
2575
|
0 |
314 |
if ($verbose and not $keep_quiet)
|
|
2599
|
163 |
0 |
defined $ar ? :
|
|
2628
|
1 |
21 |
unless defined $new_field
|
|
2630
|
0 |
22 |
if $_debug
|
|
2633
|
1 |
21 |
unless (@c == 3 and $c[2] ne '')
|
|
2639
|
0 |
21 |
unless $self->_status_forward('S2')
|
|
2640
|
0 |
21 |
unless $self->_status_backward('S2')
|
|
2642
|
13 |
8 |
if $param_opts
|
|
2646
|
19 |
1 |
if (ref $obj eq '') { }
|
|
2662
|
4 |
15 |
if (exists $self->{'_obj'} and exists $self->{'_obj'}{$in_file}) { }
|
|
2664
|
0 |
4 |
if $_debug
|
|
2672
|
0 |
15 |
if $_debug
|
|
2675
|
14 |
1 |
unless exists $self->{'_obj'}
|
|
2691
|
6 |
99 |
if exists $self->{$_}
|
|
2706
|
0 |
1 |
if $_debug
|
|
2709
|
14 |
6 |
unless exists $self->{'_extra_fields'}
|
|
2740
|
0 |
2 |
if (@c != 2 or $c[0] eq '' or $c[1] eq '')
|
|
2746
|
1 |
1 |
unless defined $prefix_field
|
|
2763
|
0 |
6 |
if $_debug
|
|
2765
|
1 |
5 |
unless $self->_status_forward('S2')
|
|
2766
|
0 |
5 |
unless $self->_status_backward('S2')
|
|
2790
|
0 |
14 |
if $_debug
|
|
2793
|
1 |
12 |
unless $self->_status_forward('S2')
|
|
2794
|
0 |
12 |
unless $self->_status_backward('S2')
|
|
2796
|
5 |
7 |
defined $func ? :
|
|
2824
|
0 |
16 |
unless $self->_status_forward('S2')
|
|
2825
|
0 |
16 |
unless $self->_status_backward('S2')
|
|
2827
|
0 |
16 |
if $_debug
|
|
2830
|
11 |
5 |
unless defined $self->{'_read_update_after_hr'}{$field}
|
|
2852
|
0 |
12 |
unless $self->_status_forward('S2')
|
|
2853
|
0 |
12 |
unless $self->_status_backward('S2')
|
|
2855
|
0 |
12 |
if $_debug
|
|
2858
|
7 |
5 |
unless defined $self->{'_write_update_before_hr'}{$field}
|
|
2895
|
1120 |
9788 |
unless (exists $n_seen{$i})
|
|
2897
|
1120 |
0 |
unless exists $h{$k}
|
|
2901
|
1242 |
806 |
if $self->{'croak_if_error'}
|
|
2913
|
0 |
1986 |
unless $self->_status_forward('S4')
|
|
2915
|
184 |
1802 |
if (not defined $self->{'_current_record'}) { }
|
|
2922
|
184 |
1802 |
unless (defined $ar)
|
|
2938
|
0 |
60 |
unless $self->_status_backward('S3')
|
|
2939
|
3 |
51 |
unless $self->_status_forward('S3')
|
|
2952
|
0 |
49 |
unless defined $ar
|
|
2954
|
0 |
49 |
unless $self->_status_reset
|
|
2974
|
0 |
9 |
unless $self->_status_backward('S3')
|
|
2975
|
0 |
9 |
unless $self->_status_forward('S4')
|
|
2987
|
0 |
0 |
$self->get_is_always_quoted ? :
|
|
2998
|
0 |
0 |
defined $col->[$_] ? :
|
|
3005
|
0 |
0 |
if $max[$_] < length $l->[$_]
|
|
3031
|
1003 |
159 |
unless defined $subref
|
|
3050
|
16 |
444 |
if defined $tmp
|
|
3052
|
444 |
16 |
unless @wf
|
|
3057
|
36 |
4 |
if defined $field and $field ne ''
|
|
3074
|
0 |
103 |
unless $self->_status_forward('S3')
|
|
3084
|
0 |
103 |
if $verbose
|
|
3090
|
103 |
0 |
unless (defined $outh)
|
|
3091
|
0 |
103 |
if ($out_file eq '') { }
|
|
3094
|
0 |
103 |
unless (open $outh, '>', $out_file)
|
|
3103
|
103 |
0 |
unless ($self->{'_leave_encoding_alone'})
|
|
3106
|
103 |
0 |
defined $self->{'_inh_encoding'} ? :
|
|
3109
|
5 |
98 |
if defined $self->{'out_encoding'}
|
|
3111
|
0 |
95 |
if (_is_utf8($enc) and $self->{'out_utf8_bom'})
|
|
3115
|
0 |
103 |
if ($OS_IS_PLAIN_WINDOWS and $FIX_PERLMONKS_823214)
|
|
3117
|
0 |
0 |
if $enc =~ /^utf-?16/i
|
|
3121
|
0 |
103 |
if $_debug
|
|
3131
|
103 |
0 |
if defined $self->{'sep_char'}
|
|
3132
|
2 |
101 |
if defined $self->{'out_sep_char'}
|
|
3134
|
103 |
0 |
if defined $self->{'quote_char'}
|
|
3135
|
0 |
103 |
if defined $self->{'out_quote_char'}
|
|
3137
|
103 |
0 |
if defined $self->{'escape_char'}
|
|
3138
|
2 |
101 |
if defined $self->{'out_escape_char'}
|
|
3141
|
5 |
98 |
if defined $self->{'out_always_quote'}
|
|
3144
|
0 |
103 |
unless (defined $csvout)
|
|
3151
|
101 |
2 |
if ($self->{'has_headers'} and not defined $self->{'out_has_headers'} && !$self->{'out_has_headers'} or $self->{'out_has_headers'})
|
|
3155
|
97 |
4 |
if ($self->{'has_headers'}) { }
|
|
3162
|
3 |
98 |
if (exists $self->{'_out_headers'})
|
|
3165
|
5 |
7 |
if (exists $h->{$_})
|
|
3190
|
24 |
79 |
if ($self->{'_status'} == 4) { }
|
|
3198
|
0 |
87 |
if (defined $write_filter_hr)
|
|
3199
|
0 |
0 |
unless &$write_filter_hr($hr)
|
|
3222
|
46 |
255 |
if (defined $write_filter_hr)
|
|
3223
|
26 |
20 |
unless &$write_filter_hr($row_hr, \%stats, $self->get_recnum)
|
|
3240
|
0 |
96 |
if ($verbose)
|
|
3247
|
72 |
24 |
if ($do_status_reset)
|
|
3248
|
0 |
72 |
unless $self->_status_reset
|
|
3272
|
0 |
31 |
unless $self->_status_forward('S4')
|
|
3285
|
0 |
338 |
unless $self->_status_forward('S4')
|
|
3287
|
0 |
338 |
unless (defined $key)
|
|
3292
|
3 |
335 |
unless defined $self->{'_flat'}[$key]
|
|
3302
|
2 |
246 |
unless defined $ar
|
|
3332
|
0 |
190 |
unless $self->{'_read_in_progress'}
|
|
3338
|
0 |
889 |
unless $self->_status_forward('S4')
|
|
3340
|
883 |
6 |
if exists $self->{'_named_fields'}{$field}
|
|
3350
|
0 |
3 |
unless $self->_check_for_search($field)
|
|
3352
|
1 |
2 |
unless defined $row
|
|
3361
|
0 |
9 |
unless $self->_check_for_search($field)
|
|
3366
|
23 |
30 |
if (defined $filter_subref)
|
|
3368
|
11 |
12 |
unless &$filter_subref()
|
|
3381
|
561 |
0 |
if defined $arg_opts
|
|
3394
|
489 |
72 |
if (exists $self->{$hash_name} and exists $self->{$projector_name}) { }
|
|
|
0 |
72 |
elsif (exists $self->{$hash_name} or exists $self->{$projector_name}) { }
|
|
3395
|
0 |
489 |
if $_debug
|
|
3402
|
0 |
72 |
if $_debug
|
|
3419
|
57 |
15 |
unless $opt_case
|
|
3422
|
57 |
15 |
if ($opt_trim)
|
|
3432
|
68 |
4 |
if $opt_ignacc
|
|
3457
|
61 |
11 |
if ($opt_ignore_empty) { }
|
|
3469
|
76 |
1269 |
unless (&$filter($p))
|
|
3470
|
0 |
76 |
if $_debug
|
|
3505
|
421 |
142 |
if $param_opts
|
|
3508
|
0 |
561 |
unless $self->_check_for_search($field)
|
|
3511
|
0 |
561 |
unless defined $value
|
|
3517
|
376 |
185 |
if defined $ret
|
|
3529
|
2 |
20 |
unless defined $r->[0]
|
|
3535
|
6 |
14 |
if @{$r;} >= 2 and not $opt_ignore_ambiguous
|
|
3546
|
0 |
314 |
unless $self->_check_for_search($target_field)
|
|
3549
|
171 |
143 |
defined $r->[0] ? :
|
|
3551
|
44 |
99 |
exists $opts->{'value_if_not_found'} ? :
|
|
3559
|
4 |
140 |
if exists $opts->{'value_if_found'}
|
|
3560
|
0 |
140 |
if exists $opts->{'search_value_if_found'}
|