From 359821f1bc3d201abceb6d095c17d54dc5293045 Mon Sep 17 00:00:00 2001 From: dakkar Date: Tue, 2 Jan 2018 17:36:50 +0000 Subject: make MusicFile work with non-absolute paths --- lib/Ultramarine/Model/MusicFile.pm6 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Ultramarine/Model/MusicFile.pm6') diff --git a/lib/Ultramarine/Model/MusicFile.pm6 b/lib/Ultramarine/Model/MusicFile.pm6 index 0370310..7c3ccd1 100644 --- a/lib/Ultramarine/Model/MusicFile.pm6 +++ b/lib/Ultramarine/Model/MusicFile.pm6 @@ -3,9 +3,10 @@ use JSON::Fast; class Ultramarine::Model::MusicFile { has $.path is required; + submethod BUILD(IO() :$!path!) {} method metadata() { - my $proc = run 'avprobe', '-show_format','-of', 'json', $.path, + my $proc = run 'avprobe', '-show_format','-of', 'json', $.path.absolute, :err,:out; CATCH { when X::Proc::Unsuccessful { return %() } } my $json-str = $proc.out.slurp(:close); -- cgit v1.2.3