| line |
true |
false |
branch |
|
191
|
392 |
32 |
if $e =~ /^(utf-?8|ucs-?8)/i
|
|
198
|
11184 |
7525 |
if defined $_
|
|
208
|
15 |
0 |
if ref $infoh ne 'GLOB'
|
|
217
|
17 |
0 |
if ref $infoh ne 'GLOB'
|
|
227
|
51 |
16 |
$dont_wrap ? :
|
|
228
|
31 |
36 |
unless $self->{'quiet'}
|
|
234
|
308 |
8 |
if $self->{'_close_inh_when_finished'}
|
|
242
|
104 |
0 |
if defined $self->{'outh'} and $self->{'_close_outh_when_finished'}
|
|
252
|
5 |
3 |
if (defined $err_code and not $self->{'quiet'} and $self->{'croak_if_error'})
|
|
253
|
5 |
0 |
if ($err_code == 0) { }
|
|
263
|
15 |
2 |
defined $cols[$i] ? :
|
|
270
|
30 |
51 |
if ($self->{'croak_if_error'} and not $dont_stop)
|
|
309
|
260 |
2 |
unless defined $escape_char
|
|
311
|
0 |
262 |
if length $escape_char >= 2
|
|
314
|
0 |
262 |
if length $quote_char >= 2
|
|
317
|
0 |
262 |
if $escape_char eq ''
|
|
318
|
0 |
262 |
if $quote_char eq ''
|
|
331
|
0 |
262 |
if ($self->{'inh_is_stdin'}) { }
|
|
333
|
0 |
0 |
if $_debug
|
|
337
|
0 |
262 |
if $_debug
|
|
348
|
4546 |
262 |
if $c < $l - 1
|
|
349
|
1521 |
3287 |
if ($status == $ST_INSIDE) { }
|
|
|
3287 |
0 |
elsif ($status == $ST_OUTSIDE) { }
|
|
350
|
0 |
1521 |
if ($ch eq $escape_char and $chnext eq $quote_char) { }
|
|
|
197 |
1324 |
elsif ($ch eq $quote_char) { }
|
|
359
|
0 |
3287 |
if ($ch eq $escape_char and $chnext eq $quote_char || exists $Seps{$chnext}) { }
|
|
|
946 |
2341 |
elsif (exists $Seps{$ch}) { }
|
|
|
197 |
2144 |
elsif ($ch eq $quote_char) { }
|
|
374
|
147 |
115 |
if ($Seps{';'} == 0 and $Seps{','} >= 1) { }
|
|
|
106 |
9 |
elsif ($Seps{','} == 0 and $Seps{';'} >= 1) { }
|
|
|
0 |
9 |
elsif ($Seps{','} == 0 and $Seps{';'} == 0 and $Seps{"\t"} >= 1) { }
|
|
388
|
3 |
6 |
if ($h_no_accnt =~ /^[[:alnum:]_]+$/i)
|
|
394
|
0 |
6 |
if ($_debug)
|
|
409
|
0 |
652 |
unless (open $inh, '<', $in_file)
|
|
413
|
652 |
0 |
unless ($self->{'_leave_encoding_alone'})
|
|
416
|
0 |
652 |
unless defined $self->{'_inh_encoding_string'}
|
|
438
|
20 |
436 |
if $self->{'_int_one_pass'}
|
|
439
|
136 |
300 |
if $self->{'_detect_meta_done'}
|
|
441
|
298 |
2 |
unless (defined $self->{'escape_char'})
|
|
446
|
298 |
0 |
if (defined $inh)
|
|
454
|
5 |
7126 |
if $l =~ /(\\$quote_char)/
|
|
459
|
5 |
293 |
$flag ? :
|
|
460
|
0 |
298 |
if $_debug
|
|
463
|
0 |
300 |
if $_debug
|
|
469
|
300 |
0 |
if (defined $inh)
|
|
484
|
34513 |
10224 |
unless $csv->is_quoted($i)
|
|
485
|
4 |
44733 |
if $a[$i] =~ /\n/
|
|
493
|
0 |
300 |
if $_debug
|
|
506
|
1269 |
0 |
unless $_debug
|
|
516
|
0 |
510 |
if defined $nonexistent_arg
|
|
521
|
155 |
355 |
if ($new_count > $self->get_max_in_mem_record_count)
|
|
527
|
0 |
510 |
if ($_debug)
|
|
529
|
0 |
0 |
if $updated_max
|
|
539
|
289 |
31 |
if not defined $enc or $enc eq ''
|
|
543
|
0 |
320 |
if $#encodings < 0
|
|
545
|
0 |
320 |
if $_debug
|
|
555
|
320 |
12 |
unless defined $m0
|
|
557
|
12 |
320 |
unless $detect_enc
|
|
559
|
0 |
320 |
if not defined $in_file or $in_file eq ''
|
|
561
|
0 |
320 |
if $_debug
|
|
567
|
296 |
24 |
if (_is_utf8($e))
|
|
568
|
296 |
0 |
if (open my $fh, '<:raw', $in_file)
|
|
571
|
12 |
284 |
if (length $bom == 3 and $bom eq "\357\273\277")
|
|
572
|
10 |
2 |
unless (defined $via)
|
|
581
|
0 |
320 |
unless (open $inh, '<', $in_file)
|
|
602
|
0 |
320 |
if $_debug
|
|
604
|
308 |
12 |
if $wrn == 0
|
|
607
|
0 |
320 |
if ($wrn >= 1)
|
|
613
|
0 |
320 |
unless defined $m
|
|
615
|
0 |
320 |
if $_debug
|
|
636
|
18 |
476 |
if (defined $self->{'_status'} and $self->{'_status'} == 4)
|
|
637
|
16 |
2 |
unless ($called_from_print_error)
|
|
646
|
30 |
464 |
if $called_from_print_error
|
|
670
|
0 |
4223 |
if (not defined $step or $step != -1 and $step != 1)
|
|
675
|
0 |
4223 |
unless ($n) = $target =~ /^S(\d)$/
|
|
677
|
1 |
4222 |
if ($self->{'_read_in_progress'})
|
|
683
|
139 |
4083 |
if ($step == -1)
|
|
684
|
19 |
120 |
if ($n < $self->{'_status'})
|
|
685
|
16 |
3 |
if ($self->{'_status'} == 4)
|
|
686
|
0 |
16 |
if $_debug
|
|
690
|
0 |
3 |
if $_debug
|
|
695
|
869 |
3214 |
if ($self->{'_status'} < $n)
|
|
696
|
0 |
869 |
if $_debug
|
|
699
|
12 |
355 |
if ($self->{'_status'} <= 1 and $n >= 2 and $self->{'_int_one_pass'} and $self->get_pass_count >= 1)
|
|
702
|
12 |
0 |
if $self->{'one_pass'}
|
|
703
|
0 |
0 |
unless $self->{'one_pass'}
|
|
709
|
0 |
1347 |
unless defined $funcname
|
|
711
|
0 |
1347 |
if $_debug
|
|
713
|
1347 |
0 |
if (my $member_function = $self->can($funcname)) { }
|
|
714
|
3 |
1328 |
unless $self->$member_function
|
|
720
|
0 |
1328 |
if $_debug
|
|
801
|
329 |
0 |
unless defined $self->{'_debugh'}
|
|
802
|
0 |
329 |
if $ALWAYS_DEBUG
|
|
804
|
0 |
329 |
if $_debug
|
|
813
|
1 |
328 |
if (defined($self->{'fields_ar'}) + defined($self->{'fields_hr'}) + defined($self->{'fields_column_names'}) >= 2)
|
|
820
|
2 |
327 |
if (defined $self->{'fields_ar'} and not defined $self->{'fields_hr'})
|
|
828
|
13 |
316 |
unless ($self->{'has_headers'})
|
|
829
|
1 |
12 |
if (defined $self->{'fields_ar'})
|
|
833
|
1 |
11 |
if (defined $self->{'fields_hr'})
|
|
848
|
3 |
318 |
unless $self->_status_reset
|
|
850
|
0 |
318 |
if $_debug
|
|
852
|
316 |
2 |
if ($self->{'dates_zeros_ok'})
|
|
855
|
4207 |
5430 |
unless ($v =~ /[1-9]/)
|
|
856
|
3 |
4204 |
if $v =~ /^[^0:]*0+[^0:]+0+[^0:]+0+/
|
|
881
|
4 |
466 |
unless defined $self->{'in_file'}
|
|
885
|
0 |
470 |
if defined $self->{'dont_mess_with_encoding'}
|
|
897
|
4 |
466 |
if (defined $self->{'inh'}) { }
|
|
898
|
4 |
0 |
unless defined $self->{'dont_mess_with_encoding'}
|
|
900
|
4 |
0 |
unless defined $self->{'one_pass'}
|
|
903
|
466 |
0 |
unless defined $self->{'dont_mess_with_encoding'}
|
|
906
|
0 |
466 |
if ($in_file eq '') { }
|
|
909
|
0 |
0 |
unless defined $self->{'one_pass'}
|
|
912
|
3 |
463 |
unless (open $inh, '<', $in_file)
|
|
922
|
0 |
467 |
unless defined $in_file_disp
|
|
935
|
463 |
4 |
unless ($self->{'_leave_encoding_alone'})
|
|
936
|
320 |
143 |
unless ($self->{'_init_input_already_called'})
|
|
938
|
12 |
308 |
$self->{'_int_one_pass'} ? :
|
|
945
|
0 |
463 |
if $_debug
|
|
949
|
247 |
220 |
unless defined $self->{'out_file'}
|
|
960
|
324 |
143 |
unless defined $self->{'quote_char'}
|
|
962
|
5 |
462 |
if (defined $self->{'in_csvobj'}) { }
|
|
963
|
200 |
262 |
if (defined $self->{'sep_char'}) { }
|
|
965
|
0 |
200 |
if $_debug
|
|
969
|
262 |
0 |
unless ($self->{'_init_input_already_called'})
|
|
970
|
6 |
256 |
unless ($self->_detect_csv_sep($escape_char, $quote_char, \$sep_char))
|
|
974
|
0 |
256 |
if $_debug
|
|
978
|
0 |
456 |
if $_debug
|
|
986
|
0 |
456 |
unless (defined $self->{'_in_csvobj'})
|
|
1078
|
0 |
19 |
unless $self->_status_forward('S3')
|
|
1089
|
0 |
1 |
unless $self->_status_forward('S3')
|
|
1098
|
0 |
1 |
unless $self->_status_forward('S3')
|
|
1118
|
0 |
2 |
unless defined $self->{'_stats'}
|
|
1133
|
0 |
0 |
if defined $self->{'fields_ar'}
|
|
1134
|
0 |
0 |
if defined $self->{'fields_column_names'}
|
|
1135
|
0 |
0 |
if defined $self->{'fields_hr'}
|
|
1180
|
0 |
12 |
if $#tmp >= 0
|
|
1187
|
0 |
48 |
if ($#all_idx >= 1)
|
|
1193
|
0 |
48 |
if ($idx < 0) { }
|
|
1201
|
0 |
12 |
$e >= 1 ? :
|
|
1210
|
0 |
2 |
unless $self->_status_forward('S2')
|
|
1211
|
0 |
2 |
unless $self->_status_backward('S2')
|
|
1223
|
0 |
2 |
unless $self->_status_forward('S2')
|
|
1224
|
0 |
2 |
unless $self->_status_backward('S2')
|
|
1333
|
539 |
0 |
if ($self->{'has_headers'}) { }
|
|
1335
|
0 |
539 |
unless defined $col
|
|
1346
|
0 |
43 |
unless $self->_status_forward('S3')
|
|
1347
|
0 |
43 |
unless defined $self->{'_dates_detailed_status'}
|
|
1354
|
67 |
287 |
if $self->{'_detect_dates_formats_has_run'}
|
|
1356
|
11 |
276 |
if defined $self->{'fields_dates'}
|
|
1357
|
233 |
43 |
unless @fields_dates or $self->{'fields_dates_auto'}
|
|
1359
|
0 |
54 |
if ($self->{'_int_one_pass'})
|
|
1394
|
54 |
0 |
if $self->{'has_headers'}
|
|
1406
|
11 |
43 |
if (defined $self->{'fields_dates'}) { }
|
|
|
43 |
0 |
elsif ($self->{'fields_dates_auto'}) { }
|
|
1410
|
1 |
22 |
unless (exists $regular_named_fields{$f})
|
|
1417
|
0 |
22 |
if (exists $column_seen{$n})
|
|
1424
|
1 |
10 |
if $count_field_not_found
|
|
1442
|
2 |
51 |
if defined $self->{'dates_formats_to_try_supp'}
|
|
1444
|
43 |
10 |
unless defined $formats_to_try
|
|
1449
|
978 |
0 |
unless exists $seen{$_}
|
|
1454
|
39 |
14 |
unless defined $ignore_trailing_chars
|
|
1455
|
46 |
7 |
unless defined $search_time
|
|
1457
|
43 |
10 |
$ignore_trailing_chars ? :
|
|
1483
|
2 |
51 |
if defined $localizations
|
|
1485
|
215 |
763 |
$f =~ /%a|%A|%b|%B|%c|%\+/ ? :
|
|
1486
|
968 |
10 |
unless (@locales and $has_localized_item)
|
|
1515
|
262 |
726 |
if (exists $mates{$m}) { }
|
|
1517
|
217 |
45 |
$fstr =~ /%y/ ? :
|
|
1518
|
45 |
217 |
$fstr =~ /%Y/ ? :
|
|
1519
|
45 |
217 |
$alt_fstr =~ /%y/ ? :
|
|
1520
|
217 |
45 |
$alt_fstr =~ /%Y/ ? :
|
|
1524
|
45 |
217 |
if (not $m_lower and $m_upper and $a_lower and not $a_upper) { }
|
|
|
217 |
0 |
elsif ($m_lower and not $m_upper and not $a_lower and $a_upper) { }
|
|
1537
|
20 |
968 |
if $floc ne ''
|
|
1538
|
943 |
45 |
$fstr ne '' ? :
|
|
1556
|
0 |
988 |
if $format->index_slave >= 0 and $format->index_master >= 0
|
|
1559
|
262 |
726 |
if ($format->index_slave >= 0)
|
|
1561
|
0 |
262 |
if ($mate->index_master != $i or $mate->index_slave != -1)
|
|
1566
|
262 |
726 |
if ($format->index_master >= 0)
|
|
1568
|
0 |
262 |
if ($mate->index_slave != $i or $mate->index_master != -1)
|
|
1574
|
0 |
53 |
if ($debug_fmt)
|
|
1577
|
0 |
0 |
if $_->index_slave >= 0
|
|
1578
|
0 |
0 |
if $_->index_master >= 0
|
|
1580
|
0 |
0 |
if $idx >= 0
|
|
1608
|
0 |
4650 |
if ($debug_fmt)
|
|
1614
|
14537 |
16908 |
if $cache_nodate[$n]
|
|
1617
|
89 |
16819 |
unless defined $v
|
|
1618
|
7502 |
9406 |
if $v eq ''
|
|
1619
|
3 |
9403 |
if defined $refsub_is_datetime_empty and &$refsub_is_datetime_empty($v)
|
|
1621
|
0 |
9403 |
if ($debug_fmt)
|
|
1630
|
0 |
158464 |
if $debug_fmt
|
|
1644
|
8465 |
149999 |
unless defined $records{$n}{$fid}
|
|
1646
|
19561 |
138903 |
unless ($records{$n}{$fid}->count_ko)
|
|
1649
|
7789 |
11772 |
unless ($is_ok)
|
|
1651
|
77 |
7712 |
if ($records{$n}{$fid}->count_ko == 0 and $records{$n}{$fid}->has_searched_time and $records{$n}{$fid}->has_found_time)
|
|
1658
|
4 |
73 |
if ($give_up_time)
|
|
1665
|
14159 |
5402 |
if ($is_ok or not $ignore_trailing_chars) { }
|
|
1668
|
3156 |
11003 |
unless ($records{$n}{$fid}->has_searched_time)
|
|
1672
|
0 |
3156 |
if $records{$n}{$fid}->count_ok != 0
|
|
1674
|
1980 |
1176 |
if ($search_time) { }
|
|
|
78 |
1098 |
elsif ($fstr eq '') { }
|
|
1676
|
0 |
1980 |
if $debug_fmt
|
|
1680
|
254 |
1726 |
defined $t ? :
|
|
1681
|
254 |
1726 |
if (defined $t) { }
|
|
|
200 |
1526 |
elsif ($fstr eq '') { }
|
|
1697
|
2368 |
2630 |
unless $incr or $is_ok
|
|
1700
|
9161 |
4998 |
if ($incr)
|
|
1704
|
6843 |
2318 |
if ($fmt->index_slave >= 0 or $fmt->index_master >= 0)
|
|
1705
|
2387 |
4456 |
$fmt->index_slave >= 0 ? :
|
|
1706
|
2387 |
4456 |
$has_slave ? :
|
|
1708
|
6689 |
154 |
if (exists $records{$n}{$mate})
|
|
1709
|
2239 |
4450 |
if ($has_slave) { }
|
|
1710
|
2 |
2237 |
if ($records{$n}{$mate}->count_ko == 0)
|
|
1715
|
117 |
0 |
if ($records{$n}{$mate}->count_ko == 0 and $records{$n}{$mate}->count_ok >= 1 and $records{$n}{$fid}->count_ko == 0)
|
|
1730
|
0 |
158464 |
if $debug_fmt
|
|
1739
|
14537 |
16908 |
if $cache_nodate[$n]
|
|
1746
|
58822 |
200290 |
unless defined $rec
|
|
1751
|
0 |
200290 |
if $ok == 0 and $ko == 0
|
|
1754
|
14140 |
186150 |
if $ok >= 1 and $ko == 0
|
|
1756
|
9602 |
7306 |
if ($candidate == 1) { }
|
|
|
2269 |
5037 |
elsif ($candidate >= 2) { }
|
|
|
230 |
4807 |
elsif ($tt != 0) { }
|
|
1768
|
0 |
4650 |
if ($debug_fmt)
|
|
1776
|
2082 |
2558 |
if $count_gotit + $count_ambiguous + $count_nodate >= 1 and not $count_ambiguous and not $count_empty
|
|
1780
|
31 |
4619 |
if ($can_start_recording_data and not $has_signaled_can_start_recording_data)
|
|
1783
|
0 |
31 |
if $_debug
|
|
1787
|
7 |
24 |
unless $self->{'fields_dates_auto'}
|
|
1788
|
1 |
23 |
if $self->{'fields_dates_auto_optimize'}
|
|
1805
|
298 |
8167 |
if ($rec->count_ok >= 1 and $rec->count_ko == 0)
|
|
1808
|
177 |
121 |
if $rec->has_found_time
|
|
1820
|
16 |
516 |
if ($#formats_ok < 0 and $tt == 0) { }
|
|
|
230 |
286 |
elsif ($#formats_ok < 0) { }
|
|
|
12 |
274 |
elsif ($#formats_ok > 0) { }
|
|
1837
|
532 |
0 |
unless exists $dates_detailed_status{$col}
|
|
1838
|
274 |
258 |
if $is_ok and not defined $dates_formats[$n]
|
|
1842
|
0 |
52 |
if ($check_empty != $count_empty or $check_nodate != $count_nodate or $check_ambiguous != $count_ambiguous or $check_gotit != $count_gotit)
|
|
1846
|
0 |
1 |
if ($count_empty or $check_nodate or $count_nodate or $check_ambiguous or $count_ambiguous or $check_gotit or $count_gotit)
|
|
1860
|
0 |
53 |
if ($debug_fmt)
|
|
1869
|
0 |
0 |
if defined $rec->locale and $rec->locale ne ''
|
|
1876
|
0 |
53 |
if ($_debug)
|
|
1883
|
0 |
0 |
if (defined $dates_formats[$n])
|
|
1890
|
10 |
43 |
unless ($self->{'fields_dates_auto'})
|
|
1893
|
13 |
7 |
if defined $dates_formats[$n]
|
|
1898
|
4 |
6 |
if $e
|
|
1911
|
0 |
0 |
if defined $rec and $rec->has_found_time
|
|
1917
|
0 |
0 |
if defined $floc and $floc ne ''
|
|
1919
|
0 |
0 |
if defined $rec
|
|
1920
|
0 |
0 |
unless defined $tmpok
|
|
1921
|
0 |
0 |
if defined $rec
|
|
1922
|
0 |
0 |
unless defined $tmpko
|
|
1932
|
4649 |
14912 |
if $rec->has_found_time
|
|
1935
|
11369 |
7789 |
defined $parser->parse_datetime($value_to_parse) ? :
|
|
|
19158 |
403 |
if $parser
|
|
1937
|
8465 |
11096 |
unless (defined $rec->format)
|
|
1967
|
4 |
1976 |
if $format =~ /:/
|
|
1970
|
325 |
1651 |
if ($format eq '') { }
|
|
1973
|
393 |
1258 |
unless ((undef, $sep) = $v =~ /(^|\d([^0-9:]+))(\d{1,2}):(\d{1,2})(\D|$)/)
|
|
1974
|
29 |
364 |
if ($v =~ /\d{4}:\d{2}(\D|$)/) { }
|
|
1978
|
0 |
364 |
if $debug_fmt
|
|
1985
|
732 |
880 |
unless defined $sep
|
|
2003
|
1 |
1611 |
if $sep eq ' '
|
|
2005
|
0 |
1612 |
if ($debug_fmt)
|
|
2012
|
0 |
9193 |
if $debug_fmt
|
|
2015
|
12 |
9181 |
if defined $locale and $locale ne ''
|
|
2017
|
8939 |
254 |
unless defined $parser_of_increased_format->parse_datetime($START . $v . $stop)
|
|
2019
|
0 |
254 |
if ($debug_fmt)
|
|
2060
|
344 |
11 |
if ($has_headers)
|
|
2063
|
0 |
344 |
if $self->{'_debug_read'}
|
|
2068
|
0 |
344 |
if $self->{'_debug_read'}
|
|
2070
|
0 |
344 |
if (defined $self->{'_inh_header'}) { }
|
|
2073
|
0 |
0 |
unless (open $inmemh, '<', \$l)
|
|
2080
|
342 |
0 |
if defined $r
|
|
2083
|
0 |
342 |
if $self->{'_debug_read'}
|
|
2086
|
336 |
17 |
if ($has_headers and not defined $self->{'fields_column_names'})
|
|
2088
|
12 |
324 |
if (defined $self->{'fields_hr'}) { }
|
|
2089
|
0 |
12 |
unless ($self->_process_header(\@headers, $self->{'fields_hr'}, \%indexes))
|
|
2093
|
0 |
12 |
if ($_debug)
|
|
2100
|
0 |
48 |
if $_ eq ''
|
|
2109
|
14 |
339 |
if defined $self->{'fields_column_names'}
|
|
2112
|
1369 |
20 |
defined $_ ? :
|
|
2114
|
0 |
353 |
if ($_debug)
|
|
2116
|
0 |
0 |
if (@columns) { }
|
|
2120
|
0 |
0 |
if defined $headers[$i]
|
|
2130
|
1353 |
36 |
if defined $columns[$i] and $columns[$i] ne ''
|
|
2134
|
342 |
11 |
if $has_headers
|
|
2144
|
4 |
4 |
unless exists $self->{'_out_headers'}
|
|
2147
|
0 |
8 |
if exists $self->{'_out_headers'}{$field}
|
|
2167
|
344 |
11 |
if $has_headers
|
|
2170
|
36 |
319 |
if exists $self->{'_extra_fields'}
|
|
2173
|
340 |
15 |
if defined $self->{'_multiline'}
|
|
2178
|
1368 |
27 |
if $has_headers
|
|
2179
|
2 |
1393 |
$multiline[$i] ? :
|
|
2189
|
80 |
12 |
if (defined $c)
|
|
2190
|
9 |
71 |
unless (exists $named_fields{$c})
|
|
2199
|
2 |
81 |
if ($edef->ef_type == $EF_LINK and $edef->link_remote_read eq '*')
|
|
2233
|
6 |
79 |
if (exists $named_fields{$e1->self_name})
|
|
2244
|
79 |
0 |
if $has_headers
|
|
2254
|
343 |
11 |
if $has_headers
|
|
2265
|
60 |
291 |
if defined $self->{'_dates_formats'}
|
|
2269
|
330 |
1125 |
if (defined $dates_formats[$i])
|
|
2276
|
1125 |
330 |
unless defined $dt_format
|
|
2279
|
4 |
326 |
if defined $dt_locale and $dt_locale ne ''
|
|
2284
|
0 |
330 |
exists $self->{'out_dates_locale'} ? :
|
|
2285
|
4 |
326 |
if defined $loc_out and $loc_out ne ''
|
|
2287
|
0 |
330 |
exists $self->{'out_dates_format'} ? :
|
|
2295
|
37 |
315 |
if not defined $_ or $_ eq '' or defined $refsub_is_datetime_empty and &$refsub_is_datetime_empty($_)
|
|
2303
|
0 |
0 |
if ($_debug and $DEBUG_DATETIME_FORMATS and $DEBUG_DATETIME_FORMATS_EVEN_MORE)
|
|
2304
|
0 |
0 |
defined $dt ? :
|
|
2309
|
2 |
313 |
unless (defined $dt)
|
|
2311
|
0 |
2 |
if ($verbose) { }
|
|
2316
|
0 |
0 |
$dt_locale eq '' ? :
|
|
2335
|
9 |
87 |
unless defined $_
|
|
2336
|
6 |
81 |
unless ref $_
|
|
2337
|
0 |
81 |
unless $_->isa('DateTime')
|
|
2341
|
0 |
81 |
unless (defined $str)
|
|
2365
|
0 |
70 |
unless (exists $named_fields{$field})
|
|
2375
|
2 |
68 |
if (defined $subrefs[$i])
|
|
2376
|
2 |
0 |
if $ii == 0
|
|
2377
|
0 |
2 |
if $ii == 1
|
|
2393
|
6 |
345 |
if defined $tmp
|
|
2396
|
13 |
3 |
if not defined $_ or $_ eq '' or exists $named_fields{$_}
|
|
2401
|
2 |
349 |
if ($count_field_not_found)
|
|
2407
|
4 |
346 |
if defined $self->{'_out_headers'}
|
|
2410
|
6 |
2 |
if not defined $_ or $_ eq '' or exists $named_fields{$_}
|
|
2415
|
2 |
348 |
if $count_field_not_found
|
|
2444
|
0 |
2341 |
if $self->{'_debug_read'}
|
|
2446
|
286 |
2055 |
unless ($ar = _mygetline($incsv, $self->{'_inh'}))
|
|
2447
|
0 |
286 |
if (not $incsv->eof) { }
|
|
2466
|
0 |
2055 |
if ($self->{'_debug_read'})
|
|
2477
|
30 |
2025 |
if ($no_undef)
|
|
2479
|
242 |
82 |
unless defined $ar->[$_]
|
|
2490
|
10107 |
479 |
unless defined $subref
|
|
2497
|
474 |
0 |
if defined $field
|
|
2506
|
0 |
442 |
if $_debug_extra_fields
|
|
2509
|
238 |
204 |
if ($e->ef_type == $EF_LINK) { }
|
|
|
51 |
153 |
elsif ($e->ef_type == $EF_FUNC) { }
|
|
|
153 |
0 |
elsif ($e->ef_type == $EF_COPY) { }
|
|
2511
|
0 |
238 |
if $_debug_extra_fields
|
|
2523
|
0 |
51 |
if $_debug_extra_fields
|
|
2529
|
0 |
153 |
if $_debug_extra_fields
|
|
2532
|
0 |
153 |
if not defined $input and $no_undef
|
|
2533
|
57 |
96 |
if (defined $e->copy_sub) { }
|
|
2540
|
0 |
153 |
if $_debug_extra_fields
|
|
2546
|
56 |
384 |
if not defined $value and $no_undef
|
|
2550
|
0 |
440 |
if $_debug_extra_fields
|
|
2554
|
33 |
2015 |
if (defined $self->{'read_post_update_hr'})
|
|
2559
|
1119 |
929 |
if $self->{'croak_if_error'}
|
|
2562
|
31 |
2017 |
if defined $self->{'walker_ar'}
|
|
2564
|
71 |
1977 |
if defined $self->{'walker_hr'}
|
|
2581
|
0 |
297 |
if $verbose
|
|
2593
|
0 |
316 |
if ($verbose and not $keep_quiet)
|
|
2619
|
165 |
0 |
defined $ar ? :
|
|
2648
|
1 |
21 |
unless defined $new_field
|
|
2650
|
0 |
22 |
if $_debug
|
|
2653
|
1 |
21 |
unless (@c == 3 and $c[2] ne '')
|
|
2659
|
0 |
21 |
unless $self->_status_forward('S2')
|
|
2660
|
0 |
21 |
unless $self->_status_backward('S2')
|
|
2662
|
13 |
8 |
if $param_opts
|
|
2666
|
19 |
1 |
if (ref $obj eq '') { }
|
|
2682
|
4 |
15 |
if (exists $self->{'_obj'} and exists $self->{'_obj'}{$in_file}) { }
|
|
2684
|
0 |
4 |
if $_debug
|
|
2692
|
0 |
15 |
if $_debug
|
|
2695
|
14 |
1 |
unless exists $self->{'_obj'}
|
|
2711
|
6 |
99 |
if exists $self->{$_}
|
|
2726
|
0 |
1 |
if $_debug
|
|
2729
|
14 |
6 |
unless exists $self->{'_extra_fields'}
|
|
2760
|
0 |
2 |
if (@c != 2 or $c[0] eq '' or $c[1] eq '')
|
|
2766
|
1 |
1 |
unless defined $prefix_field
|
|
2783
|
0 |
6 |
if $_debug
|
|
2785
|
1 |
5 |
unless $self->_status_forward('S2')
|
|
2786
|
0 |
5 |
unless $self->_status_backward('S2')
|
|
2810
|
0 |
14 |
if $_debug
|
|
2813
|
1 |
12 |
unless $self->_status_forward('S2')
|
|
2814
|
0 |
12 |
unless $self->_status_backward('S2')
|
|
2816
|
5 |
7 |
defined $func ? :
|
|
2844
|
0 |
16 |
unless $self->_status_forward('S2')
|
|
2845
|
0 |
16 |
unless $self->_status_backward('S2')
|
|
2847
|
0 |
16 |
if $_debug
|
|
2850
|
11 |
5 |
unless defined $self->{'_read_update_after_hr'}{$field}
|
|
2872
|
0 |
12 |
unless $self->_status_forward('S2')
|
|
2873
|
0 |
12 |
unless $self->_status_backward('S2')
|
|
2875
|
0 |
12 |
if $_debug
|
|
2878
|
7 |
5 |
unless defined $self->{'_write_update_before_hr'}{$field}
|
|
2915
|
1120 |
9881 |
unless (exists $n_seen{$i})
|
|
2917
|
1120 |
0 |
unless exists $h{$k}
|
|
2921
|
1273 |
806 |
if $self->{'croak_if_error'}
|
|
2933
|
0 |
1998 |
unless $self->_status_forward('S4')
|
|
2935
|
186 |
1812 |
if (not defined $self->{'_current_record'}) { }
|
|
2942
|
186 |
1812 |
unless (defined $ar)
|
|
2958
|
0 |
60 |
unless $self->_status_backward('S3')
|
|
2959
|
3 |
51 |
unless $self->_status_forward('S3')
|
|
2972
|
0 |
49 |
unless defined $ar
|
|
2974
|
0 |
49 |
unless $self->_status_reset
|
|
2994
|
0 |
9 |
unless $self->_status_backward('S3')
|
|
2995
|
0 |
9 |
unless $self->_status_forward('S4')
|
|
3003
|
0 |
0 |
if (length $v == 1 and ord $v < 32)
|
|
3005
|
0 |
0 |
if $n == 10
|
|
3006
|
0 |
0 |
if $n == 13
|
|
3007
|
0 |
0 |
if $n == 9
|
|
3008
|
0 |
0 |
if $n == 12
|
|
3009
|
0 |
0 |
if $n == 8
|
|
3010
|
0 |
0 |
if $n == 7
|
|
3011
|
0 |
0 |
if $n == 27
|
|
3024
|
0 |
0 |
$self->get_is_always_quoted ? :
|
|
3035
|
0 |
0 |
defined $col->[$_] ? :
|
|
3042
|
0 |
0 |
if $max[$_] < length $l->[$_]
|
|
3068
|
1018 |
159 |
unless defined $subref
|
|
3087
|
16 |
450 |
if defined $tmp
|
|
3089
|
450 |
16 |
unless @wf
|
|
3094
|
36 |
4 |
if defined $field and $field ne ''
|
|
3111
|
0 |
104 |
unless $self->_status_forward('S3')
|
|
3121
|
0 |
104 |
if $verbose
|
|
3127
|
104 |
0 |
unless (defined $outh)
|
|
3128
|
0 |
104 |
if ($out_file eq '') { }
|
|
3131
|
0 |
104 |
unless (open $outh, '>', $out_file)
|
|
3140
|
104 |
0 |
unless ($self->{'_leave_encoding_alone'})
|
|
3143
|
104 |
0 |
defined $self->{'_inh_encoding'} ? :
|
|
3146
|
5 |
99 |
if defined $self->{'out_encoding'}
|
|
3148
|
0 |
96 |
if (_is_utf8($enc) and $self->{'out_utf8_bom'})
|
|
3152
|
0 |
104 |
if ($OS_IS_PLAIN_WINDOWS and $FIX_PERLMONKS_823214)
|
|
3154
|
0 |
0 |
if $enc =~ /^utf-?16/i
|
|
3158
|
0 |
104 |
if $_debug
|
|
3168
|
104 |
0 |
if defined $self->{'sep_char'}
|
|
3169
|
2 |
102 |
if defined $self->{'out_sep_char'}
|
|
3171
|
104 |
0 |
if defined $self->{'quote_char'}
|
|
3172
|
0 |
104 |
if defined $self->{'out_quote_char'}
|
|
3174
|
97 |
7 |
if defined $self->{'escape_char'}
|
|
3175
|
2 |
102 |
if defined $self->{'out_escape_char'}
|
|
3178
|
5 |
99 |
if defined $self->{'out_always_quote'}
|
|
3181
|
0 |
104 |
unless (defined $csvout)
|
|
3188
|
102 |
2 |
if ($self->{'has_headers'} and not defined $self->{'out_has_headers'} && !$self->{'out_has_headers'} or $self->{'out_has_headers'})
|
|
3192
|
98 |
4 |
if ($self->{'has_headers'}) { }
|
|
3199
|
3 |
99 |
if (exists $self->{'_out_headers'})
|
|
3202
|
5 |
7 |
if (exists $h->{$_})
|
|
3227
|
25 |
79 |
if ($self->{'_status'} == 4) { }
|
|
3235
|
1 |
24 |
if (exists $self->{'out_orderby'})
|
|
3240
|
7 |
1 |
if $cmp
|
|
3249
|
0 |
92 |
if (defined $write_filter_hr)
|
|
3250
|
0 |
0 |
unless &$write_filter_hr($hr)
|
|
3273
|
46 |
255 |
if (defined $write_filter_hr)
|
|
3274
|
26 |
20 |
unless &$write_filter_hr($row_hr, \%stats, $self->get_recnum)
|
|
3291
|
0 |
97 |
if ($verbose)
|
|
3298
|
72 |
25 |
if ($do_status_reset)
|
|
3299
|
0 |
72 |
unless $self->_status_reset
|
|
3323
|
0 |
32 |
unless $self->_status_forward('S4')
|
|
3336
|
0 |
364 |
unless $self->_status_forward('S4')
|
|
3338
|
0 |
364 |
unless (defined $key)
|
|
3343
|
3 |
361 |
unless defined $self->{'_flat'}[$key]
|
|
3353
|
2 |
267 |
unless defined $ar
|
|
3383
|
0 |
190 |
unless $self->{'_read_in_progress'}
|
|
3389
|
0 |
905 |
unless $self->_status_forward('S4')
|
|
3391
|
899 |
6 |
if exists $self->{'_named_fields'}{$field}
|
|
3401
|
0 |
19 |
unless $self->_check_for_search($field)
|
|
3403
|
1 |
18 |
unless defined $row
|
|
3412
|
0 |
9 |
unless $self->_check_for_search($field)
|
|
3417
|
23 |
30 |
if (defined $filter_subref)
|
|
3419
|
11 |
12 |
unless &$filter_subref()
|
|
3432
|
561 |
0 |
if defined $arg_opts
|
|
3445
|
489 |
72 |
if (exists $self->{$hash_name} and exists $self->{$projector_name}) { }
|
|
|
0 |
72 |
elsif (exists $self->{$hash_name} or exists $self->{$projector_name}) { }
|
|
3446
|
0 |
489 |
if $_debug
|
|
3453
|
0 |
72 |
if $_debug
|
|
3470
|
57 |
15 |
unless $opt_case
|
|
3473
|
57 |
15 |
if ($opt_trim)
|
|
3483
|
68 |
4 |
if $opt_ignacc
|
|
3508
|
61 |
11 |
if ($opt_ignore_empty) { }
|
|
3520
|
76 |
1269 |
unless (&$filter($p))
|
|
3521
|
0 |
76 |
if $_debug
|
|
3556
|
421 |
142 |
if $param_opts
|
|
3559
|
0 |
561 |
unless $self->_check_for_search($field)
|
|
3562
|
0 |
561 |
unless defined $value
|
|
3568
|
376 |
185 |
if defined $ret
|
|
3580
|
2 |
20 |
unless defined $r->[0]
|
|
3586
|
6 |
14 |
if @{$r;} >= 2 and not $opt_ignore_ambiguous
|
|
3597
|
0 |
314 |
unless $self->_check_for_search($target_field)
|
|
3600
|
171 |
143 |
defined $r->[0] ? :
|
|
3602
|
44 |
99 |
exists $opts->{'value_if_not_found'} ? :
|
|
3610
|
4 |
140 |
if exists $opts->{'value_if_found'}
|
|
3611
|
0 |
140 |
if exists $opts->{'search_value_if_found'}
|