/usr/local/CPAN/HTML-TagFilter/My/Filter.pm

• package My::Filter
  • on_open_tag
  • on_close_tag
• EOF

package My::Filter;

use base qw(HTML::TagFilter);
use strict;

sub on_open_tag {
	my ($self, $tag, $attributes, $sequence) = @_;
	$$tag = 'strong' if $$tag eq 'b';
}

sub on_close_tag {
	my ($self, $tag) = @_;
	$$tag = 'strong' if $$tag eq 'b';
}

1;