Changeset 1867

Show
Ignore:
Timestamp:
06/26/06 13:50:45
Author:
miyagawa
Message:

0.05

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Email-Valid-Loose/trunk/Changes

    r995 r1867  
    11Revision history for Perl extension Email::Valid::Loose. 
     2 
     30.05  Fri Jun 23 23:58:36 JST 2006 
     4        - Update the module so it works with recent Email::Valid 
     5 
     60.04  Thu Feb 26 18:25:46 JST 2004 
     7        - Fixed bug that address(-address => $address) is broken 
    28 
    390.03  Fri Jan 30 17:50:39 JST 2004 
  • Email-Valid-Loose/trunk/MANIFEST

    r995 r1867  
    11Changes 
     2lib/Email/Valid/Loose.pm 
     3Makefile.PL 
    24MANIFEST 
    3 Makefile.PL 
    45README 
    5 lib/Email/Valid/Loose.pm 
    66t/00_compile.t 
    77t/01_loose.t 
    8 META.yml                                 Module meta-data (added by MakeMaker) 
  • Email-Valid-Loose/trunk/Makefile.PL

    r424 r1867  
    55    'PREREQ_PM' => { 
    66        Test::More => 0.32, 
    7         Email::Valid => 0.13
     7        Email::Valid => 0.17
    88    }, 
    99); 
  • Email-Valid-Loose/trunk/lib/Email/Valid/Loose.pm

    r995 r1867  
    22 
    33use strict; 
    4 use vars qw($VERSION); 
    5 $VERSION = '0.03'; 
     4our $VERSION = '0.05'; 
    65 
    7 use Email::Valid ()
     6use Email::Valid 0.17
    87use base qw(Email::Valid); 
    98 
     
    4443    return 1; 
    4544} 
    46  
    47 # XXX hack _rearrange to allowi '-foobar@example.com' 
    48  
    49 my $Keys_Re = join '|', keys %Email::Valid::AUTOLOAD; 
    50  
    51 sub _rearrange { 
    52     my $self = shift; 
    53     my(@names)  = @{ shift() }; 
    54     my(@params) = @{ shift() }; 
    55     my(%args); 
    56  
    57     ref $self ? %args = %$self : Email::Valid::_initialize( \%args ); 
    58     return %args unless @params; 
    59  
    60     unless ($params[0] =~ /^-(?:$Keys_Re)$/) { 
    61         while(@params) { 
    62             Carp::croak('unexpected number of parameters') unless @names; 
    63             $args{ lc shift @names } = shift @params; 
    64         } 
    65         return %args; 
    66     } 
    67  
    68     while(@params) { 
    69         my $param = lc substr(shift @params, 1); 
    70         $args{ $param } = shift @params; 
    71     } 
    72  
    73     %args; 
    74 } 
    75  
    76451; 
    7746__END__