Changeset 8831

Show
Ignore:
Timestamp:
04/04/08 11:18:34 (6 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:

  • クリーンしました。
Location:
lang/perl/WebService-Simple/trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-Simple/trunk/README

    r8821 r8831  
    2121        ./Build install 
    2222 
    23 COPYRIGHT AND LICENCE 
     23LICENSE AND COPYRIGHT 
    2424 
    25 Copyright (C) 2008, Yusuke Wada 
     25Copyright (c) 2008 Yusuke Wada, All rights reserved. 
    2626 
    27 This library is free software; you can redistribute it and/or modify 
    28 it under the same terms as Perl itself. 
     27This module is free software; you can redistribute it 
     28and/or modify it under the same terms as Perl itself. 
     29See perlartistic. 
     30 

  • 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. 

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

    r8828 r8831  
    4545Yusuke Wada  C<< <yusuke@kamawada.com> >> 
    4646 
    47  
    48 =head1 LICENCE AND COPYRIGHT 
     47=head1 COPYRIGHT AND LISENCE 
    4948 
    5049Copyright (c) 2008 Yusuke Wada, All rights reserved.