#!/usr/bin/env perl6

use v6;
use lib './lib';
use CamelPubTool;
use CamelPub::ActivityPub;
use JSON::Fast;

sub MAIN (*@command) {
  my $activitypub_profile = ActivityPub::Document.new(document => from-json slurp "activitypub.json");

  my $ast = CamelPubTool::Grammar::Cli.parse(@command.join(' '));
  if $ast {
    CamelPubTool::dispatch($activitypub_profile, $ast)
  } else {
    CamelPubTool::help()
  }
  CATCH {
    say "cli error catch ---"
  }
}

