File Coverage

blib/lib/Pod/Simple/Role/XHTML/WithHighlightConfig.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	16	93.7

package Pod::Simple::Role::XHTML::WithHighlightConfig;
use Moo::Role;

our $VERSION = '0.000002';
$VERSION =~ tr/_//d;

use Pod::Simple::XHTML ();
BEGIN {
  *_ENCODE_AS_METHOD = $Pod::Simple::VERSION >= 3.16 ? sub(){1} : sub(){0};
}

with 'Pod::Simple::Role::WithHighlightConfig';

sub _encode_html_entities {
  my ($self, $text) = @_;
  if (_ENCODE_AS_METHOD) {
    $self->encode_entities($text);
  }
  else {
    Pod::Simple::XHTML::encode_entities($text);
  }
}

around start_highlight => sub {
  my ($orig, $self, $item, $config) = @_;
  $self->$orig($item, $config);
  $config ||= {};
  my $tag = '
  my @classes;
  if ($config->{line_numbers}) {
    push @classes, 'line-numbers';
    if ($config->{start_line}) {
      $tag .= ' data-start="' . $self->_encode_html_entities($config->{start_line}) . '"';
    }
  }
  if ($config->{highlight}) {
    $tag .= ' data-line="' . $self->_encode_html_entities($config->{highlight}) . '"';
  }
  if (@classes) {
    $tag .= ' class="' . join (' ', @classes) . '"';
  }
  $tag .= '>
  if ($config->{language}) {
    my $lang = lc $config->{language};
    $lang =~ s/\+/p/g;
    $lang =~ s/\W//g;
    $tag .= ' class="language-' . $lang . '"';
  }
  $tag .= '>';
  $self->{scratch} = $tag;
};

1;
__END__