File Coverage

blib/lib/Amon2/Plugin/Web/FillInForm.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	9	55.5
pod	0	1	0.0
total	20	48	41.6

package Amon2::Plugin::Web::FillInForm;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.02';

use HTML::FillInForm;

sub init {
    my ($class, $c, $conf) = @_;

    no strict 'refs';

    my $klass = ref $c || $c;
    *{"$klass\::fillin_form"} = \&_fillin_form2;

    my $response_class = ref $c->create_response();
    *{"$response_class\::fillin_form"} = \&_fillin_form;
}

sub _fillin_form2 {
    my ($self, @stuff) = @_;
    $self->add_trigger(
        'HTML_FILTER' => sub {
            my ($c, $html) = @_;
            return HTML::FillInForm->fill(\$html, @stuff);
        },
    );
}

# DEPRECATED interface
sub _fillin_form {
    my ($self, @stuff) = @_;

    Carp::cluck("\$res->fillin_form() was deprecated. Use \$c->fillin_form(\$stuff) instead.");

    my $html = $self->body();
    my $output = HTML::FillInForm->fill(\$html, @stuff);
    $self->body($output);
    $self->header('Content-Length' => length($output)) if $self->header('Content-Length');
    return $self;
}



1;
__END__