Changeset 1883

Show
Ignore:
Timestamp:
07/18/06 21:41:30
Author:
miyagawa
Message:

fixed variable names

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Time-Duration-Parse/trunk/lib/Time/Duration/Parse.pm

    r1882 r1883  
    1010# This map is taken from Cache and Cache::Cache 
    1111# map of expiration formats to their respective time in seconds 
    12 my %_Expiration_Units = ( map(($_,             1), qw(s second seconds sec)), 
    13                           map(($_,            60), qw(m minute minutes min)), 
    14                           map(($_,         60*60), qw(h hour hours)), 
    15                           map(($_,      60*60*24), qw(d day days)), 
    16                           map(($_,    60*60*24*7), qw(w week weeks)), 
    17                           map(($_,   60*60*24*30), qw(M month months)), 
    18                           map(($_,  60*60*24*365), qw(y year years)) ); 
     12my %Units = ( map(($_,             1), qw(s second seconds sec)), 
     13              map(($_,            60), qw(m minute minutes min)), 
     14              map(($_,         60*60), qw(h hour hours)), 
     15              map(($_,      60*60*24), qw(d day days)), 
     16              map(($_,    60*60*24*7), qw(w week weeks)), 
     17              map(($_,   60*60*24*30), qw(M month months)), 
     18              map(($_,  60*60*24*365), qw(y year years)) ); 
    1919 
    2020sub parse_duration { 
     
    2626        $unit = lc($unit) unless length($unit) == 1; 
    2727 
    28         if (my $value = $_Expiration_Units{$unit}) { 
     28        if (my $value = $Units{$unit}) { 
    2929            $duration += $amount * $value; 
    3030        } else {