File Coverage

blib/lib/Template/Plugin/Devel/StackTrace.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 32 93.7


line stmt bran cond sub pod time code
1             package Template::Plugin::Devel::StackTrace;
2 1     1   51390 use Devel::StackTrace;
  1         4576  
  1         36  
3 1     1   1052 use Template::Plugin;
  1         746  
  1         32  
4              
5 1     1   8 use warnings;
  1         13  
  1         28  
6 1     1   8 use strict;
  1         2  
  1         90  
7              
8             =head1 NAME
9              
10             Template::Plugin::Devel::StackTrace - A Template Plugin To Use Devel::StackTrace objects
11              
12             =head1 VERSION
13              
14             Version 0.01
15              
16             =cut
17 1     1   7 use vars qw($VERSION @ISA);
  1         2  
  1         83  
18             BEGIN
19             {
20 1     1   2 $VERSION = '0.02';
21 1         119 @ISA = qw(Template::Plugin);
22             }
23              
24              
25             =head1 SYNOPSIS
26              
27             [%
28             USE Devel.StackTrace;
29             Devel.StackTrace.as_string;
30             %]
31             or
32             [%
33             USE Devel.StackTrace({ignore_package => 'Net::Server'});
34             Catalyst.log.warn(Devel.StackTrace.as_string);
35             %]
36              
37             =head1 DESCRIPTION
38              
39             Gives you a back an instance of a Devel::StackTrace.
40              
41             =head1 METHODS
42              
43             =head2 new
44              
45             This is used internally. You won't be using it from your templates.
46              
47             =cut
48              
49             sub new {
50 1     1 1 240961 shift; #Shift off classname
51 1         3 shift; #Shift off context
52 1 50       7 my %args = ref($_[0]) eq 'HASH' ? %{$_[0]} : ();
  0         0  
53              
54             # boolean args: now, today, last_day_of_month
55 1         9 return Devel::StackTrace->new(%args);
56             }
57              
58             =head1 CONSTRUCTOR
59              
60             The constructor is the same as Devel::StackTrace
61              
62             =head2 as_string
63              
64             See L
65              
66             =head1 SEE ALSO
67              
68             L
69              
70             =head1 AUTHOR
71              
72             Samuel Kaufman, C<< >>
73              
74             =head1 BUGS
75              
76             Please report any bugs or feature requests to C, or through
77             the web interface at L. I will be notified, and then you'll
78             automatically be notified of progress on your bug as I make changes.
79              
80              
81              
82              
83             =head1 SUPPORT
84              
85             You can find documentation for this module with the perldoc command.
86              
87             perldoc Template::Plugin::Devel::StackTrace
88              
89              
90             You can also look for information at:
91              
92             =over 4
93              
94             =item * RT: CPAN's request tracker
95              
96             L
97              
98             =item * AnnoCPAN: Annotated CPAN documentation
99              
100             L
101              
102             =item * CPAN Ratings
103              
104             L
105              
106             =item * Search CPAN
107              
108             L
109              
110             =back
111              
112              
113             =head1 ACKNOWLEDGEMENTS
114              
115              
116             =head1 COPYRIGHT & LICENSE
117              
118             Copyright 2008 Samuel Kaufman, all rights reserved.
119              
120             This program is free software; you can redistribute it and/or modify it
121             under the same terms as Perl itself.
122              
123              
124             =cut
125              
126             1; # End of Template::Plugin::Devel::StackTrace