ikan Uploader :
Directory : /usr/share/perl5/DateTime/TimeZone/Local/
Upload File : |
| Current File : //usr/share/perl5/DateTime/TimeZone/Local/Android.pm |
package DateTime::TimeZone::Local::Android;
use strict;
use warnings;
use namespace::autoclean;
our $VERSION = '2.18';
use Try::Tiny;
use parent 'DateTime::TimeZone::Local';
sub Methods {
return qw(
FromEnv
FromGetProp
FromDefault
);
}
sub EnvVars { return 'TZ' }
# https://chromium.googlesource.com/native_client/nacl-bionic/+/upstream/master/libc/tzcode/localtime.c
sub FromGetProp {
## no critic (InputOutput::ProhibitBacktickOperators)
my $name = `getprop persist.sys.timezone`;
chomp $name;
my $tz = try {
## no critic (Variables::RequireInitializationForLocalVars)
local $SIG{__DIE__};
DateTime::TimeZone->new( name => $name );
};
return $tz if $tz;
}
# See the link above. Android always defaults to UTC
sub FromDefault {
return try {
## no critic (Variables::RequireInitializationForLocalVars)
local $SIG{__DIE__};
DateTime::TimeZone->new( name => 'UTC' );
};
}
1;
Kontol Shell Bypass