Changeset 1621

Show
Ignore:
Timestamp:
08/24/05 07:14:59
Author:
miyagawa
Message:

0.02 released

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Time-Duration-ja/trunk/Changes

    r1555 r1621  
    11Revision history for Perl extension Time::Duration::ja 
     2 
     30.02  Mon Apr 25 01:49:16 UTC 2005 
     4        - Fixed silly translation mistake in ago() and from_now() 
    25 
    360.01  Mon Apr 25 00:49:14 2005 
  • Time-Duration-ja/trunk/lib/Time/Duration/ja.pm

    r1555 r1621  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.01'; 
     5$VERSION = '0.02'; 
    66 
    77use base qw(Exporter); 
     
    2626  interval_exact($_[0], $_[1], '%s後', '%s前', '現在'); } 
    2727 
    28 sub ago       { &later } 
    29 sub ago_exact { &later_exact } 
    30 sub from_now  { &earlier } 
    31 sub from_now_exact { &earlier_exact } 
     28sub ago       { &earlier } 
     29sub ago_exact { &earlier_exact } 
     30sub from_now  { &later } 
     31sub from_now_exact { &later_exact } 
    3232 
    3333sub duration_exact { 
  • Time-Duration-ja/trunk/t/01_duration.t

    r1555 r1621  
    66is duration(121), "2分1秒"; 
    77 
    8 is ago(3600), "1時間"; 
    9 is ago(-3600), "1時間"; 
    10 is ago(3601), "1時間1秒"; 
    11 is ago(-3660), "1時間1分"; 
     8is ago(3600), "1時間"; 
     9is ago(-3600), "1時間"; 
     10is ago(3601), "1時間1秒"; 
     11is ago(-3660), "1時間1分"; 
    1212 
    13 is ago(3661, 3), "1時間1分1秒"; 
     13is ago(3661, 3), "1時間1分1秒"; 
    1414 
    1515# need more tests!