local-lib5/lib/perl5/DateTime/TimeZone/Pacific/Guam.pm

   1 # This file is auto-generated by the Perl DateTime Suite time zone
   2 # code generator (0.07) This code generator comes with the
   3 # DateTime::TimeZone module distribution in the tools/ directory
   4
   5 #
   6 # Generated from /tmp/UeJBI4pKMW/australasia.  Olson data version 2009s
   7 #
   8 # Do not edit this file directly.
   9 #
  10 package DateTime::TimeZone::Pacific::Guam;
  11
  12 use strict;
  13
  14 use Class::Singleton;
  15 use DateTime::TimeZone;
  16 use DateTime::TimeZone::OlsonDB;
  17
  18 @DateTime::TimeZone::Pacific::Guam::ISA = ( 'Class::Singleton', 'DateTime::TimeZone' );
  19
  20 my $spans =
  21 [
  22     [
  23 DateTime::TimeZone::NEG_INFINITY,
  24 58191056460,
  25 DateTime::TimeZone::NEG_INFINITY,
  26 58191004800,
  27 -51660,
  28 0,
  29 'LMT'
  30     ],
  31     [
  32 58191056460,
  33 59958195660,
  34 58191091200,
  35 59958230400,
  36 34740,
  37 0,
  38 'LMT'
  39     ],
  40     [
  41 59958195660,
  42 63113176800,
  43 59958231660,
  44 63113212800,
  45 36000,
  46 0,
  47 'GST'
  48     ],
  49     [
  50 63113176800,
  51 DateTime::TimeZone::INFINITY,
  52 63113212800,
  53 DateTime::TimeZone::INFINITY,
  54 36000,
  55 0,
  56 'ChST'
  57     ],
  58 ];
  59
  60 sub olson_version { '2009s' }
  61
  62 sub has_dst_changes { 0 }
  63
  64 sub _max_year { 2019 }
  65
  66 sub _new_instance
  67 {
  68     return shift->_init( @_, spans => $spans );
  69 }
  70
  71
  72
  73 1;
  74