| line |
true |
false |
branch |
|
40
|
0 |
6 |
unless &GetOptions("must=s", \$must, "tp_exclude=s", \$tp_exclude, "indent=i", \$indent_n, "verbose", \$verbose, "version", \$version, "help", \$help) |
|
48
|
3 |
3 |
if ($version) |
|
52
|
0 |
3 |
if $help |
|
55
|
3 |
0 |
if (@ARGV) |
|
57
|
3 |
0 |
if @ARGV |
|
59
|
1 |
2 |
if ($from =~ /\.tcx\s*$/i) |
|
65
|
0 |
2 |
$double_precision eq '' ? : |
|
250
|
0 |
0 |
if ($beg_end =~ /-/) { } |
|
257
|
0 |
2 |
if (@lap and $lap_start > 0) |
|
259
|
0 |
0 |
if ($lap[$i] =~ /^(\*|all)?$/i) { } |
|
260
|
0 |
0 |
$i % 2 ? : |
|
270
|
0 |
0 |
if ($a < $b) { } |
|
|
0 |
0 |
elsif ($a > $b) { } |
|
271
|
0 |
0 |
if ($a - $b <= -180) { } |
|
277
|
0 |
0 |
if ($a - $b >= 180) { } |
|
289
|
0 |
0 |
if $lat >= $lat_sw and $lat <= $lat_ne and &cmp_long($lon, $lon_sw) >= 0 |
|
298
|
0 |
0 |
if (@v % 2) { } |
|
|
0 |
0 |
elsif (@v < 4) { } |
|
|
0 |
0 |
elsif (@v > 4) { } |
|
309
|
0 |
0 |
if $v[0] > $v[2] |
|
310
|
0 |
0 |
if &cmp_long($v[1], $v[3]) > 0 |
|
335
|
2 |
0 |
if ($file_type eq 'activity') { } |
|
346
|
4 |
12 |
if ($include_creator and $obj->value_cooked(@{$desc;}{"t_device_index", "a_device_index", "I_device_index"}, $$v[$desc->{'i_device_index'}]) eq "creator") |
|
351
|
4 |
0 |
if (ref $t_attr eq "HASH") |
|
377
|
2 |
412 |
unless defined $memo->{'id'} |
|
380
|
414 |
0 |
if defined $desc->{'i_position_lat'} and $$v[$desc->{'i_position_lat'}] != $desc->{'I_position_lat'} |
|
383
|
414 |
0 |
if defined $desc->{'i_position_long'} and $$v[$desc->{'i_position_long'}] != $desc->{'I_position_long'} |
|
385
|
414 |
0 |
if defined $lat and defined $lon |
|
387
|
0 |
414 |
if (defined $desc->{'i_enhanced_altitude'} and $$v[$desc->{'i_enhanced_altitude'}] != $desc->{'I_enhanced_altitude'}) { } |
|
|
414 |
0 |
elsif (defined $desc->{'i_altitude'} and $$v[$desc->{'i_altitude'}] != $desc->{'I_altitude'}) { } |
|
394
|
414 |
0 |
if defined $desc->{'i_distance'} and $$v[$desc->{'i_distance'}] != $desc->{'I_distance'} |
|
396
|
0 |
414 |
if (defined $desc->{'i_enhanced_speed'} and $$v[$desc->{'i_enhanced_speed'}] != $desc->{'I_enhanced_speed'}) { } |
|
|
414 |
0 |
elsif (defined $desc->{'i_speed'} and $$v[$desc->{'i_speed'}] != $desc->{'I_speed'}) { } |
|
402
|
0 |
414 |
if defined $desc->{'i_heart_rate'} and $$v[$desc->{'i_heart_rate'}] != $desc->{'I_heart_rate'} |
|
403
|
0 |
414 |
if defined $desc->{'i_cadence'} and $$v[$desc->{'i_cadence'}] != $desc->{'I_cadence'} |
|
404
|
0 |
414 |
if defined $desc->{'i_power'} and $$v[$desc->{'i_power'}] != $desc->{'I_power'} |
|
406
|
414 |
0 |
if (defined $speed or defined $watts) |
|
408
|
414 |
0 |
if defined $speed |
|
409
|
0 |
414 |
if defined $watts |
|
418
|
0 |
414 |
unless defined $tp{$k} |
|
420
|
414 |
0 |
unless $miss |
|
428
|
6 |
2 |
if ($ntps) |
|
442
|
2 |
4 |
if ($event_type eq "stop_all") |
|
463
|
6 |
0 |
if (@{$memo->{'trackv'};}) |
|
471
|
6 |
0 |
if defined $desc->{'i_total_distance'} and $$v[$desc->{'i_total_distance'}] != $desc->{'I_total_distance'} |
|
473
|
0 |
6 |
if (defined $desc->{'i_enhanced_max_speed'} and $$v[$desc->{'i_enhanced_max_speed'}] != $desc->{'I_enhanced_max_speed'}) { } |
|
|
6 |
0 |
elsif (defined $desc->{'i_max_speed'} and $$v[$desc->{'i_max_speed'}] != $desc->{'I_max_speed'}) { } |
|
480
|
6 |
0 |
if defined $desc->{'i_total_calories'} and $$v[$desc->{'i_total_calories'}] != $desc->{'I_total_calories'} |
|
482
|
0 |
6 |
if defined $desc->{'i_avg_cadence'} and $$v[$desc->{'i_avg_cadence'}] != $desc->{'I_avg_cadence'} |
|
486
|
6 |
0 |
unless defined($lap{'Intensity'} = $intensity{$intensity}) |
|
490
|
2 |
4 |
unless defined($lap{'TriggerMethod'} = $lap_trigger{$lap_trigger}) |
|
493
|
0 |
6 |
if defined $desc->{'i_avg_heart_rate'} and $$v[$desc->{'i_avg_heart_rate'}] != $desc->{'I_avg_heart_rate'} |
|
496
|
0 |
6 |
if defined $desc->{'i_max_heart_rate'} and $$v[$desc->{'i_max_heart_rate'}] != $desc->{'I_max_heart_rate'} |
|
500
|
0 |
6 |
if defined $desc->{'i_total_fat_calories'} and $$v[$desc->{'i_total_fat_calories'}] != $desc->{'I_total_calories'} |
|
502
|
0 |
6 |
if (defined $desc->{'i_enhanced_avg_speed'} and $$v[$desc->{'i_enhanced_avg_speed'}] != $desc->{'I_enhanced_avg_speed'}) { } |
|
|
6 |
0 |
elsif (defined $desc->{'i_avg_speed'} and $$v[$desc->{'i_avg_speed'}] != $desc->{'I_avg_speed'}) { } |
|
508
|
0 |
6 |
if defined $desc->{'i_max_cadence'} and $$v[$desc->{'i_max_cadence'}] != $desc->{'I_max_cadence'} |
|
509
|
0 |
6 |
if defined $desc->{'i_avg_power'} and $$v[$desc->{'i_avg_power'}] != $desc->{'I_avg_power'} |
|
510
|
0 |
6 |
if defined $desc->{'i_max_power'} and $$v[$desc->{'i_max_power'}] != $desc->{'I_max_power'} |
|
511
|
6 |
0 |
if %lx |
|
512
|
6 |
0 |
if %x |
|
526
|
0 |
2 |
unless (@{$memo->{'lapv'};}) |
|
527
|
0 |
0 |
unless &cb_lap($obj, $desc, $v, $memo) |
|
530
|
2 |
0 |
if (@{$memo->{'lapv'};}) |
|
533
|
0 |
2 |
unless defined($activity{'Sport'} = $sport{$obj->named_type_value($desc->{'t_sport'}, $$v[$desc->{'i_sport'}])}) |
|
537
|
2 |
0 |
if defined $memo->{'Creator'} |
|
548
|
14 |
4224 |
if (ref $datum eq 'ARRAY') { } |
|
556
|
430 |
3794 |
if (ref $attrv eq "ARRAY") |
|
562
|
422 |
8 |
if (defined $afixed) { } |
|
|
8 |
0 |
elsif (defined $aformat) { } |
|
575
|
2538 |
1686 |
if (defined $format and $format ne '') { } |
|
|
1686 |
0 |
elsif (ref $sub eq 'ARRAY') { } |
|
586
|
3810 |
1284 |
if defined $subdatum |
|
594
|
0 |
2 |
unless $fit->data_message_callback_by_name("file_id", \&main::cb_file_id, $memo) |
|
595
|
0 |
2 |
unless $fit->data_message_callback_by_name("device_info", \&main::cb_device_info, $memo) |
|
596
|
0 |
2 |
unless $fit->data_message_callback_by_name("record", \&main::cb_record, $memo) |
|
597
|
0 |
2 |
unless $fit->data_message_callback_by_name("event", \&main::cb_event, $memo) |
|
598
|
0 |
2 |
unless $fit->data_message_callback_by_name("lap", \&main::cb_lap, $memo) |
|
599
|
0 |
2 |
unless $fit->data_message_callback_by_name("session", \&main::cb_session, $memo) |
|
601
|
0 |
2 |
unless $fit->open |
|
607
|
0 |
0 |
unless defined $err |
|
616
|
0 |
2 |
unless defined $fsize |
|
621
|
0 |
2 |
if ($verbose) |
|
624
|
0 |
0 |
if ($h_extra ne "") |
|
629
|
0 |
0 |
unless $i % 16 |
|
630
|
0 |
0 |
unless $i % 4 |
|
636
|
0 |
0 |
if (defined $h_crc_calculated) |
|
642
|
0 |
2 |
unless $fit->EOF |
|
644
|
0 |
2 |
if ($verbose) |
|
647
|
0 |
0 |
if defined $garbage_size and $garbage_size > 0 |
|
654
|
2 |
0 |
if (@$av) |
|
660
|
0 |
2 |
if (@lap) |
|
665
|
0 |
0 |
if ($p >= $lap[$r - 1] and $p <= $lap[$r]) |
|
673
|
2 |
0 |
if @$lv |
|
683
|
0 |
0 |
if ($a < -180) { } |
|
|
0 |
0 |
elsif ($a > 180) { } |
|
691
|
0 |
2 |
if (@$av and @tpmask || @tpfake) |
|
710
|
0 |
0 |
if ($mask->[0]->(@{$$tpv[$r]{"Position"};}{"LatitudeDegrees", "LongitudeDegrees"}, @$mask[1 .. $mask->$#*])) |
|
717
|
0 |
0 |
unless ($masked) |
|
722
|
0 |
0 |
if ($mask->[0]->($cur_lat, $cur_long, @$mask[1 .. $mask->$#*])) |
|
725
|
0 |
0 |
if (ref $tp_prev eq 'HASH') { } |
|
733
|
0 |
0 |
if ($x_sq <= $sq) |
|
737
|
0 |
0 |
if $x_long >= 180 |
|
739
|
0 |
0 |
unless (&cmp_long($x_long, $mask->[2]) < 0) |
|
740
|
0 |
0 |
if &cmp_long($x_long, $mask->[4]) <= 0 |
|
742
|
0 |
0 |
if $x_long < -180 |
|
743
|
0 |
0 |
if &cmp_long($x_long, $mask->[2]) >= 0 and &cmp_long($x_long, $mask->[4]) <= 0 |
|
751
|
0 |
0 |
if ($x_sq <= $sq) |
|
756
|
0 |
0 |
unless ($x_lat < $mask->[1]) |
|
757
|
0 |
0 |
if $x_lat <= $mask->[3] |
|
759
|
0 |
0 |
if $x_lat >= $mask->[1] and $x_lat <= $mask->[3] |
|
764
|
0 |
0 |
unless @x |
|
772
|
0 |
0 |
if ($y_sq > 0) |
|
776
|
0 |
0 |
if $x_sq < $y_sq |
|
796
|
0 |
0 |
if @$tpv |
|
799
|
0 |
0 |
if @$trkv |
|
802
|
0 |
0 |
if @$lv |
|
807
|
2 |
0 |
if (@$av) |
|
810
|
0 |
2 |
unless defined $T |
|
815
|
0 |
2 |
if ($tplimit > 0 and ($skip = $memo->{'ntps'} / $tplimit) > 1) |
|
822
|
0 |
0 |
if ($tplimit_smart and defined $tpv->[0]{'AltitudeMeters'}) |
|
827
|
0 |
0 |
if (defined $tpv->[$j]{'AltitudeMeters'}) |
|
828
|
0 |
0 |
if ($updown = $tpv->[$j]{'AltitudeMeters'} - $tpv->[$i]{'AltitudeMeters'}) |
|
834
|
0 |
0 |
if ($updown) { } |
|
838
|
0 |
0 |
if (defined $tpv->[$k]{'AltitudeMeters'}) |
|
839
|
0 |
0 |
if (($tpv->[$k]{'AltitudeMeters'} - $tpv->[$j]{'AltitudeMeters'}) / $updown < 0) |
|
845
|
0 |
0 |
if ($k < @$tpv and $k - $i > $skip) |
|
868
|
0 |
0 |
if (defined($x = $tpv->[$k]{'Extensions'}) and defined($tpx = $x->{'TPX'}) and defined($w = $tpx->{'Watts'})) |
|
875
|
0 |
0 |
if (defined $tpv->[$k]{'Cadence'}) |
|
882
|
0 |
0 |
if $wn > 0 |
|
883
|
0 |
0 |
if $cn > 0 |
|
887
|
0 |
0 |
if $j < @$tpv |