line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Astro::App::Satpass2::FormatTime::POSIX::Strftime; |
2
|
|
|
|
|
|
|
|
3
|
20
|
|
|
20
|
|
357
|
use 5.008; |
|
20
|
|
|
|
|
80
|
|
4
|
|
|
|
|
|
|
|
5
|
20
|
|
|
20
|
|
132
|
use strict; |
|
20
|
|
|
|
|
51
|
|
|
20
|
|
|
|
|
400
|
|
6
|
20
|
|
|
20
|
|
102
|
use warnings; |
|
20
|
|
|
|
|
61
|
|
|
20
|
|
|
|
|
571
|
|
7
|
|
|
|
|
|
|
|
8
|
20
|
|
|
20
|
|
107
|
use parent qw{ Astro::App::Satpass2::FormatTime }; |
|
20
|
|
|
|
|
46
|
|
|
20
|
|
|
|
|
101
|
|
9
|
|
|
|
|
|
|
|
10
|
20
|
|
|
20
|
|
11295
|
use Astro::App::Satpass2::FormatTime::Strftime; |
|
20
|
|
|
|
|
59
|
|
|
20
|
|
|
|
|
1313
|
|
11
|
20
|
|
|
20
|
|
146
|
use Astro::App::Satpass2::Utils qw{ ARRAY_REF @CARP_NOT }; |
|
20
|
|
|
|
|
44
|
|
|
20
|
|
|
|
|
2128
|
|
12
|
20
|
|
|
20
|
|
138
|
use POSIX (); |
|
20
|
|
|
|
|
57
|
|
|
20
|
|
|
|
|
9165
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
our $VERSION = '0.051'; |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
sub format_datetime { |
17
|
618
|
|
|
618
|
1
|
1515
|
my ( $self, $tplt, $time, $gmt ) = @_; |
18
|
618
|
|
|
|
|
1642
|
$time = $self->__round_time_value( $time ); |
19
|
618
|
100
|
|
|
|
2299
|
defined $gmt or $gmt = $self->gmt(); |
20
|
618
|
|
|
|
|
1121
|
my @parts; |
21
|
618
|
100
|
|
|
|
1692
|
if ( ARRAY_REF eq ref $time ) { |
|
|
50
|
|
|
|
|
|
22
|
330
|
|
|
|
|
466
|
@parts = @{ $time }; |
|
330
|
|
|
|
|
719
|
|
23
|
|
|
|
|
|
|
} elsif ( $gmt ) { |
24
|
288
|
|
|
|
|
1432
|
@parts = gmtime $time; |
25
|
|
|
|
|
|
|
} else { |
26
|
0
|
|
|
|
|
0
|
my $tz = $self->tz(); |
27
|
|
|
|
|
|
|
defined $tz |
28
|
|
|
|
|
|
|
and $tz ne '' |
29
|
0
|
0
|
0
|
|
|
0
|
and local $ENV{TZ} = $tz; |
30
|
0
|
|
|
|
|
0
|
@parts = localtime $time; |
31
|
|
|
|
|
|
|
} |
32
|
618
|
|
|
|
|
24650
|
return POSIX::strftime( $tplt, @parts ); |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
{ |
36
|
|
|
|
|
|
|
my %adjuster = ( |
37
|
|
|
|
|
|
|
year => sub { $_[0][5] = $_[1] - 1900; return }, |
38
|
|
|
|
|
|
|
month => sub { $_[0][4] = $_[1] - 1; return }, |
39
|
|
|
|
|
|
|
day => sub { $_[0][3] = $_[1]; return }, |
40
|
|
|
|
|
|
|
hour => sub { $_[0][2] = $_[1]; return }, |
41
|
|
|
|
|
|
|
minute => sub { $_[0][1] = $_[1]; return }, |
42
|
|
|
|
|
|
|
second => sub { $_[0][0] = $_[1]; return }, |
43
|
|
|
|
|
|
|
); |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
sub __format_datetime_width_adjust_object { |
46
|
390
|
|
|
390
|
|
865
|
my ( undef, $obj, $name, $val ) = @_; # Invocant unused |
47
|
390
|
100
|
|
|
|
861
|
$obj or $obj = [ 0, 0, 0, 1, 0, 200 ]; |
48
|
390
|
|
|
|
|
1182
|
$adjuster{$name}->( $obj, $val ); |
49
|
390
|
|
|
|
|
917
|
return $obj; |
50
|
|
|
|
|
|
|
} |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
} |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
1; |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
__END__ |