202 |
$self = bless {}, $self unless ref $self; |
$self = bless {}, $self unless ref $self; |
203 |
$self->{onerror} = $onerror; |
$self->{onerror} = $onerror; |
204 |
|
|
205 |
|
$self->{must_level} = 'm'; |
206 |
|
$self->{fact_level} = 'f'; |
207 |
|
$self->{should_level} = 's'; |
208 |
|
$self->{good_level} = 'g'; |
209 |
|
|
210 |
my $docel = $doc->document_element; |
my $docel = $doc->document_element; |
211 |
unless (defined $docel) { |
unless (defined $docel) { |
212 |
## ISSUE: Should we check content of Document node? |
## ISSUE: Should we check content of Document node? |
249 |
$self = bless {}, $self unless ref $self; |
$self = bless {}, $self unless ref $self; |
250 |
$self->{onerror} = $onerror; |
$self->{onerror} = $onerror; |
251 |
|
|
252 |
|
$self->{must_level} = 'm'; |
253 |
|
$self->{fact_level} = 'f'; |
254 |
|
$self->{should_level} = 's'; |
255 |
|
$self->{good_level} = 'g'; |
256 |
|
|
257 |
$self->{minuses} = {}; |
$self->{minuses} = {}; |
258 |
$self->{id} = {}; |
$self->{id} = {}; |
259 |
$self->{term} = {}; |
$self->{term} = {}; |