Changeset 15701 for lang/perl/WWW-YourFileHost/trunk/lib

Timestamp:

07/12/08 19:43:28 (4 months ago)

Author:

yusukebe

Message:

fix pod

Files:

• lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm (modified) (1 diff)

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

@@ -91 +91 @@
     use LWP::UserAgent;
     use WWW::YourFileHost;
+    use Perl6::Say;
+
     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 );
-    print $yourfilehost->photo . "\n";
-    print $yourfilehost->video_id . "\n";
-    print $yourfilehost->embed . "\n";
+    $ua->cookie_jar( HTTP::Cookies->new );
+    my $yourfilehost = WWW::YourFileHost->new( url => $url , ua => $ua );
+    say $yourfilehost->photo;
+    say $yourfilehost->video_id;
+    say $yourfilehost->embed;