line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DTL::Fast::Filter; |
2
|
69
|
|
|
69
|
|
36949
|
use strict; use utf8; use warnings FATAL => 'all'; |
|
69
|
|
|
69
|
|
133
|
|
|
69
|
|
|
69
|
|
1610
|
|
|
69
|
|
|
|
|
333
|
|
|
69
|
|
|
|
|
123
|
|
|
69
|
|
|
|
|
329
|
|
|
69
|
|
|
|
|
1676
|
|
|
69
|
|
|
|
|
135
|
|
|
69
|
|
|
|
|
2559
|
|
3
|
69
|
|
|
69
|
|
351
|
use parent 'DTL::Fast::Entity'; |
|
69
|
|
|
|
|
114
|
|
|
69
|
|
|
|
|
387
|
|
4
|
|
|
|
|
|
|
|
5
|
69
|
|
|
69
|
|
4233
|
use DTL::Fast::Template; |
|
69
|
|
|
|
|
142
|
|
|
69
|
|
|
|
|
13789
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub new |
8
|
|
|
|
|
|
|
{ |
9
|
513
|
|
|
513
|
0
|
1037
|
my( $proto, $parameter, %kwargs) = @_; |
10
|
|
|
|
|
|
|
|
11
|
513
|
|
33
|
|
|
2039
|
$proto = ref $proto || $proto; |
12
|
|
|
|
|
|
|
|
13
|
513
|
|
50
|
|
|
1461
|
$kwargs{'parameter'} = $parameter // []; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
die $proto->get_parse_error("Parameter must be an ARRAY reference") |
16
|
513
|
50
|
|
|
|
1440
|
if ref $kwargs{'parameter'} ne 'ARRAY'; |
17
|
|
|
|
|
|
|
|
18
|
513
|
|
|
|
|
1883
|
my $self = $proto->SUPER::new(%kwargs); |
19
|
|
|
|
|
|
|
|
20
|
513
|
|
|
|
|
1678
|
return $self->parse_parameters(); |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
124
|
|
|
124
|
0
|
499
|
sub parse_parameters{return shift;} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
sub filter |
26
|
|
|
|
|
|
|
{ |
27
|
0
|
|
|
0
|
0
|
|
my ($self) = @_; |
28
|
0
|
|
|
|
|
|
die sprintf( "filter was not overriden in a subclass %s", ref $self ); |
29
|
|
|
|
|
|
|
} |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
1; |