File Coverage

blib/lib/Template/Plugin/HTML/Prototype.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Template::Plugin::HTML::Prototype;
2              
3 1     1   1861161 use strict;
  1         3  
  1         50  
4 1     1   6 use warnings;
  1         2  
  1         51  
5              
6             our $VERSION = '0.01';
7              
8 1     1   5 use base 'Template::Plugin';
  1         7  
  1         1311  
9              
10 1     1   4634 use HTML::Prototype;
  1         63074  
  1         18  
11              
12             sub new($$@) {
13 1     1 1 1702655 my ($prot, $context, @params) = @_;
14 1         73 return new HTML::Prototype(@params);
15             }
16              
17             1;
18             __END__