File Coverage

blib/lib/Nephia/Plugin/FillInForm.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	2	3	66.6
total	47	51	92.1

package Nephia::Plugin::FillInForm;
use 5.008005;
use strict;
use warnings;
use parent 'Nephia::Plugin';
use HTML::FillInForm;

our $VERSION = "0.20";

sub new {
    my ($class, %opts) = @_;
    my $self = $class->SUPER::new(%opts);
    $self->app->action_chain->append(FillInForm => $class->can('_fillin'));
    return $self;
}

sub exports { qw/ fillin_form / };

sub fillin_form {
    my ($self, $context) = @_;
    sub {
        my $params = shift;
        $context->set(fillin => $params);
    };
}

sub _fillin {
    my ($app, $context) = @_;
    my $params = $context->get('fillin');
    if ($params) {
        my $res = $context->get('res');
        if (ref($res->body) eq 'ARRAY') {
            my $body = $res->body->[0];
            $res->body->[0] = HTML::FillInForm->fill(\$body, $params);
        }
        else {
            my $body = $res->body;
            $res->body(HTML::FillInForm->fill(\$body, $params));
        }
    }
    return $context;
}

1;
__END__