Initial Commit

database/perl/vendor/lib/DateTime/TimeZone/Local/Android.pm

@@ -0,0 +1,46 @@
+package DateTime::TimeZone::Local::Android;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+
+our $VERSION = '2.46';
+
+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;