1 %= t table => (class => 'table table-striped table-bordered table-condensed') => begin

     2 <thead>

     3   <tr>

     4     <th>Frame</th>

     5     <th>Module</th>

     6     <th>Signature</th>

     7     <th>Source</th>

     8   </tr>

     9 </thead>

    10 % foreach my $frame(@$frames) {

    11 <tr>

    12   %= t td => $frame->{frame}

    13   %= t td => $frame->{module}

    14   %= t td => $frame->{function}

    15   %= t td => (File::Spec->splitpath($frame->{file}))[-1]

    16 </tr>

    17 % }

    18 % end