view release on metacpan or  search on metacpan

lib/Catalyst/Plugin/Profile/DBI/Log/Controller/ControlProfiling.pm  view on Meta::CPAN

END

    $c->response->body($html);


}

sub generate_stack_trace_html {
    my $stack_data = shift;

    my $html .= <<STACKTRACETABLESTART;

<h2>Stack trace</h2>

<table>
<tr>
<th>File</th>
<th>Line</th>
<th>Sub</th>
</tr>

STACKTRACETABLESTART

    for my $frame (@{ $stack_data }) {
        $html .= <<STACKROW;
<tr>
<td>$frame->{file}</td>
<td>$frame->{line}</td>
<td><tt>$frame->{sub}</tt></td>
</tr>
STACKROW
    }