File Coverage

My/Filter.pm
Criterion Covered Total %
statement 10 10 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package My::Filter;
2              
3 1     1   30827 use base qw(HTML::TagFilter);
  1         3  
  1         724  
4 1     1   8 use strict;
  1         2  
  1         120  
5              
6             sub on_open_tag {
7 2     2 1 4 my ($self, $tag, $attributes, $sequence) = @_;
8 2 50       12 $$tag = 'strong' if $$tag eq 'b';
9             }
10              
11             sub on_close_tag {
12 1     1 1 2 my ($self, $tag) = @_;
13 1 50       7 $$tag = 'strong' if $$tag eq 'b';
14             }
15              
16             1;