File Coverage

blib/lib/Template/Plugin/VimColor.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

#$Id:$
package Template::Plugin::VimColor;
use strict;
use warnings;

use base qw (Template::Plugin::Filter);
use Text::VimColor;

our $VERSION = 0.01;

sub init {
    my $self = shift;
    $self->{_DYNAMIC} = 1;
    $self->install_filter($self->{_ARGS}->[0] || 'vimcolor');
    $self;
}

sub filter {
    my ($self, $text, $args, $config) = @_;
    my $filetype = delete $config->{filetype} || 'perl';
    my $syntax = Text::VimColor->new(
        string   => \$text,
        filetype => $filetype,
        %$config,
    );

    my $output = $syntax->html;
    $output = _numbered(\$output) if $config->{set_number};
    return $output;
}

sub _numbered {
    my $textref = shift;
    my $ret = '';
    my $cur_line = 0;
    $ret .= sprintf qq{%5d %s\n}, ++$cur_line, $_
        for split /(?:\r\n|\r|\n)/, $$textref;
    $ret;
}

1;
__END__