Changeset 24480

Timestamp:

11/20/08 18:15:07 (7 weeks ago)

Author:

daisuke

Message:

strftimeは外。

Location:

lang/perl/DateTime-Lite/trunk

Files:

• lib/DateTime/Lite.pm (modified) (5 diffs)
• lib/DateTime/Lite/Strftime.pm (added)
• t/13strftime.t (modified) (1 diff)

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

@@ -267 +267 @@
 
     # We must short circuit for UTC times or else we could end up with
-    # loops between DateTime.pm and DateTime::TimeZone
+    # loops between DateTime.pm and DateTime::Lite::TimeZone
     if ( $self->{tz}->is_utc || $self->{tz}->is_floating )
     {
@@ -382 +382 @@
 }
 
+sub offset                     { $_[0]->{tz}->offset_for_datetime( $_[0] ) }
+sub _offset_for_local_datetime { $_[0]->{tz}->offset_for_local_datetime( $_[0] ) }
 
 
@@ -544 +546 @@
 }
 
+sub week_year   { ($_[0]->week)[0] }
+sub week_number { ($_[0]->week)[1] }
 
 sub ymd
@@ -599 +603 @@
 sub time_zone { $_[0]->{tz} }
 
-sub offset                     { $_[0]->{tz}->offset_for_datetime( $_[0] ) }
-sub _offset_for_local_datetime { $_[0]->{tz}->offset_for_local_datetime( $_[0] ) }
 
 sub is_dst { $_[0]->{tz}->is_dst_for_datetime( $_[0] ) }
@@ -918 +920 @@
 DateTime::Lite::TimeZone and DateTime::Lite::Locale have big changes from their original counterparts.
 
-First, you do NOT call new() on these objects (unless this is something you explicitly want to do). Instead, you need to call load(). So if you were mucking with DateTime::TimeZone and DateTime::Locale, you need to find out every occurance of
-
-    DateTime::TimeZone->new( name => 'Asia/Tokyo' );
+First, you do NOT call new() on these objects (unless this is something you explicitly want to do). Instead, you need to call load(). So if you were mucking with DateTime::Lite::TimeZone and DateTime::Locale, you need to find out every occurance of
+
+    DateTime::Lite::TimeZone->load( name => 'Asia/Tokyo' );
 
 and change them to

lang/perl/DateTime-Lite/trunk/t/13strftime.t

@@ -14 +14 @@
 use Test::More tests => 134;
 
-use DateTime::Lite;
+use DateTime::Lite qw(Strftime);
 
 my $locale = 'en_US';