File Coverage

blib/lib/Template/PopupTreeSelect.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition 1 3 33.3
subroutine 8 8 100.0
pod 0 1 0.0
total 33 36 91.6


line stmt bran cond sub pod time code
1             package Template::PopupTreeSelect;
2 1     1   929 use 5.006;
  1         4  
  1         43  
3 1     1   6 use strict;
  1         2  
  1         33  
4 1     1   30 use warnings;
  1         2  
  1         43  
5              
6 1     1   6 use Carp qw(croak);
  1         1  
  1         70  
7 1     1   2793 use Template 2.08;
  1         36436  
  1         56  
8              
9             our $VERSION = "0.9";
10              
11 1     1   10 use base 'HTML::PopupTreeSelect';
  1         2  
  1         988  
12              
13             =head1 NAME
14              
15             Template::PopupTreeSelect - HTML popup tree widget
16              
17             =head1 DESCRIPTION
18              
19             Subclasses L.
20              
21             =cut
22              
23             our $TEMPLATE_SRC;
24              
25             sub output
26             {
27 2     2 0 6785 my($self, $template) = @_;
28 2   33     29 return $self->SUPER::output(
29             $template || Template->new(TAG_STYLE => 'star')
30             );
31             }
32              
33             sub _output_generate
34             {
35 2     2   53463 my($self, $template, $param) = @_;
36 2         4 my $output;
37 2         14 $template->process(\$TEMPLATE_SRC, $param, \$output);
38 2         254252 return $output;
39             }
40              
41             $TEMPLATE_SRC = <
42             [* IF include_css *][* END; #include_css *]
111              
112            
319              
320            
321            
[* title *]
322            
323             [* FOREACH leaf = loop *]
324             [* UNLESS leaf.end_block *]
325            
326             [* IF leaf.has_children *]
327            
328             [* ELSE *]
329            
330             [* END *]
331            
332             [* leaf.label *]
333            
334            
335             [* IF leaf.has_children *]
336            
337             [* END *]
338             [* ELSE *]
339            
340             [* END *]
341             [* END *]
342            
343            
344            
345            
346            
347            
348              
349            
350             END
351              
352             1;