use Template::Stash;
use List::Util qw(max);

$Template::Stash::LIST_OPS->{signal_list} = sub {
    my $aref = +shift || [];
    my $sep  =  shift || "\n  ";
    my $l = max map { length $_ } @$aref;
    join(",$sep", map { sprintf ".%-${l}s (%-${l}s)", $_, $_ } @$aref);
};