sub summary {
    my $type = shift || return '';