File Coverage

blib/lib/Text/HTML/Turndown/Tasklistitems.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

package Text::HTML::Turndown::Tasklistitems 0.12;
use 5.020;
use experimental 'signatures';
use stable 'postderef';
use List::MoreUtils 'all';

our %RULES = (
    taskListItems => {
        filter => sub ($rule, $node, $options) {
            return lc $node->getAttribute('type') eq 'checkbox'
                   && uc $node->parentNode->nodeName eq 'LI'
        },
        replacement => sub( $content, $node, $options, $context ) {
            return (defined $node->getAttribute('checked') ? '[x]' : '[ ]') . ' '
        }
    },
);

sub install ($class, $target) {
    for my $key (keys %RULES) {
        $target->addRule($key, $RULES{$key})
    }
}

1;