gistfile1.pl

class Plugin {
  meta {
    has @commands;
    method command {
      my ($command, $callback) = @_;
      push @commands, [$command, $callback];
    }
  }
}

class Plugin::Toot extends Plugin {
  command toot => sub {
    ... # toot
  };
}