File Coverage

blib/lib/Template/Plugin/HTML/2Text.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	30	66.6

# Template::Plugin::HTML::2Text
#
# DESCRIPTION
#   Wrapper around HTML::FormatText::Html2text module
#
# AUTHOR
#   Dalibor Horinek
#   http://www.travelcook.com/
#
# COPYRIGHT
#   Copyright (C) 2012 Dalibor Horinek. All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
package Template::Plugin::HTML::2Text;

use strict;
use vars qw( $VERSION );
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );
use HTML::FormatText::Html2text;

our $VERSION = '0.1';
my $parser = new HTML::FormatText::Html2text;

sub init {
	my $self = shift;
	$self->{_DYNAMIC} = 1;
	$self->install_filter( "html2text" );
	return $self;
}

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

	return $parser->format_string($text)
}

1;

__END__