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; |