view release on metacpan or  search on metacpan

t/02_timezone.pl  view on Meta::CPAN

10
11
12
13
14
15
16
17
18
19
20
21
22
        if ($^O eq 'MSWin32') {
            exec { $^X } map "\"$_\"", $^X, (map "-I$_", @INC), $0, @ARGV;
        }
    };
}
 
use Time::Local;
use POSIX::strftime::Compiler;
 
my $fmt = shift @ARGV || '%z';
my @t = @ARGV ? localtime timelocal(@ARGV) : localtime;
 
print POSIX::strftime::Compiler::strftime($fmt,@t);