File Coverage

blib/lib/HTML/Shakan/Filter/HTMLScrubber.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package HTML::Shakan::Filter::HTMLScrubber;
2 1     1   549 use strict;
  1         2  
  1         30  
3 1     1   4 use warnings;
  1         2  
  1         23  
4 1     1   4 use Mouse;
  1         1  
  1         7  
5 1     1   286 use HTML::Scrubber;
  1         2  
  1         88  
6              
7             has scrubber => (
8             is => 'ro',
9             isa => 'HTML::Scrubber',
10             default => sub { HTML::Scrubber->new() },
11             );
12              
13             sub filter {
14 2     2 0 3 my ($self, $val) = @_;
15 2         9 $self->scrubber->scrub($val);
16             }
17              
18 1     1   4 no Mouse;
  1         7  
  1         4  
19             __PACKAGE__->meta->make_immutable;
20              
21             __END__