summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-10 17:55:52 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-10 17:55:52 +0200
commit487f111c52c2b32490ade0d9a7fbdb45a571f834 (patch)
tree65adb07d7740defcb144f00d484ec9c1a89edac1
parent5ff50618b3e16d53d743b210eb172e7f2c6676bd (diff)
downloadperl-app-clerk-487f111c52c2b32490ade0d9a7fbdb45a571f834.tar.gz
perl-app-clerk-487f111c52c2b32490ade0d9a7fbdb45a571f834.tar.xz
dont die on error
-rwxr-xr-xclerk10
1 files changed, 7 insertions, 3 deletions
diff --git a/clerk b/clerk
index da61b48..5488db0 100755
--- a/clerk
+++ b/clerk
@@ -7,7 +7,8 @@ use strict;
use utf8;
use Config::Simple;
use Data::MessagePack;
-#use DDP;
+use Devel::Trace::More;
+#use DDP
use Encode qw(decode encode);
use File::Basename;
use File::Path qw(make_path);
@@ -155,6 +156,7 @@ sub help {
}
sub backend_call {
+ $Devel::Trace =1;
my ($in, $fields, $random) = @_;
my $input;
my $out;
@@ -258,6 +260,7 @@ sub random {
}
sub do_action {
+ $Devel::Trace =1;
my ($in, $context) = @_;
my @action_items = ("Add\n", "Replace\n");
my $action = backend_call(\@action_items);
@@ -293,6 +296,7 @@ sub list_playlists {
}
sub formatted_albums {
+ $Devel::Trace =1;
my ($rdb, $sorted) = @_;
my %uniq_albums;
@@ -348,6 +352,7 @@ sub formatted_playlists {
}
sub list_db_entries_for {
+ $Devel::Trace =1;
my ($kind) = @_;
die "Wrong kind" unless any {; $_ eq $kind} qw/Albums Latest Tracks/;
@@ -369,10 +374,9 @@ sub list_db_entries_for {
my $out = backend_call($output, $fields{$kind});
try {
do_action($out, "tracks", "ignore");
- } catch { last; }
}
}
-
+}
}
main;