@@ 18,5 18,5 @@
"scripts": {
"test": "zef test ."
},
- "version": "2020.01.06"
+ "version": "2020.01.06.1"
}=
\ No newline at end of file
@@ 11,6 11,14 @@ sub meta-dispatch($action, *@args, *%named) {
}
}
+multi MAIN('version') {
+ say meta-dispatch 'query', 'version';
+}
+
+multi MAIN('api') {
+ say meta-dispatch 'query', 'api';
+}
+
multi MAIN('break') {
meta-dispatch 'break';
samewith 'bump', :breaking;
@@ 40,6 48,11 @@ sub update-meta6($path, $key, :$transform, :$value) {
return %meta6{$key};
}
+sub query-meta6($path, $key) {
+ my %meta6 = $path.slurp.&from-json;
+ return %meta6{$key};
+}
+
sub break-meta6($path) {
my $res = update-meta6 $path, 'api', transform => { $_ + 1 };
say "API version bumped to $res";