File Coverage

blib/lib/Text/Trac.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	7	8	87.5
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	46	47	97.8

package Text::Trac;

use strict;
use warnings;

use 5.006;
use Text::Trac::Context;
use Text::Trac::BlockNode;

our $VERSION = '0.23';

my %Defaults = (
	html              => '',
	permalink         => '',
	min_heading_level => 1,
	class             => 1,
	id                => 1,
	span              => 1,
);

sub new {
	my ( $class, %args ) = @_;

	my $self = { %Defaults, %args, };

	bless $self, $class;
}

sub parse {
	my $self = shift;
	my $text = shift or return;

	$self->{trac_url} = '/' unless defined $self->{trac_url};
	for ( keys %$self ) {
		if ( $_ =~ /^trac.+url$/ ) {
			$self->{$_} .= '/' if $self->{$_} !~ m!/$!;
		}
	}

	my $c = Text::Trac::Context->new(
		{
			%$self, text => $text,
		}
	);

	my $node = Text::Trac::BlockNode->new(
		{
			context => $c,
		}
	);
	$node->parse;

	$self->{html} = $c->html;
}

sub html { $_[0]->{html}; }

*process = \&parse;

1;
__END__