File Coverage

blib/lib/Kwiki/HanConvert.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::HanConvert;
use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';
use Encode::HanConvert qw(simple trad);
our $VERSION = '0.01';

const class_id => 'han_convert';
const cgi_class => 'Kwiki::HanConvert::CGI';

sub register {
    my $registry = shift;
    $registry->add(hook => 'display:display', post => 'convert');
    $registry->add(toolbar => 'han_convert_button',
                   template => 'han_convert_button.html');
}

sub convert {
    my $hook = pop;
    my $display = $self;
    $self = $display->hub->load_class('han_convert');
    my ($page_content) = $hook->returned;
    my $ret;
    if($self->cgi->mode eq 'trad') {
        $ret = trad($page_content);
    } elsif($self->cgi->mode eq 'simp') {
        $ret = simple($page_content);
    } else {
        $ret = $page_content;
    }
    return $ret;
}

package Kwiki::HanConvert::CGI;
use base 'Kwiki::CGI';
cgi mode => qw(-utf8);

package Kwiki::HanConvert;

__DATA__