Template::Plugin::Hatena - TT plugin for Text::Hatena

Template-Plugin-Hatena documentation Contained in the Template-Plugin-Hatena distribution.

Index

Code Index:

NAME

Top

Template::Plugin::Hatena - TT plugin for Text::Hatena

SYNOPSIS

Top

  [% USE Hatena -%]
  [% FILTER hatena -%]
  * Hello, World!

  - Good Morning
  -- Greetings

  * Farewell

  - Good Bye
  - Thank you
  [%- END %]

DESCRIPTION

Top

Template::Plugin::Hatena is a plugin for TT, which format your text with Hatena Style.

SEE ALSO

Top

Template, Text::Hatena

AUTHOR

Top

Naoya Ito <naoya@bloghackers.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Template-Plugin-Hatena documentation Contained in the Template-Plugin-Hatena distribution. 
package Template::Plugin::Hatena;
use strict;
use base qw (Template::Plugin::Filter);
use Text::Hatena;

our $VERSION = 0.02;

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

sub filter {
    my ($self, $text, $args, $config) = @_;

    if (Text::Hatena->VERSION >= 0.20) {
        Text::Hatena->parse($text)
    } else {
        my $parser = Text::Hatena->new(%$config);
        $parser->parse($text);
        return $parser->html;
    }
}

1;

__END__