Changeset 12377

Show
Ignore:
Timestamp:
05/26/08 00:59:06 (5 months ago)
Author:
yusukebe
Message:

Checking in changes prior to tagging of version 0.04. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 12375)
+++ Changes (作業コピー)
@@ -1,4 +1,5 @@

Revision history for WWW-YourFileHost?

+0.04 MON MAY 26 01:00:00 2008

0.03 FRI Apr 25 11:13:00 2008

remove perlcritic test

0.02 Wed Dec 12 22:33:21 2007

Location:
lang/perl/WWW-YourFileHost/trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WWW-YourFileHost/trunk/Changes

    r10402 r12377  
    11Revision history for WWW-YourFileHost 
     20.04  MON MAY 26 01:00:00 2008 
    230.03  FRI Apr 25 11:13:00 2008 
    34       remove perlcritic test 

  • lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm

    r12012 r12377  
    1111use HTTP::Cookies; 
    1212 
    13 our $VERSION = '0.03'; 
     13our $VERSION = '0.04'; 
    1414 
    1515sub new { 
    … …  
    8989=head1 SYNOPSIS 
    9090 
     91    use LWP::UserAgent; 
    9192    use WWW::YourFileHost; 
    92  
    93     my $url =  
    94       "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv"; 
     93    my $url = "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv"; 
     94    my $ua  = LWP::UserAgent->new( agent => "WWW::YourFileHost" ); 
     95    $ua->cookie_jar( 
     96        HTTP::Cookies->new( 
     97            file     => '', 
     98            autosave => 1, 
     99        ) 
     100    ); 
    95101    my $yourfilehost = WWW::YourFileHost->new( url => $url ); 
    96       # or my $yourfilehost = WWW::YourFileHost->new( id => $id ); 
    97102    print $yourfilehost->photo . "\n"; 
    98103    print $yourfilehost->video_id . "\n"; 

  • lang/perl/WWW-YourFileHost/trunk/t/01.t

    r10289 r12377  
    33use strict; 
    44use warnings; 
     5use LWP::UserAgent; 
    56use WWW::YourFileHost; 
    67use Test::More tests => 4; 
    78 
    89my $url = "http://www.yourfilehost.com/media.php?cat=video&file=guns_dont_kill_people.flv"; 
     10my $ua = LWP::UserAgent->new( agent => "WWW::YourFileHost" ); 
     11$ua->cookie_jar( HTTP::Cookies->new( 
     12                                    file => '', 
     13                                    autosave => 1, 
     14                                )); 
    915 
    10 my $res = WWW::YourFileHost->new( url => $url ); 
     16my $res = WWW::YourFileHost->new( url => $url , ua => $ua ); 
    1117isa_ok $res, 'WWW::YourFileHost'; 
    1218