Show
Ignore:
Timestamp:
04/04/08 11:18:34 (8 months ago)
Author:
drry
Message:

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm
lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.pm
lang/perl/WebService-Simple/trunk/README:

  • クリーンしました。
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

    r8828 r8831  
    1515    croak "paramater base_url is required" unless $opt->{base_url}; 
    1616    my $self = bless { 
    17         ua => LWP::UserAgent->new, 
    18         %$opt, 
     17        ua => LWP::UserAgent->new, 
     18        %$opt, 
    1919    }, $class; 
    2020    $self; 
    … …  
    2929 
    3030sub _fetch_url{ 
    31     my ($self,$url) = @_; 
     31    my ($self, $url) = @_; 
    3232    my $response; 
    3333    if(exists $self->{cache}){ 
    … …  
    4040    croak "can't get the request" unless $response->is_success; 
    4141    if(exists $self->{cache}) { 
    42         $self->{cache}->freeze($url, $response); 
     42        $self->{cache}->freeze($url, $response); 
    4343    } 
    4444    return $response; 
    … …  
    4949    my $base_url = $self->{base_url}; 
    5050    if($path){ 
    51         $path =~ s!^/!! if $base_url =~ /\/$/; 
     51        $path =~ s!^/+!! if $base_url =~ m{/$}; 
    5252        $base_url = $base_url . $path; 
    5353    } 
    … …  
    5656    push(@params, $self->_hashref_to_str($self->{param})); 
    5757    push(@params, $self->_hashref_to_str($request_param)); 
    58     my $str = join("&",@params); 
     58    my $str = join("&", @params); 
    5959    return $url . $str; 
    6060} 
    … …  
    153153Yusuke Wada  C<< <yusuke@kamawada.com> >> 
    154154 
    155 =head1 LICENCE AND COPYRIGHT 
     155=head1 COPYRIGHT AND LISENCE 
    156156 
    157157Copyright (c) 2008 Yusuke Wada, All rights reserved.