Lines 30-48
BEGIN {
Link Here
|
30 |
# @ISA = qw(HTML::Scrubber); |
30 |
# @ISA = qw(HTML::Scrubber); |
31 |
} |
31 |
} |
32 |
|
32 |
|
33 |
INIT { |
33 |
|
34 |
%scrubbertypes = ( |
34 |
my %scrubbertypes = ( |
35 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
35 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
36 |
tag => {}, # uses defaults |
36 |
tag => {}, # uses defaults |
37 |
comment => { |
37 |
comment => { |
38 |
allow => [qw( br b i em big small strong )], |
38 |
allow => [qw( br b i em big small strong )], |
39 |
}, |
39 |
}, |
40 |
staff => { |
40 |
staff => { |
41 |
default => [ 1 =>{'*'=>1} ], |
41 |
default => [ 1 =>{'*'=>1} ], |
42 |
comment => 1, |
42 |
comment => 1, |
43 |
}, |
43 |
}, |
44 |
); |
44 |
); |
45 |
} |
|
|
46 |
|
45 |
|
47 |
|
46 |
|
48 |
sub new { |
47 |
sub new { |