#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Perinci::CmdLine;
use Perinci::Sub::Util qw(err);
our %SPEC;
$SPEC{f} = {
    v => 1.1,
    summary => 'Demo showing previous error in trace log-level',
};
sub f {
    err(g());
}
sub g {
    err(404, h());
}
sub h {
    [500, "Can't find magic dust"];
}
Perinci::CmdLine->new(url => '/main/f')->run;