view release on metacpan or  search on metacpan

lib/Apache/ShowRequest.pm  view on Meta::CPAN

    }
}

sub print_item {
    my $name = shift;
    print "   $name ", '.' x (28 - length($name)), @_;
}

sub constant_name { 
    my $status = shift;
    my $bold = ($status != OK) && ($status != DECLINED);
    print "<b>" if $bold;
    print Apache::Constants->name($status);
    print "</b>" if $bold;
}


1;
__END__

=head1 NAME

Apache::ShowRequest - Show phases and module participation