Changeset 12377 for lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm

Timestamp:

05/26/08 00:59:06 (6 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

Files:

• lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm (modified) (2 diffs)

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

@@ -11 +11 @@
 use HTTP::Cookies;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 sub new {
@@ -89 +89 @@
 =head1 SYNOPSIS
 
+    use LWP::UserAgent;
     use WWW::YourFileHost;
-
-    my $url = 
-      "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv";
+    my $url = "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv";
+    my $ua  = LWP::UserAgent->new( agent => "WWW::YourFileHost" );
+    $ua->cookie_jar(
+        HTTP::Cookies->new(
+            file     => '',
+            autosave => 1,
+        )
+    );
     my $yourfilehost = WWW::YourFileHost->new( url => $url );
-      # or my $yourfilehost = WWW::YourFileHost->new( id => $id );
     print $yourfilehost->photo . "\n";
     print $yourfilehost->video_id . "\n";