File Coverage

blib/lib/Text/Trac/Pre.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	37	42	88.1

package Text::Trac::Pre;

use strict;
use warnings;
use base qw(Text::Trac::BlockNode);

our $VERSION = '0.23';

sub init {
	my $self = shift;
	$self->pattern(qr/^\{\{\{$/xms);
	return $self;
}

sub parse {
	my ( $self, $l ) = @_;
	my $c       = $self->{context};
	my $pattern = $self->pattern;
	$l =~ /$pattern/ or return $l;
	my $match = $1;
	my $class = $c->{class} ? q{ class="wiki"} : '';

	if ( $l =~ /^\{\{\{$/ ) {
		$c->htmllines(qq{});
	}

	while ( $c->hasnext ) {
		my $l = $c->shiftline;
		if ( $l =~ /^\}\}\}$/ ) {
			$c->htmllines('');
			last;
		}
		else {
			$c->htmllines( $self->escape($l) );
		}
	}

	return;
}

1;