Changeset 24457

Timestamp:

11/20/08 17:19:04 (7 weeks ago)

Author:

daisuke

Message:

TimeZones?, man

Location:

lang/perl/DateTime-Lite/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/DateTime/Lite.pm (modified) (1 diff)
• lib/DateTime/Lite/TimeZone.pm (modified) (3 diffs)

lang/perl/DateTime-Lite/trunk/Makefile.PL

@@ -5 +5 @@
 all_From('lib/DateTime/Lite.pm');
 
+tests 't/*.t t/*/*.t';
 requires 'SelfLoader';
 WriteAll;

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite.pm

@@ -805 +805 @@
 
 __END__
+
+=head1 NAME
+
+DateTime::Lite - A Low Calorie DateTime
+
+=head1 SYNOPSIS
+
+    use DateTime::Lite;
+
+    my $dt = DateTime::Lite->new(year => 2008, month => 12, day => 1);
+    $dt->year;
+    $dt->month;
+    $dt->day;
+    $dt->hour;
+    $dt->minuute;
+    $dt->second;
+
+    # Arithmetic doesn't come with DateTime::Lite by default
+    use DateTime::Lite qw(Arithmetic);
+    $dt->add( DateTime::Liate::Duration->new(days => 5) );
+
+=head1 DESCRIPTION
+
+This is a complete rip-off of the great DateTime module. The code's greatnes owes everything to its author(s).
+
+However, this module was conceived out of a few specific desires :
+
+  (1) Reduce the amount of memory consumed
+  (2) Make it easy to install on rental servers
+  (3) Bundle everything in one distribution, including timezones
+
+To achieve this, we've taken the original DateTime and rearranged it as follows:
+
+=over 4
+
+=item DateTime::Lite is Pure Perl
+
+No XS, pronto. Since we expect the audience to be people who are not sysadmins, we don't expect them to have a full compiler support either.
+
+=item Parameter validation is done by hand
+
+Params::Validate is a great module, but it slows things down. We don't see the merit of removing it from the original DateTime.pm, but we did so in this version.
+
+=item Non-essential methods are loaded on demand
+
+A lot of times you don't even need to do date time arithmetic, for example. These methods are separated out onto a different file, so you need to load it on demand.
+
+    use DateTime::Lite qw(Arithmetic);
+
+=item DateTime::Lite::TimeZone and DateTime::Lite::Locale are not singletons
+
+Singletons are okay, they serve a particular purpose. But besides being a memory hog of relative low benefit, when given the number of time zones are locales, they are just way too overwhelming for underlings. 
+
+With this version, the objects are mostly the just plain objects, and the exact definition for each timezone/locale is stored in YAML files. They can be located anywhere DateTime::Lite can find. 
+
+In fact, we don't even bundle most of the timezones/locale that come with their respective sources. I only use Asia/Tokyo, if you live in US, you probably use about 5 at most. If you want more timezones, come grab them from http://tbd, and place it somewhere of your choice and set the appropriate environmental variables. DateTime::Lite will find it out.
+
+=back
+
+=cut

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite/TimeZone.pm

@@ -8 +8 @@
 use DateTime::Lite::TimeZone::OffsetOnly;
 use DateTime::Lite::TimeZone::UTC;
+use YAML();
 
 use constant INFINITY     =>       100 ** 1000 ;
@@ -56 +57 @@
     }
 
-=head1
-    my $zone = $real_class->instance( name => $p{name}, is_olson => 1 );
-
-    if ( $zone->is_olson() )
-    {
+    my $zone = $class->new(%$conf);
+
+    if ( $zone->is_olson() ) {
         my $object_version =
             $zone->can('olson_version')
@@ -69 +68 @@
         if ( $object_version ne $catalog_version )
         {
-            warn "Loaded $real_class, which is from an older version ($object_version) of the Olson database than this installation of DateTime::Lite::TimeZone ($catalog_version).\n";
+            warn "Loaded $name, which is from an older version ($object_version) of the Olson database than this installation of DateTime::Lite::TimeZone ($catalog_version).\n";
         }
     }
-=cut
-
-    my $zone = $class->new(%$conf);
+
     return $zone;
 }
 
+sub new { my $class = shift; bless { @_ }, $class }
+
 sub _load_time_zone {
-    die "Couldn't load timezone $_[0]";
+    my $name = shift;
+    my $file = "$name.yaml";
+    $file =~ s/-/_/g;
+    return YAML::LoadFile("misc/timezone/$file");
 }