Reuse the "WWW::FairViewer" in "WWW::FairViewer::GetCaption".

Signed-off-by: Jesús <heckyel@hyperbola.info>

1 files changed, 9 insertions, 37 deletions

diff --git a/lib/WWW/FairViewer/GetCaption.pm b/lib/WWW/FairViewer/GetCaption.pm
index 83b699b..710a2af 100644
--- a/lib/WWW/FairViewer/GetCaption.pm
+++ b/lib/WWW/FairViewer/GetCaption.pm
@@ -13,8 +13,7 @@ WWW::FairViewer::GetCaption - Save the YouTube closed captions as .srt files for
     use WWW::FairViewer::GetCaption;
 
     my $yv_cap = WWW::FairViewer::GetCaption->new(%opts);
-
-    print $yv_cap->get_caption($videoID);
+    my $file = $yv_cap->save_caption($videoID);
 
 =head1 SUBROUTINES/METHODS
 
@@ -44,16 +43,23 @@ sub new {
     my ($class, %opts) = @_;
 
     my $self = bless {}, $class;
+
     $self->{captions_dir}  = undef;
     $self->{captions}      = [];
     $self->{auto_captions} = 0;
     $self->{languages}     = [qw(en es)];
+    $self->{yv_obj}        = undef;
 
     foreach my $key (keys %{$self}) {
         $self->{$key} = delete $opts{$key}
           if exists $opts{$key};
     }
 
+    $self->{yv_obj} //= do {
+        require WWW::FairViewer;
+        WWW::FairViewer->new(cache_dir => $self->{captions_dir},);
+    };
+
     foreach my $invalid_key (keys %opts) {
         warn "Invalid key: '${invalid_key}'";
     }
@@ -184,41 +190,7 @@ Get the XML content for a given caption data.
 
 sub get_xml_data {
     my ($self, $url) = @_;
-
-    state $lwp = do {
-
-        require LWP::UserAgent;
-
-        my $agent = LWP::UserAgent->new(
-                 timeout   => 30,
-                 env_proxy => 1,
-                 agent =>
-                   'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2272.101 Safari/537.36',
-        );
-
-        require LWP::ConnCache;
-        state $cache = LWP::ConnCache->new;
-        $cache->total_capacity(undef);    # no limit
-
-        state $accepted_encodings = do {
-            require HTTP::Message;
-            HTTP::Message::decodable();
-        };
-
-        $agent->ssl_opts(Timeout => 30);
-        $agent->default_header('Accept-Encoding' => $accepted_encodings);
-        $agent->conn_cache($cache);
-
-        $agent;
-    };
-
-    my $req = $lwp->get($url);
-
-    if ($req->is_success) {
-        return $req->decoded_content;
-    }
-
-    return;
+    $self->{yv_obj}->lwp_get($url, simple => 1);
 }
 
 =head2 save_caption($video_ID)