File Coverage

blib/lib/Template/Plugin/TextToHtml.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch			n/a
condition			n/a
subroutine	5	9	55.5
pod	1	3	33.3
total	21	38	55.2

package Template::Plugin::TextToHtml;

require 5.004;

use strict;
use vars qw( @ISA $VERSION );
use base qw( Template::Plugin );
use Template::Plugin;
use HTML::FromText;

$VERSION = '0.02';

sub new {
    my ($class, $context, $format) = @_;;
    $context->define_filter('text2html', [ \&text2html_filter_factory => 1 ]);
    return \&tt_wrap;
}

sub tt_text2html {
    my $text    = shift;
    my $args    = shift;
    text2html($text, %{$args});
}

sub text2html_filter_factory {
    my ($context, $args) = @_;
    return sub {
	my $text = shift;
	tt_text2html($text, $args);
    }
}


1;

__END__