line |
true |
false |
branch |
118
|
0 |
0 |
$IS_BIG_ENDIAN ? : |
174
|
0 |
2 |
if (@_) |
175
|
0 |
0 |
if shift() |
181
|
0 |
2 |
unless open $self->{'_FH'}, $rw, $filename |
183
|
0 |
2 |
unless ($self->is_abif_format) |
192
|
0 |
2 |
unless (seek $self->{'_FH'}, 18, 0) |
197
|
0 |
2 |
unless (read $self->{'_FH'}, $bytes, 12) |
203
|
4 |
0 |
$_ < $LONG_MID ? : |
218
|
0 |
5 |
unless (seek $self->{'_FH'}, $offset, 0) |
223
|
1 |
4 |
unless (read $self->{'_FH'}, $field, 8) |
228
|
0 |
4 |
if $tag_number >= $LONG_MID |
248
|
1 |
2 |
if defined $self->{'_FH'} |
250
|
11 |
3 |
if $k =~ /^\_/ |
283
|
0 |
2 |
unless (seek $self->{'_FH'}, 0, 0) |
289
|
0 |
2 |
unless read $self->{'_FH'}, $file_signature, 4 |
291
|
0 |
2 |
if ($file_signature eq 'FIBA') |
311
|
0 |
0 |
unless (defined $self->{'_ABIF_VERSION'}) |
313
|
0 |
0 |
unless seek $self->{'_FH'}, 4, 0 |
314
|
0 |
0 |
unless read $self->{'_FH'}, $version, 2 |
407
|
2 |
0 |
if ($self->search_tag($tag_name, $tag_number)) |
412
|
4 |
0 |
$_ < $SHORT_MID ? : |
415
|
4 |
0 |
$_ < $LONG_MID ? : |
418
|
0 |
2 |
if ($et > 1023) { } |
431
|
1 |
1 |
if ($DirEntry{'DATA_SIZE'} > 4) { } |
434
|
1 |
0 |
$_ < $LONG_MID ? : |
481
|
2 |
0 |
if ($self->search_tag($tag_name, $tag_number)) |
485
|
2 |
0 |
$_ < $LONG_MID ? : |
487
|
0 |
2 |
if ($data_size > 4) { } |
490
|
0 |
0 |
$_ < $LONG_MID ? : |
526
|
4 |
0 |
if (defined $offset) { } |
609
|
0 |
0 |
if ($self->search_tag($tag_name, $tag_number)) |
611
|
0 |
0 |
$_ < $SHORT_MID ? : |
614
|
0 |
0 |
$_ < $LONG_MID ? : |
617
|
0 |
0 |
if $et > 1023 |
619
|
0 |
0 |
if $et == 9 or $et == 128 or $et == 256 or $et == 384 |
621
|
0 |
0 |
unless defined $elem_type |
626
|
0 |
0 |
if ($elem_type eq 'float') { } |
|
0 |
0 |
elsif ($elem_type eq 'double') { } |
|
0 |
0 |
elsif ($elem_type eq 'date') { } |
|
0 |
0 |
elsif ($elem_type eq 'time') { } |
|
0 |
0 |
elsif ($elem_type eq 'pString') { } |
|
0 |
0 |
elsif ($elem_type eq 'cString') { } |
|
0 |
0 |
elsif ($elem_type eq 'char') { } |
627
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $data) { } |
644
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $data) { } |
657
|
0 |
0 |
if ref $data |
659
|
0 |
0 |
unless defined $yy and defined $mm and defined $dd |
664
|
0 |
0 |
if ref $data |
666
|
0 |
0 |
unless defined $hh and defined $min and defined $sec and defined $ms |
671
|
0 |
0 |
if (ref $data eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $data) { } |
672
|
0 |
0 |
if length $$data > 255 |
681
|
0 |
0 |
if length $data > 255 |
688
|
0 |
0 |
if (ref $data eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $data) { } |
701
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $data eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $data) { } |
718
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $data) { } |
738
|
0 |
0 |
if ($n_bytes <= 4) { } |
|
0 |
0 |
elsif ($n_bytes <= $data_size) { } |
811
|
0 |
0 |
if ($channel_number == 5) { } |
817
|
0 |
0 |
if ($channel_number < 9 or $channel_number > 12 and $channel_number != 205) |
822
|
0 |
0 |
unless (defined $self->{$key}) |
823
|
0 |
0 |
$_ < $SHORT_MID ? : |
825
|
0 |
0 |
@data ? : |
843
|
0 |
0 |
unless (defined $self->{'_APrN1'}) |
862
|
0 |
0 |
unless (defined $self->{'_APrV1'}) |
881
|
0 |
0 |
unless (defined $self->{'_APrX1'}) |
900
|
0 |
0 |
unless (defined $self->{'_APXV1'}) |
921
|
0 |
0 |
unless (defined $self->{'_ARTN1'}) |
922
|
0 |
0 |
$_ < $LONG_MID ? : |
943
|
0 |
0 |
unless (defined $self->{'_SPAC1'}) |
946
|
0 |
0 |
if defined $s |
966
|
0 |
0 |
unless (defined $self->{'_ASPF1'}) |
967
|
0 |
0 |
$_ < $SHORT_MID ? : |
988
|
0 |
0 |
unless (defined $self->{'_SPAC2'}) |
1009
|
0 |
0 |
unless (defined $self->{'_SVER2'}) |
1032
|
0 |
0 |
unless (defined $self->{'_BCTS1'}) |
1053
|
0 |
0 |
unless (defined $self->{'_PLOC2'}) |
1054
|
0 |
0 |
$_ < $SHORT_MID ? : |
1056
|
0 |
0 |
@bl ? : |
1076
|
0 |
0 |
unless (defined $self->{'_PLOC1'}) |
1077
|
0 |
0 |
$_ < $SHORT_MID ? : |
1079
|
0 |
0 |
@bl ? : |
1103
|
0 |
0 |
unless (defined $self->{'_FWO_1'}) |
1105
|
0 |
0 |
if (defined $bases) { } |
1131
|
0 |
0 |
unless (defined $self->{'_SPAC3'}) |
1134
|
0 |
0 |
if defined $s |
1153
|
0 |
0 |
unless (defined $self->{'_BufT1'}) |
1154
|
0 |
0 |
$_ < $SHORT_MID ? : |
1156
|
0 |
0 |
@T ? : |
1174
|
0 |
0 |
unless (defined $self->{'_LANE1'}) |
1175
|
0 |
0 |
$_ < $SHORT_MID ? : |
1197
|
0 |
0 |
unless $base =~ /^[ACGTacgt]$/ |
1219
|
0 |
0 |
unless (defined $self->{'_phCH1'}) |
1243
|
0 |
0 |
if @_ |
1245
|
0 |
0 |
unless (defined $self->{$tag_code}) |
1264
|
0 |
0 |
unless (defined $self->{'_CTTL1'}) |
1283
|
0 |
0 |
unless (defined $self->{'_CTID1'}) |
1304
|
0 |
0 |
unless (defined $self->{'_CTNM1'}) |
1323
|
0 |
0 |
unless (defined $self->{'_CTOw1'}) |
1342
|
0 |
0 |
unless (defined $self->{'_DATA6'}) |
1343
|
0 |
0 |
$_ < $SHORT_MID ? : |
1345
|
0 |
0 |
@c ? : |
1363
|
0 |
0 |
unless (defined $self->{'_MODF1'}) |
1382
|
0 |
0 |
unless (defined $self->{'_SVER1'}) |
1401
|
0 |
0 |
unless (defined $self->{'_SVER3'}) |
1420
|
0 |
0 |
unless (defined $self->{'_RUND3'}) |
1422
|
0 |
0 |
if (defined $d) |
1424
|
0 |
0 |
if $y >= $SHORT_MID |
1444
|
0 |
0 |
unless (defined $self->{'_RUNT3'}) |
1446
|
0 |
0 |
if defined $nn |
1464
|
0 |
0 |
unless (defined $self->{'_RUND4'}) |
1466
|
0 |
0 |
if (defined $d) |
1467
|
0 |
0 |
if $y >= $SHORT_MID |
1487
|
0 |
0 |
unless (defined $self->{'_RUNT4'}) |
1489
|
0 |
0 |
if defined $nn |
1507
|
0 |
0 |
unless (defined $self->{'_DCHT1'}) |
1508
|
0 |
0 |
$_ < $SHORT_MID ? : |
1527
|
0 |
0 |
unless (defined $self->{'_DSam1'}) |
1528
|
0 |
0 |
$_ < $SHORT_MID ? : |
1551
|
0 |
0 |
unless (defined $self->{$k}) |
1552
|
0 |
0 |
if ($n > 0 and $n <= 5) |
1572
|
0 |
0 |
unless (defined $self->{'_DySN1'}) |
1595
|
0 |
0 |
unless (defined $self->{$k}) |
1596
|
0 |
0 |
if ($n > 0 and $n <= 5) |
1620
|
0 |
0 |
unless (defined $self->{'_phDY1'}) |
1643
|
0 |
0 |
unless (defined $self->{$k}) |
1644
|
0 |
0 |
if ($n > 0 and $n <= 5) |
1645
|
0 |
0 |
$_ < $SHORT_MID ? : |
1667
|
0 |
0 |
unless (defined $self->{'_PCON1'}) |
1669
|
0 |
0 |
@qv ? : |
1689
|
0 |
0 |
unless (defined $self->{'_PCON1'}) |
1691
|
0 |
0 |
@qv ? : |
1711
|
0 |
0 |
unless (defined $self->{'_PBAS1'}) |
1729
|
0 |
0 |
unless defined $seq |
1746
|
0 |
0 |
unless (defined $self->{'_EPVt1'}) |
1747
|
0 |
0 |
$_ < $LONG_MID ? : |
1766
|
0 |
0 |
unless (defined $self->{'_GTyp1'}) |
1785
|
0 |
0 |
unless (defined $self->{'_ANME1'}) |
1804
|
0 |
0 |
unless (defined $self->{'_PANL1'}) |
1823
|
0 |
0 |
unless (defined $self->{'_STYP1'}) |
1842
|
0 |
0 |
unless (defined $self->{'_SpNm1'}) |
1861
|
0 |
0 |
unless (defined $self->{'_InSc1'}) |
1862
|
0 |
0 |
$_ < $LONG_MID ? : |
1881
|
0 |
0 |
unless (defined $self->{'_InVt1'}) |
1882
|
0 |
0 |
$_ < $LONG_MID ? : |
1901
|
0 |
0 |
unless (defined $self->{'_HCFG1'}) |
1920
|
0 |
0 |
unless (defined $self->{'_HCFG2'}) |
1939
|
0 |
0 |
unless (defined $self->{'_MCHN1'}) |
1958
|
0 |
0 |
unless (defined $self->{'_HCFG4'}) |
1978
|
0 |
0 |
unless (defined $self->{'_CpEP1'}) |
1997
|
0 |
0 |
unless (defined $self->{'_LsrP1'}) |
1998
|
0 |
0 |
$_ < $LONG_MID ? : |
2017
|
0 |
0 |
unless (defined $self->{'_LNTD1'}) |
2018
|
0 |
0 |
$_ < $SHORT_MID ? : |
2039
|
0 |
0 |
unless (defined $self->{'_PDMF2'}) |
2059
|
0 |
0 |
unless (defined $self->{'_PDMF1'}) |
2078
|
0 |
0 |
unless (defined $self->{'_MODL1'}) |
2101
|
0 |
0 |
unless (defined $self->{'_NOIS1'}) |
2104
|
0 |
0 |
if (not defined $bits) { } |
2132
|
0 |
0 |
unless (defined $self->{'_NLNE1'}) |
2133
|
0 |
0 |
$_ < $SHORT_MID ? : |
2152
|
0 |
0 |
unless (defined $self->{'_Dye#1'}) |
2153
|
0 |
0 |
$_ < $SHORT_MID ? : |
2172
|
0 |
0 |
unless (defined $self->{'_SCAN1'}) |
2173
|
0 |
0 |
$_ < $LONG_MID ? : |
2192
|
0 |
0 |
unless (defined $self->{'_HCFG3'}) |
2217
|
0 |
0 |
unless (defined $self->{$t}) |
2219
|
0 |
0 |
@bytes ? : |
2241
|
0 |
0 |
unless (defined $self->{'_OfSc1'}) |
2242
|
0 |
0 |
$_ < $LONG_MID ? : |
2244
|
0 |
0 |
@off ? : |
2264
|
0 |
0 |
unless (defined $self->{'_OB'}) |
2290
|
0 |
0 |
unless (defined $self->{'_B1Pt2'}) |
2291
|
0 |
0 |
$_ < $SHORT_MID ? : |
2312
|
0 |
0 |
unless (defined $self->{'_B1Pt1'}) |
2313
|
0 |
0 |
$_ < $SHORT_MID ? : |
2336
|
0 |
0 |
unless (defined $self->{'_phAR1'}) |
2339
|
0 |
0 |
if (defined $r) |
2371
|
0 |
0 |
unless (defined $self->{$k}) |
2375
|
0 |
0 |
if defined $s |
2390
|
0 |
0 |
@peak_array ? : |
2408
|
0 |
0 |
unless (defined $self->{'_PXLB1'}) |
2409
|
0 |
0 |
$_ < $LONG_MID ? : |
2428
|
0 |
0 |
unless (defined $self->{'_NAVG1'}) |
2429
|
0 |
0 |
$_ < $SHORT_MID ? : |
2450
|
0 |
0 |
unless (defined $self->{'_PTYP1'}) |
2472
|
0 |
0 |
unless (defined $self->{'_PSZE1'}) |
2473
|
0 |
0 |
$_ < $LONG_MID ? : |
2494
|
0 |
0 |
unless (defined $self->{'_SMED1'}) |
2515
|
0 |
0 |
unless (defined $self->{'_SMLt1'}) |
2534
|
0 |
0 |
unless (defined $self->{'_DATA7'}) |
2535
|
0 |
0 |
$_ < $SHORT_MID ? : |
2537
|
0 |
0 |
@p ? : |
2559
|
0 |
0 |
unless (defined $self->{'_phQL1'}) |
2560
|
0 |
0 |
$_ < $SHORT_MID ? : |
2582
|
0 |
0 |
unless (defined $self->{'_PCON2'}) |
2585
|
0 |
0 |
@qv ? : |
2606
|
0 |
0 |
unless (defined $self->{'_PCON2'}) |
2609
|
0 |
0 |
@qv ? : |
2630
|
0 |
0 |
if ($channel_number == 5) |
2633
|
0 |
0 |
if ($channel_number < 1 or $channel_number > 5 and $channel_number != 105) |
2638
|
0 |
0 |
unless (defined $self->{$k}) |
2639
|
0 |
0 |
$_ < $SHORT_MID ? : |
2641
|
0 |
0 |
@data ? : |
2662
|
0 |
0 |
unless $base =~ /^[ACGTacgt]$/ |
2680
|
0 |
0 |
unless (defined $self->{'_Scal1'}) |
2683
|
0 |
0 |
if (defined $r) |
2703
|
0 |
0 |
unless (defined $self->{'_RGNm1'}) |
2724
|
0 |
0 |
unless (defined $self->{'_RGCm1'}) |
2746
|
0 |
0 |
unless (defined $self->{'_RGOw1'}) |
2767
|
0 |
0 |
unless (defined $self->{'_RevC1'}) |
2768
|
0 |
0 |
$_ < $SHORT_MID ? : |
2789
|
0 |
0 |
unless (defined $self->{'_RMdN1'}) |
2808
|
0 |
0 |
unless (defined $self->{'_RMdV1'}) |
2827
|
0 |
0 |
unless (defined $self->{'_RMXV1'}) |
2846
|
0 |
0 |
unless (defined $self->{'_RMdX1'}) |
2865
|
0 |
0 |
unless (defined $self->{'_RunN1'}) |
2884
|
0 |
0 |
unless (defined $self->{'_RPrN1'}) |
2903
|
0 |
0 |
unless (defined $self->{'_RPrV1'}) |
2922
|
0 |
0 |
unless (defined $self->{'_RUND1'}) |
2924
|
0 |
0 |
if (defined $d) |
2925
|
0 |
0 |
if $y >= $SHORT_MID |
2945
|
0 |
0 |
unless (defined $self->{'_RUNT1'}) |
2947
|
0 |
0 |
if defined $nn |
2965
|
0 |
0 |
unless (defined $self->{'_RUND2'}) |
2967
|
0 |
0 |
if (defined $d) |
2968
|
0 |
0 |
if $y >= $SHORT_MID |
2988
|
0 |
0 |
unless (defined $self->{'_RUNT2'}) |
2990
|
0 |
0 |
if defined $nn |
3008
|
0 |
0 |
unless (defined $self->{'_Tmpr1'}) |
3009
|
0 |
0 |
$_ < $LONG_MID ? : |
3031
|
0 |
0 |
unless (defined $self->{'_SVER4'}) |
3050
|
0 |
0 |
unless (defined $self->{'_SMPL1'}) |
3069
|
0 |
0 |
unless (defined $self->{'_LIMS1'}) |
3091
|
0 |
0 |
unless (defined $self->{'_Rate1'}) |
3093
|
0 |
0 |
@bytes ? : |
3115
|
0 |
0 |
unless (defined $self->{$k}) |
3116
|
0 |
0 |
$_ < $LONG_MID ? : |
3118
|
0 |
0 |
@C ? : |
3141
|
0 |
0 |
unless (defined $self->{'_Satd1'}) |
3142
|
0 |
0 |
$_ < $LONG_MID ? : |
3144
|
0 |
0 |
@N ? : |
3168
|
0 |
0 |
unless (defined $self->{$k}) |
3169
|
0 |
0 |
$_ < $LONG_MID ? : |
3171
|
0 |
0 |
@I ? : |
3192
|
0 |
0 |
unless (defined $self->{'_PROJ4'}) |
3214
|
0 |
0 |
unless (defined $self->{'_PRJT1'}) |
3236
|
0 |
0 |
unless (defined $self->{'_SPEC1'}) |
3257
|
0 |
0 |
unless (defined $self->{'_PBAS2'}) |
3275
|
0 |
0 |
unless defined $seq |
3292
|
0 |
0 |
unless (defined $self->{'_APFN2'}) |
3315
|
0 |
0 |
unless (defined $self->{'_S/N%1'}) |
3316
|
0 |
0 |
$_ < $SHORT_MID ? : |
3318
|
0 |
0 |
if (not @sl) { } |
3346
|
0 |
0 |
unless (defined $self->{'_StdF1'}) |
3367
|
0 |
0 |
unless (defined $self->{'_SnpS1'}) |
3386
|
0 |
0 |
unless (defined $self->{'_EVNT3'}) |
3407
|
0 |
0 |
unless (defined $self->{'_ASPt2'}) |
3408
|
0 |
0 |
$_ < $SHORT_MID ? : |
3429
|
0 |
0 |
unless (defined $self->{'_ASPt1'}) |
3430
|
0 |
0 |
$_ < $SHORT_MID ? : |
3449
|
0 |
0 |
unless (defined $self->{'_EVNT1'}) |
3468
|
0 |
0 |
unless (defined $self->{'_EVNT4'}) |
3489
|
0 |
0 |
unless (defined $self->{'_AEPt2'}) |
3490
|
0 |
0 |
$_ < $SHORT_MID ? : |
3511
|
0 |
0 |
unless (defined $self->{'_AEPt1'}) |
3512
|
0 |
0 |
$_ < $SHORT_MID ? : |
3532
|
0 |
0 |
unless (defined $self->{'_EVNT2'}) |
3551
|
0 |
0 |
unless (defined $self->{'_DATA8'}) |
3552
|
0 |
0 |
$_ < $SHORT_MID ? : |
3554
|
0 |
0 |
@t ? : |
3574
|
0 |
0 |
unless $base =~ /^[ACGTacgt]$/ |
3594
|
0 |
0 |
unless (defined $self->{'_phTR2'}) |
3597
|
0 |
0 |
if defined $pr |
3620
|
0 |
0 |
unless (defined $self->{'_phTR1'}) |
3621
|
0 |
0 |
$_ < $SHORT_MID ? : |
3641
|
0 |
0 |
unless (defined $self->{'_DATA5'}) |
3642
|
0 |
0 |
$_ < $SHORT_MID ? : |
3644
|
0 |
0 |
@v ? : |
3664
|
0 |
0 |
unless (defined $self->{'_User1'}) |
3683
|
0 |
0 |
unless (defined $self->{'_TUBE1'}) |
3711
|
0 |
0 |
unless %sl |
3713
|
0 |
0 |
unless %noise |
3748
|
0 |
0 |
if (@_) |
3777
|
0 |
0 |
if (@_) |
3783
|
0 |
0 |
unless defined $qv_ref |
3786
|
0 |
0 |
if $N < $window |
3791
|
0 |
0 |
if ($qv_ref->[$j] < $threshold) |
3796
|
0 |
0 |
if ($$qv_ref[$j - $window] < $threshold) |
3799
|
0 |
0 |
if ($qv_ref->[$j] < $threshold) |
3804
|
0 |
0 |
if $n >= $bad_bases |
3829
|
0 |
0 |
if (@_) |
3835
|
0 |
0 |
unless defined $qv_ref |
3838
|
0 |
0 |
if $N < $window |
3843
|
0 |
0 |
if ($qv_ref->[$j] < $threshold) |
3848
|
0 |
0 |
if ($$qv_ref[$j + $window] < $threshold) |
3851
|
0 |
0 |
if ($qv_ref->[$j] < $threshold) |
3856
|
0 |
0 |
if $n >= $bad_bases |
3889
|
0 |
0 |
if @_ |
3893
|
0 |
0 |
if $N < $window_width |
3904
|
0 |
0 |
if $q >= $threshold |
3908
|
0 |
0 |
if ($crl and $q < $threshold) { } |
|
0 |
0 |
elsif (not $crl and $q >= $threshold) { } |
3910
|
0 |
0 |
if ($stop - $start < $i - $new_start - 1) |
3921
|
0 |
0 |
if ($crl and $stop - $start < $N - $new_start - 1) |
3925
|
0 |
0 |
unless $trim |
3929
|
0 |
0 |
if ($$qv_ref[$start + $j] < 10) { } |
3939
|
0 |
0 |
if ($$qv_ref[$stop - $j] < 10) { } |
3947
|
0 |
0 |
if ($stop - $start < 4) |
3949
|
0 |
0 |
if ($qv_ref->[$k] < 10) |
3991
|
0 |
0 |
if (@_) |
3994
|
0 |
0 |
unless defined $qv_ref |
4003
|
0 |
0 |
if ($N < $window) |
4010
|
0 |
0 |
if ($method eq 'SequencingAnalysis') { } |
4020
|
0 |
0 |
if ($sum < $threshold) |
4035
|
0 |
0 |
if ($sum < $threshold) |
4044
|
0 |
0 |
$stop > $start ? : |
4058
|
0 |
0 |
if ($sum >= $threshold) |
4067
|
0 |
0 |
if ($sum >= $threshold) |
4100
|
0 |
0 |
if (@_) { } |
4110
|
0 |
0 |
unless defined $qv_ref |
4112
|
0 |
0 |
if ($start <= $stop) { } |
4114
|
0 |
0 |
if ($qv_ref->[$i] <= $max) |
4121
|
0 |
0 |
if ($qv <= $max) |
4152
|
0 |
0 |
if (@_) { } |
4162
|
0 |
0 |
unless defined $qv_ref |
4164
|
0 |
0 |
if ($start <= $stop) { } |
4166
|
0 |
0 |
if ($qv_ref->[$i] >= $min) |
4173
|
0 |
0 |
if ($qv >= $min) |
4209
|
0 |
0 |
if (@_) { } |
4219
|
0 |
0 |
unless defined $qv_ref |
4221
|
0 |
0 |
if ($start <= $stop) { } |
4223
|
0 |
0 |
if ($qv_ref->[$i] >= $min and $qv_ref->[$i] <= $max) |
4230
|
0 |
0 |
if ($qv >= $min and $qv <= $max) |
4258
|
0 |
0 |
if (@_) { } |
4270
|
0 |
0 |
unless $start >= 0 and $start <= $stop and defined $qv_ref |
4356
|
1 |
0 |
substr($b, 0, 1) eq '0' ? : |
4378
|
0 |
0 |
if ($decimal_number == 0) |
4385
|
0 |
0 |
if (abs(($decimal_number - $ff) / $ff) < 0.0001) |
4391
|
0 |
0 |
if ($decimal_number =~ /^-/) |
4396
|
0 |
0 |
unless $i |
4397
|
0 |
0 |
unless $f |
4404
|
0 |
0 |
if ($mantissa =~ /1/g) { } |
4411
|
0 |
0 |
$exp > 0 ? : |
4415
|
0 |
0 |
unless $mantissa |
4443
|
0 |
0 |
if @_ |
4461
|
0 |
0 |
$m < 10 ? : |
4463
|
0 |
0 |
$d < 10 ? : |
4471
|
0 |
0 |
$hh < 10 ? : |
4473
|
0 |
0 |
$mm < 10 ? : |
4475
|
0 |
0 |
$ss < 10 ? : |
4477
|
0 |
0 |
$nn < 10 ? : |
4483
|
0 |
0 |
unless @_ == 1 |
4485
|
0 |
0 |
if (ref $self) { } |
4495
|
0 |
1 |
if ($Debugging or $self->{'_DEBUG'}) |
4501
|
0 |
2 |
if ($Debugging) |