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   1903 use strict;
  1         4  
  1         49  
3 1     1   6 use warnings;
  1         4  
  1         33  
4 1     1   5 use Mouse;
  1         2  
  1         11  
5 1     1   412 use HTML::Scrubber;
  1         2  
  1         158  
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 5 my ($self, $val) = @_;
15 2         9 $self->scrubber->scrub($val);
16             }
17              
18 1     1   6 no Mouse;
  1         2  
  1         6  
19             __PACKAGE__->meta->make_immutable;
20              
21             __END__