File Coverage

blib/lib/Text/Trac/Macro.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	2	50.0
total	41	43	95.3

package Text::Trac::Macro;
use strict;
use warnings;

use base qw(Text::Trac::InlineNode Class::Accessor::Fast);
use UNIVERSAL::require;
use Text::ParseWords qw(quotewords);

our $VERSION = '0.24';

__PACKAGE__->mk_accessors('pattern');

sub new {
	my $class = shift;
	my $self  = {};
	bless $self, $class;
	return $self;
}

sub parse {
	my ( $self, $name, $args, $match ) = @_;
	my $c = $self->{context};

	my @args = $args ? quotewords( ',\s*', 0, $args ) : ();
	s/^\s+|\s+$//g for @args;

	foreach my $class ( "Text::Trac::Macro::$name", $name ) {
		if ( $class->require ) {
			$match = $class->process( $c, @args ) || '';
			last;
		}
	}

	return $match;
}

1;