File Coverage

blib/lib/Template/Plugin/HTML/BBCode.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	6	0.0
condition	0	5	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	45	44.4

#============================================================= -*-Perl-*-
#
# Template::Plugin::HTML::BBCode
#
# DESCRIPTION
#   Wrapper around HTML::BBCode module
#
# AUTHOR
#   Igor Lobanov
#   http://www.template-toolkit.ru/
#
# COPYRIGHT
#   Copyright (C) 2005 Igor Lobanov.  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::BBCode;

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

$VERSION = sprintf("%d.%02d", q$Revision: 0.01 $ =~ /(\d+)\.(\d+)/);

# Filter name
my $DEFAULT_FILTER_NAME = 'bbcode';

# Internal hash with parsers
my $PARSERS = {};

# init defines filter name (first positional argument)
sub init {
	my $self = shift;
	$self->{_DYNAMIC} = 1;
	$self->install_filter( $self->{_ARGS}->[0] || $DEFAULT_FILTER_NAME );
	return $self;
}

sub filter {
	my ( $self, $text, undef, $conf ) = @_;
	$conf = $self->merge_config( $conf ) || {};
	# Create single BBCode object for each set of parameters - $pset
	my $pset = join('', map {
		(ref($_) eq 'HASH') ? join('', %$_) : (ref($_) eq 'ARRAY') ? join('', @$_) : $_
	} %$conf);
	my $parser = (exists $PARSERS->{$pset}) ? $PARSERS->{$pset} : $PARSERS->{$pset} = HTML::BBCode->new( $conf );
	return $parser->parse( $text );
}

1;

__END__