Changeset 24467

Show
Ignore:
Timestamp:
11/20/08 17:43:48 (7 weeks ago)
Author:
daisuke
Message:

silence warning, remove Params::Validate

Location:
lang/perl/DateTime-Lite/trunk/lib/DateTime
Files:
2 modified

Legend:

Unmodified
Added
Removed

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

    r24465 r24467  
    141141    my $time_zone = $p{time_zone} || 'floating'; 
    142142 
     143    $self->{offset_modifier} = 0;  
    143144    $self->{locale} = blessed $locale ? 
    144145        $locale : DateTime::Lite::Locale->load($locale); 

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

    r24134 r24467  
    1111 
    1212use DateTime::Lite::TimeZone::UTC; 
    13 use Params::Validate qw( validate SCALAR ); 
    1413 
    15 sub new 
    16 { 
    17     my $class = shift; 
    18     my %p = validate( @_, { offset => { type => SCALAR }, 
    19                           } ); 
     14sub new { 
     15    my ($class, %p) = @_; 
    2016 
    2117    my $offset = 
    22         DateTime::Lite::TimeZone::offset_as_seconds( $p{offset} ); 
     18        DateTime::Lite::TimeZone::offset_as_seconds( $p{offset} ) || 0; 
    2319 
    2420    die "Invalid offset: $p{offset}\n" unless defined $offset;