MusicFile is now synchronous

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;
     }
 }