From 4587af307d0c5fc8b53d082f346fc5f5ba042168 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 12 Jun 2020 08:04:00 +0200
Subject: use debug log for debug output

---
 lib/DBInfoscreen/Controller/Wagenreihung.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/DBInfoscreen/Controller/Wagenreihung.pm')

diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index a87bb29..7b59227 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -25,6 +25,7 @@ sub get_wagenreihung_p {
 
 	if ( my $content = $cache->thaw($url) ) {
 		$promise->resolve($content);
+		$self->app->log->debug("GET $url (cached)");
 		return $promise;
 	}
 
@@ -33,6 +34,7 @@ sub get_wagenreihung_p {
 	  ->then(
 		sub {
 			my ($tx) = @_;
+			$self->app->log->debug("GET $url (OK)");
 			my $body = decode( 'utf-8', $tx->res->body );
 			my $json = JSON->new->decode($body);
 
@@ -42,6 +44,7 @@ sub get_wagenreihung_p {
 	)->catch(
 		sub {
 			my ($err) = @_;
+			$self->app->log->debug("GET $url (error: $err)");
 			$promise->reject($err);
 		}
 	)->wait;
-- 
cgit v1.2.3