Changeset 8821

Show
Ignore:
Timestamp:
04/04/08 07:05:20 (6 months ago)
Author:
yusukebe
Message:

lang/perl/WebService-Simple: Fix type etc.

Location:
lang/perl/WebService-Simple/trunk
Files:
5 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-Simple/trunk/Build.PL

    r8746 r8821  
    1313        'LWP::UserAgent' => 0, 
    1414        'XML::Simple'    => 0, 
     15        'HTTP::Response' => 0, 
    1516      }, 
    1617    add_to_cleanup      => [ 'WebService-Simple-*' ], 

  • lang/perl/WebService-Simple/trunk/Makefile.PL

    r8746 r8821  
    1414        'LWP::UserAgent' => 0, 
    1515        'XML::Simple'    => 0, 
     16        'HTTP::Response' => 0, 
    1617      }, 
    1718    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, 

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

    r8746 r8821  
    11WebService-Simple version 0.0.2 
     2 
     3DESCRIPTION 
     4 
     5WebService::Simple provides you a simple interface to Web Services APIs. 
    26 
    37INSTALLATION 

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

    r8746 r8821  
    7878=head1 NAME 
    7979 
    80 WebService::Simple - Simple interface to Web Service APIs 
     80WebService::Simple - Simple interface to Web Services APIs 
    8181 
    8282=head1 VERSION 
    … …  
    9999=head1 DESCRIPTION 
    100100 
    101 WebService::Simple provides you a simple interface to Web Servcie APIs 
     101WebService::Simple provides you a simple interface to Web Services APIs 
    102102 
    103103=head1 METHODS 
    … …  
    113113 
    114114Create and return a new WebService::Simple object. 
    115 "new" Method requires an base_url of Web Service API. 
     115"new" Method requires a base_url of Web Service API. 
    116116 
    117117=item get(I<%args>) 
    … …  
    122122Get the WebService::Simple::Response object. 
    123123 
    124 If you want to add a path to base URL, use option parameters. 
     124If you want to add a path to base URL, use an option parameter. 
    125125 
    126126    my $lingr = WebService::Simple->new( 
    127         base_url => 'http://www.lingr.com/', 
    128         param    => { api_key => "your_api_key", format => 'xml' } 
     127        base_url => "http://www.lingr.com/", 
     128        param    => { api_key => "your_api_key", format => "xml" } 
    129129    ); 
    130     my $response = $lingr->get( {}, { path => '/api/session/create' } ); 
     130    my $response = $lingr->get( {}, { path => "/api/session/create" } ); 
    131131 
    132132=back 
    … …  
    138138 
    139139    my $cache = Cache::File->new( 
    140         cache_root      => '/tmp/mycache', 
    141         default_expires => '30 min', 
     140        cache_root      => "/tmp/mycache", 
     141        default_expires => "30 min", 
    142142    ); 
    143143 
    … …  
    155155=head1 LICENCE AND COPYRIGHT 
    156156 
    157 Copyright (c) 2008, Yusuke Wada C<< <yusuke@kamawada.com> >>. All rights reserved. 
     157Copyright (c) 2008 Yusuke Wada, All rights reserved. 
    158158 
    159159This module is free software; you can redistribute it and/or 

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

    r8551 r8821  
    2222=head1 NAME 
    2323 
    24     Webservice::Simple::Response - Override HTTP::Request and add a xml_parse method 
     24Webservice::Simple::Response - Adds a xml_parse() to HTTP::Response 
    2525 
    2626=head1 VERSION 
    … …  
    3535 
    3636Parse a xml content with XML::Simple and return the Perl object. 
     37You can tell XML::Simple parse options as parameters. 
     38 
     39  my $ref = $response->parse_xml( { forcearray => [], keyattr => [] } ); 
    3740 
    3841=back 
    … …  
    4548=head1 LICENCE AND COPYRIGHT 
    4649 
    47 Copyright (c) 2008, Yusuke Wada C<< <yusuke@kamawada.com> >>. All rights reserved. 
     50Copyright (c) 2008 Yusuke Wada, All rights reserved. 
    4851 
    4952This module is free software; you can redistribute it and/or