File Coverage

blib/lib/Template/Plugin/MultiMarkdown.pm

Criterion	Covered	Total	%
statement	34	37	91.8
branch	6	10	60.0
condition	3	4	75.0
subroutine	8	8	100.0
pod	2	2	100.0
total	53	61	86.8

package Template::Plugin::MultiMarkdown;

use warnings;
use strict;

our $VERSION = "0.12";

use vars qw($text_mmd_class);
use parent qw (Template::Plugin::Filter);
use Carp;

BEGIN {
    $text_mmd_class = 'Text::MultiMarkdown::XS';
    eval 'require Text::MultiMarkdown::XS';
    if ($@) {
        $text_mmd_class = 'Text::MultiMarkdown';
        eval 'require Text::MultiMarkdown';
        if ($@) {
            croak "cannot load either Text::MultiMarkdown::XS or Text::MultiMarkdown";
        }
    }
}

sub init {
    my $self = shift;
    $self->{_DYNAMIC} = 1;
    $self->install_filter($self->{_ARGS}->[0] || 'multimarkdown');
    return $self;
}

sub filter {
    my ($self, $text, $args, $config) = @_;

    my $options   = { %{$self->{_CONFIG}}, %{$config || {}} };
    my $req_class = delete $options->{implementation} || '';

    if ($req_class eq 'PP') {
        require Text::MultiMarkdown;
        return Text::MultiMarkdown->new(%$options)->markdown($text);
    } elsif ($req_class eq 'XS') {
        require Text::MultiMarkdown::XS;
        return Text::MultiMarkdown::XS->new($options)->markdown($text);
    } else {
    	return $text_mmd_class->new(%$options)->markdown($text);
    }
}

1;

__END__