diff options
author | dakkar <dakkar@thenautilus.net> | 2018-01-02 17:36:50 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2018-01-02 17:36:50 +0000 |
commit | 359821f1bc3d201abceb6d095c17d54dc5293045 (patch) | |
tree | b0ceaaae92e2b3ec275f7e1a8e76544254ed2d3a /lib/Ultramarine/Model | |
parent | better structure, and test, for License (diff) | |
download | Ultramarine-359821f1bc3d201abceb6d095c17d54dc5293045.tar.gz Ultramarine-359821f1bc3d201abceb6d095c17d54dc5293045.tar.bz2 Ultramarine-359821f1bc3d201abceb6d095c17d54dc5293045.zip |
make MusicFile work with non-absolute paths
Diffstat (limited to 'lib/Ultramarine/Model')
-rw-r--r-- | lib/Ultramarine/Model/MusicFile.pm6 | 3 |
1 files changed, 2 insertions, 1 deletions
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); |