710 |
} |
} |
711 |
} |
} |
712 |
require Whatpm::IMTChecker; |
require Whatpm::IMTChecker; |
713 |
Whatpm::IMTChecker->check_imt (sub { |
my $ic = Whatpm::IMTChecker->new; |
714 |
|
$ic->{level} = $self->{level}; |
715 |
|
$ic->check_imt (sub { |
716 |
$self->{onerror}->(@_, node => $attr); |
$self->{onerror}->(@_, node => $attr); |
717 |
}, @type); |
}, @type); |
718 |
} else { |
} else { |
1007 |
} |
} |
1008 |
} |
} |
1009 |
require Whatpm::IMTChecker; |
require Whatpm::IMTChecker; |
1010 |
Whatpm::IMTChecker->check_imt (sub { |
my $ic = Whatpm::IMTChecker->new; |
1011 |
|
$ic->{level} = $self->{level}; |
1012 |
|
$ic->check_imt (sub { |
1013 |
$self->{onerror}->(@_, node => $attr); |
$self->{onerror}->(@_, node => $attr); |
1014 |
}, @type); |
}, @type); |
1015 |
} else { |
} else { |