Sub::Retry++

okamuuu · Jan 13, 2011 · 7db1980 · 7db1980
1 parent 9a75a9b
commit 7db1980
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/CI/Youtube/Entry.pm b/lib/CI/Youtube/Entry.pm
@@ -1,6 +1,7 @@
 package CI::Youtube::Entry;
 use strict;
 use warnings;
+use Sub::Retry;
 use Cache::FileCache;
 use WebService::Simple;
 use URI;
@@ -97,7 +98,8 @@ sub _get_data_from {
 #        response_parser => 'JSON',
     );
 
-    my $response = eval { $ws->get };
+#    my $response = eval { $ws->get };
+    my $response = retry 3, 1, sub { $ws->get };
 
     if ( $@ ) {
         warn $@;