File Coverage

blib/lib/Pod/Markdown/Github.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	26	96.1

package Pod::Markdown::Github;

use strict;
use warnings;
use parent 'Pod::Markdown';

our $VERSION = '0.01';

sub syntax {
    my ( $self, $paragraph ) = @_;
    return ( $paragraph =~ /(sub|my|use|shift|\$self|\=\>|\$_|\@_)/ )
      ? 'perl'
      : '';
}

sub _indent_verbatim {
    my ( $self, $paragraph ) = @_;
    $DB::single = 1;
    $paragraph = $self->SUPER::_indent_verbatim($paragraph);

    # Remove the leading 4 spaces because we'll escape via ```language
    $paragraph = join "\n", map { s/^\s{4}//; $_ } split /\n/, $paragraph;

    # Enclose the paragraph in ``` and specify the language
    return sprintf( "```%s\n%s\n```", $self->syntax($paragraph), $paragraph );
}

1;

__END__