File Coverage

blib/lib/Text/Markup/Markdown.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	8	75.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	43	46	93.4

package Text::Markup::Markdown;

use 5.8.1;
use strict;
use warnings;
use Text::Markup;
use File::BOM qw(open_bom);
use Text::Markdown::Discount;

our $VERSION = '0.41';

sub import {
    # Replace the regex if passed one.
    Text::Markup->register( markdown => $_[1] ) if $_[1];
}

sub parser {
    my ($file, $encoding, $opts) = @_;
    my %params = @{ $opts };

    unless (defined $params{flags}) {
          $params{flags} = Text::Markdown::Discount::MKD_NOHEADER
              | Text::Markdown::Discount::MKD_TOC
              | Text::Markdown::Discount::MKD_DLEXTRA
              | Text::Markdown::Discount::MKD_FENCEDCODE
              | Text::Markdown::Discount::MKD_EXTRA_FOOTNOTE
              | Text::Markdown::Discount::MKD_IDANCHOR;
    }
    open_bom my $fh, $file, ":encoding($encoding)";
    my $html = Text::Markdown::Discount::markdown(join('', <$fh>), $params{flags});
    return unless $html =~ /\S/;
    utf8::encode($html);
    return $html if $params{raw};
    return qq{




$html


};

}

1;
__END__