base: Initialize a LWP::UserAgent instance for subclasses to use

diff --git a/videosite/Base.pm b/videosite/Base.pm
index d6c022a..93ac841 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -4,11 +4,15 @@
 package videosite::Base;
 
 use strict;
+use LWP::UserAgent;
+use HTTP::Cookies;
 use Data::Dumper;
 
 sub new {
     my $class = shift;
     my $self = {'_DEBUG' => 0, '_OUT' => sub {print shift}};
+    
+    $self->{_ua} = LWP::UserAgent->new('agent' => 'Mozilla/5.0', 'cookie_jar' => HTTP::Cookies->new);
 
     bless($self, $class);