diff options
| -rw-r--r-- | lib/Ultramarine/Model/MusicFile.pm6 | 28 |
1 files changed, 7 insertions, 21 deletions
diff --git a/lib/Ultramarine/Model/MusicFile.pm6 b/lib/Ultramarine/Model/MusicFile.pm6 index ec1cbd7..c82d433 100644 --- a/lib/Ultramarine/Model/MusicFile.pm6 +++ b/lib/Ultramarine/Model/MusicFile.pm6 @@ -1,29 +1,15 @@ use v6.d.PREVIEW; use JSON::Fast; -=begin example - -my @files = @*ARGS.map: { Ultramarine::Model::MusicFile.new(path=>$_) }; -my @metadata-p = @files».metadata; -await Promise.allof(@metadata-p); - -say (@metadata-p».result).perl; - -=end example - class Ultramarine::Model::MusicFile { has $.path is required; - method metadata(-->Promise) { - my $result = Promise.new; - my $proc = Proc::Async.new( - 'avprobe', - '-show_format','-of', 'json', - $.path, - ); - my Str $json-str=''; - $proc.stdout.tap(->$data { $json-str~=$data }); - $proc.stderr.tap(->$err {}); - return $proc.start.then(->$status { from-json $json-str }); + method metadata() { + my $proc = run 'avprobe', '-show_format','-of', 'json', $.path, + :err,:out; + CATCH { when X::Proc::Unsuccessful { .resume } } + my $json-str = $proc.out.slurp(:close); + $proc.err.close(); + return from-json $json-str; } } |