From 20de709f626017479b48e4d2db1a80faf021901a Mon Sep 17 00:00:00 2001
From: Ralf Ertzinger <ralf@skytale.net>
Date: Sun, 8 Dec 2013 17:31:08 +0100
Subject: [PATCH] Base: Add debugging to simple_get

---
 videosite/Base.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 437ef98..6f686f5 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -210,7 +210,10 @@ sub simple_get {
     my $ua = shift || $self->ua();
     my $r;
 
+    $self->debug("Getting %s", $url);
     $r = $ua->get($url);
+    $self->debug("Return code: %s", $r->status_line);
+    $self->debug("Content length: %d", length($r->decoded_content)) if $r->is_success();
     return $r->decoded_content() if $r->is_success();
     return undef;
 }
-- 
1.8.3.1