Base: Add simple_get() function

[videosite.git] / videosite / Base.pm

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 001ec56..b31fcb6 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -220,6 +220,17 @@ sub ua {
     return $ua;
 }
 
+sub simple_get {
+    my $self = shift;
+    my $url = shift;
+    my $ua = shift || $self->ua();
+    my $r;
+
+    $r = $ua->get($url);
+    return $r->decoded_content() if $r->is_success();
+    return undef;
+}
+
 sub decode_hexurl {
     my $self = shift;
     my $d = shift;