| 566 |
} |
} |
| 567 |
} # _remove_plus_elements |
} # _remove_plus_elements |
| 568 |
|
|
| 569 |
|
sub _attr_status_info ($$$) { |
| 570 |
|
my ($self, $attr, $status_code) = @_; |
| 571 |
|
my $status; |
| 572 |
|
if ($status_code & FEATURE_STATUS_REC) { |
| 573 |
|
return; |
| 574 |
|
} elsif ($status_code & FEATURE_STATUS_CR) { |
| 575 |
|
$status = 'cr'; |
| 576 |
|
} elsif ($status_code & FEATURE_STATUS_LC) { |
| 577 |
|
$status = 'lc'; |
| 578 |
|
} elsif ($status_code & FEATURE_STATUS_WD) { |
| 579 |
|
$status = 'wd'; |
| 580 |
|
} else { |
| 581 |
|
$status = 'non-standard'; |
| 582 |
|
} |
| 583 |
|
$self->{onerror}->(node => $attr, |
| 584 |
|
type => 'status:'.$status.':attr', |
| 585 |
|
level => $self->{info_level}); |
| 586 |
|
} # _attr_status_info |
| 587 |
|
|
| 588 |
sub _add_minuses ($@) { |
sub _add_minuses ($@) { |
| 589 |
my $self = shift; |
my $self = shift; |
| 590 |
my $r = {}; |
my $r = {}; |
Parent Directory
| 
Revision Log
| 
Patch