Changeset 12012

Timestamp:

05/20/08 01:42:01 (5 months ago)

Author:

yusukebe

Message:

new するとき UserAgent? まるごと渡せるようにした

Files:

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

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

@@ -9 +9 @@
 use LWP::UserAgent;
 use CGI;
+use HTTP::Cookies;
 
 our $VERSION = '0.03';
@@ -15 +16 @@
     my ( $class, %opt ) = @_;
     my $self = bless {%opt}, $class;
-    $self->{ua} =
-      $self->{user_agent}
-      ? LWP::UserAgent->new( agent => $self->{user_agent} )
-      : LWP::UserAgent->new;
+    $self->{ua} = LWP::UserAgent->new unless $self->{ua};
     if ( $self->{url} ) {
         $self->_scrape;