line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package HTML::Template::Plugin::Dot::Helpers; |
2
|
|
|
|
|
|
|
{ |
3
|
|
|
|
|
|
|
$HTML::Template::Plugin::Dot::Helpers::VERSION = '0.06'; |
4
|
|
|
|
|
|
|
} |
5
|
|
|
|
|
|
|
|
6
|
2
|
|
|
2
|
|
76937
|
use warnings; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
61
|
|
7
|
2
|
|
|
2
|
|
10
|
use strict; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
61
|
|
8
|
|
|
|
|
|
|
|
9
|
2
|
|
|
2
|
|
907
|
use HTML::Template::Pluggable; |
|
2
|
|
|
|
|
19900
|
|
|
2
|
|
|
|
|
54
|
|
10
|
2
|
|
|
2
|
|
1298
|
use HTML::Template::Plugin::Dot::Helpers::Number; |
|
2
|
|
|
|
|
6
|
|
|
2
|
|
|
|
|
222
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
HTML::Template::Pluggable->add_trigger('before_output' => sub { |
13
|
|
|
|
|
|
|
my $self = shift; |
14
|
|
|
|
|
|
|
$self->param('Number' => HTML::Template::Plugin::Dot::Helpers::Number->new); |
15
|
|
|
|
|
|
|
}); |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
1; # End of HTML::Template::Plugin::Dot::Helpers |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
__END__ |