anquegi · September 8, 2022 06:02 · Jun 5, 2018
diff --git a/test-cro.p6 b/test-cro.p6
@@ -0,0 +1,22 @@
+sub get-term-id ( Cro::HTTP::Client $client, Str $value ) {
+
+    my $result;
+
+    try {
+        my $resp = await $client.get: 'terms?short_form=eq.' ~ $value;
+        #     headers => [
+        #         Cro::HTTP::Header.new(
+        #     name => 'Accept',
+        #     value => 'application/vnd.pgrst.object+json'
+        # )
+        #     ];
+        $result = await $resp.body;
+
+        CATCH {
+            when X::Cro::HTTP::Error {  
+                    say 'Got an error: ' ~ .response.status;
+            }
+        }
+    }
+    return $result;
+}