File Coverage

blib/lib/HTML/Linear/Path/Colors.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	44	44	100.0

package HTML::Linear::Path::Colors;
# ABSTRACT: color schemes to render HTML::Linear::Path
use strict;
use utf8;
use warnings qw(all);

use HTML::Entities;
use Term::ANSIColor qw(:constants :constants256);

## no critic (ProhibitPackageVars)

our $VERSION = '0.019'; # VERSION


our %scheme = (
    default => {
        array       => ['' => ''],
        attribute   => ['' => ''],
        equal       => ['' => ''],
        number      => ['' => ''],
        separator   => ['' => ''],
        sigil       => ['' => ''],
        tag         => ['' => ''],
        value       => ['' => ''],
    },
    terminal => {
        array       => [BOLD . CYAN,            RESET],
        attribute   => [BOLD . BRIGHT_YELLOW,   RESET],
        equal       => [BOLD . YELLOW,          RESET],
        number      => [BOLD . BRIGHT_GREEN,    RESET],
        separator   => [BOLD . RED,             RESET],
        sigil       => [BOLD . MAGENTA,         RESET],
        tag         => [BOLD . BRIGHT_BLUE,     RESET],
        value       => [BOLD . BRIGHT_WHITE,    RESET],
    },
    terminal256 => {
        array       => [BOLD . RGB155,          RESET],
        attribute   => [BOLD . RGB551,          RESET],
        equal       => [BOLD . RGB110,          RESET],
        number      => [BOLD . RGB151,          RESET],
        separator   => [BOLD . RGB511,          RESET],
        sigil       => [BOLD . RGB515,          RESET],
        tag         => [BOLD . RGB115,          RESET],
        value       => [BOLD . RGB555,          RESET],
    },
    html => {
        array       => [q() => q()],
        attribute   => [q() => q()],
        equal       => [q() => q()],
        number      => [q() => q()],
        separator   => [q() => q()],
        sigil       => [q() => q()],
        tag         => [q() => q()],
        value       => [q() => q()],
    },
);


our @html = (<<'BOILERPLATE_HTML_HEADER',









 




70




 





 





 





 





 





 



 BOILERPLATE_HTML_HEADER 




71




 





 





 





 





 





 



 <<'BOILERPLATE_HTML_FOOTER'); 




72
BOILERPLATE_HTML_HEADER
<<'BOILERPLATE_HTML_FOOTER');



BOILERPLATE_HTML_FOOTER


sub wrap_xpath {
    my ($xpath) = @_;

    $xpath =~ s{
        (<[^>]+>)(.*?)(]+>)
    }{
        $1 . encode_entities($2) . $3
    }egsx;

    return $xpath;
}


sub wrap_content {
    my ($content, $html) = @_;

    if ($html // 0) {
        $content = encode_entities($content);
        $content =~ s{
            (^\s+|(?<=\n)\s+|\s+(?=\n)|\s+$)
        }{
            my $s = $1;
            $s =~ s/\s/ /gsx;
            qq($s)
        }egsx;
        $content =~ s{\r?\n}{}gsx;
        $content =~ s{\s}{ }gsx;
    } else {
        $content =~ s{
            (^\s+|(?<=\n)\s+|\s+(?=\n)|\s+$)
        }{
            ON_RED . $1 . RESET
        }egsx;
    }

    return $content;
}

1;

__END__