File Coverage

blib/lib/Text/HikiDoc/Plugin/syntaxhighlighter.pm

Criterion	Covered	Total	%
statement	33	39	84.6
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	6	83.3
pod			n/a
total	40	49	81.6

package Text::HikiDoc::Plugin::syntaxhighlighter;

use strict;
use warnings;
no warnings 'redefine';

*Text::HikiDoc::_parse_pre = sub {
    my $self = shift;
    my $string = shift || '';

    return '' unless $string;

    my $MULTI_PRE_OPEN_RE  = '<<<';
    my $MULTI_PRE_CLOSE_RE = '>>>';
    my $PRE_RE = "^[ \t]";

    # pre
    $string =~ s|^$MULTI_PRE_OPEN_RE$(.*?)^$MULTI_PRE_CLOSE_RE$|"\n".$self->_store_block(''.$self->_restore_pre($1).'')."\n\n"|esgm;

    # aa
    $string =~ s|^$MULTI_PRE_OPEN_RE[ \t]*[aA]{2}$(.*?)^$MULTI_PRE_CLOSE_RE$|"\n".$self->_store_block(''.$1.'')."\n\n"|esgm;

    # raw
    my $c = sub {
        my $str = shift;
        $str =~ s/</
        $str =~ s/>/>/g;
        $str =~ s/&/&/g;
        return $str;
    };
    $string =~ s|^$MULTI_PRE_OPEN_RE[ \t]*[rR][aA][wW]$(.*?)^$MULTI_PRE_CLOSE_RE$|"\n".$c->($1)."\n\n"|esgm;

    # syntaxhighlight
    $string =~ s|^$MULTI_PRE_OPEN_RE[ \t]*(\w*)$(.*?)^$MULTI_PRE_CLOSE_RE$|"\n".$self->_store_block(''.$2.'')."\n\n"|esgm;

    $c = sub {
        my $string = shift;
        my $regexp = shift;

        chomp $string;
        $string =~ s|$regexp||gm;

        return $string;
    };
    $string =~ s|((?:$PRE_RE.*\n?)+)|"\n".$self->_store_block("\n".$self->_restore_pre($c->($1,$PRE_RE))."\n")."\n\n"|egm;
    $c = undef;

    return $string;
};

1;