File Coverage

blib/lib/Template/Plugin/KwikiFormat.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Template::Plugin::KwikiFormat;
use strict;
use warnings;
use Kwiki;
use Kwiki::Formatter;
use base 'Template::Plugin';
use vars qw($VERSION $FILTER_NAME);

$VERSION = '1.04';
$FILTER_NAME = 'kwiki';

sub new {
    my ($self, $context, @args) = @_;
    my $name = $args[0] || $FILTER_NAME;
    $context->define_filter($name, \&kwiki, 0);
    return $self;
}

use constant USE_CLASS_COMPLIENT => Kwiki->VERSION < 0.38;

my $kwiki;
if (USE_CLASS_COMPLIENT) {
    $kwiki = Kwiki->new;
    $kwiki->load_hub({formatter_class => 'Kwiki::Formatter' });
    $kwiki->use_class('formatter');
}
else {
    $kwiki = Kwiki::Formatter->new;
}

sub kwiki {
    my $text=shift;
    return USE_CLASS_COMPLIENT
        ? $kwiki->formatter->text_to_html($text)
        : $kwiki->text_to_html($text);
}

{
    no warnings;

    sub Kwiki::Formatter::ForcedLink::pattern_start {
	return qr/\[([\w\s\/\.\-]+)\]/;
    }
    sub Kwiki::Formatter::ForcedLink::html {
	my $self=shift;
	my $text = $self->escape_html($self->matched);
	$text=~s/\[|\]//g;
	my @text=split(/\s+/,$text);
	my ($target,@title);
	foreach my $frag (@text) {
	    if ($frag=~m{^\w+://}) {
		$target=$frag;
	    } elsif ($frag=~m{^/}) {
		$target=$frag;
	    } else {
		push(@title,$frag);
	    }
	}
	my $title=join(' ',@title);
	return $title unless $target;

	$title = $target unless $title =~ /\S/;
	return qq($title);
    }

    sub Kwiki::Formatter::WikiLink::html {
	my $self=shift;
	return $self->matched
    }

    sub Kwiki::Formatter::TitledWikiLink::html {
	my $self=shift;
	return $self->matched
    }
}


1;

__END__