File Coverage

blib/lib/Text/Markup/Textile.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	34	37	91.8

package Text::Markup::Textile;

use 5.8.1;
use strict;
use warnings;
use File::BOM qw(open_bom);
use Text::Textile 2.10;

our $VERSION = '0.30';

sub parser {
    my ($file, $encoding, $opts) = @_;
    my $textile = Text::Textile->new(
        charset       => 'utf-8',
        char_encoding => 0,
        trim_spaces   => 1,
        @{ $opts || [] }
    );
    open_bom my $fh, $file, ":encoding($encoding)";
    local $/;
    my $html = $textile->process(<$fh>);
    return unless $html =~ /\S/;
    utf8::encode($html);
    return $html if $opts->{raw};
    return qq{




$html


};

}

1;
__END__