File Coverage

blib/lib/Text/HTML/Turndown/Strikethrough.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Text::HTML::Turndown::Strikethrough 0.11;
2 1     1   533 use 5.020;
  1         3  
3 1     1   15 use experimental 'signatures';
  1         1  
  1         7  
4 1     1   127 use stable 'postderef';
  1         1  
  1         6  
5 1     1   50 use List::MoreUtils 'all';
  1         1  
  1         9  
6              
7             our %RULES = (
8             strikethrough => {
9              
10             filter => ['del', 's', 'strike'],
11             replacement => sub( $content, $node, $options, $context ) {
12             return '~~' . $content . '~~'
13             }
14             }
15             );
16              
17 22     22 0 41 sub install ($class, $target) {
  22         40  
  22         34  
  22         35  
18 22         95 for my $key (keys %RULES) {
19 22         76 $target->addRule($key, $RULES{$key})
20             }
21             }
22              
23             1;