File: caller-stack

package info (click to toggle)
libhtml-mason-perl 1%3A1.26-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,636 kB
  • ctags: 1,260
  • sloc: perl: 13,880; sh: 154; makefile: 47
file content (13 lines) | stat: -rw-r--r-- 266 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
<p> Called from <% $m->callers(1)->path %> </p>

<& .content &>

<%def .content>
% for ($m->callers) {
<b><% $_->title |h%></b> <% "$_" |h %> <% $_->can('owner') ? "owner=".$_->owner->name : "no_owner" |h%> <br>
% }
</%def>

<%attr>
title => "Caller stack"
</%attr>