- my $subcmd = shift @ARGV;
- usage($finished_cb) unless defined($subcmd) and exists ($subcommands{$subcmd});
- invoke_subcommand($subcmd, $finished_cb, @ARGV);
+ my $steps = define_steps
+ cb_ref => \$finished_cb;
+
+ step start => sub {
+ my $subcmd = shift @ARGV;
+ return usage($finished_cb) unless defined($subcmd) and exists ($subcommands{$subcmd});
+ invoke_subcommand($subcmd, $finished_cb, @ARGV);
+ }