| line |
true |
false |
branch |
|
65
|
0 |
2328 |
exists $opts{'test_break_eval'} && $opts{'test_break_eval'} ? :
|
|
83
|
0 |
2328 |
unless ($class_check)
|
|
133
|
2 |
81 |
ref $class ? :
|
|
134
|
3 |
80 |
unless (defined $classname)
|
|
137
|
5 |
75 |
unless ($class->isa("TimeZone::Solar"))
|
|
150
|
56 |
3342 |
if ($type eq "DateTime::TimeZone")
|
|
168
|
1 |
10 |
if (scalar @args <= 1)
|
|
173
|
1 |
9 |
unless (exists $constants{$name})
|
|
189
|
1 |
0 |
if (defined ${$class . "::VERSION";})
|
|
202
|
1 |
114 |
unless ($param_ref->{'latitude'} =~ /^[-+]?\d+(\.\d+)?$/x)
|
|
205
|
2 |
112 |
if (abs $param_ref->{'latitude'} > $MAX_LATITUDE_FP + $PRECISION_FP)
|
|
210
|
56 |
56 |
if (abs $param_ref->{'latitude'} >= $LIMIT_LATITUDE - $PRECISION_FP)
|
|
212
|
28 |
28 |
$use_lon_tz ? :
|
|
225
|
266 |
211 |
$sign > 0 ? :
|
|
|
794 |
477 |
$use_lon_tz ? :
|
|
231
|
410 |
384 |
$sign > 0 ? :
|
|
|
794 |
477 |
$use_lon_tz ? :
|
|
238
|
1 |
1333 |
unless (exists $params{'longitude'})
|
|
243
|
115 |
1218 |
if (exists $params{'latitude'})
|
|
249
|
56 |
56 |
if ref $lat_params eq "HASH"
|
|
258
|
1 |
1273 |
unless ($params{'longitude'} =~ /^[-+]?\d+(\.\d+)?$/x)
|
|
261
|
2 |
1271 |
if (abs $params{'longitude'} > $MAX_LONGITUDE_FP + $PRECISION_FP)
|
|
268
|
794 |
477 |
$use_lon_tz ? :
|
|
269
|
794 |
477 |
$use_lon_tz ? :
|
|
272
|
41 |
1230 |
if ($params{'longitude'} >= $MAX_LONGITUDE_INT - $tz_degree_width / 2 - $PRECISION_FP or $params{'longitude'} <= -$MAX_LONGITUDE_INT + $PRECISION_FP)
|
|
287
|
14 |
1216 |
if ($params{'longitude'} <= -$MAX_LONGITUDE_INT + $tz_degree_width / 2 + $PRECISION_FP)
|
|
301
|
635 |
581 |
$params{'longitude'} > -$tz_degree_width / 2 + $PRECISION_FP ? :
|
|
320
|
1 |
1330 |
unless (defined $hashref)
|
|
323
|
1 |
1329 |
if (ref $hashref ne "HASH")
|
|
326
|
1 |
1328 |
unless (exists $hashref->{'short_name'})
|
|
329
|
1 |
1327 |
unless ($hashref->{'short_name'} =~ /$TZSOLAR_ZONE_RE/)
|
|
338
|
517 |
810 |
if (exists $_INSTANCES{$class})
|
|
342
|
628 |
406 |
if (exists $hashref->{$key}) { }
|
|
353
|
0 |
810 |
unless ($class->isa("TimeZone::Solar"))
|
|
372
|
1 |
1334 |
unless ($class->isa("TimeZone::Solar"))
|
|
377
|
451 |
883 |
if ($in_class =~ qr/ $TZSOLAR_CLASS_PREFIX ( $TZSOLAR_ZONE_RE )/x)
|
|
379
|
31 |
420 |
if (substr($in_tz, 0, 4) eq 'East') { }
|
|
|
29 |
391 |
elsif (substr($in_tz, 0, 4) eq 'West') { }
|
|
|
391 |
0 |
elsif (substr($in_tz, 0, 3) eq 'Lon') { }
|
|
389
|
195 |
196 |
substr($in_tz, 6, 1) eq 'E' ? :
|
|
404
|
0 |
1327 |
if (my $init_func = $self->can("init"))
|
|
425
|
0 |
112 |
unless exists $self->{'latitude'}
|
|
468
|
732 |
595 |
$offset_min >= 0 ? :
|
|
497
|
1 |
47 |
$self->{'offset_min'} == 0 ? :
|
|
525
|
0 |
8 |
if (ref $arg and $arg->isa("TimeZone::Solar"))
|