File Coverage

blib/lib/HTML/Form/SubmitInput.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	24	27	88.8

package HTML::Form::SubmitInput;

use strict;
use parent 'HTML::Form::Input';

our $VERSION = '6.11';

# ABSTRACT: An HTML form submit input element for use with HTML::Form

#input/image
#input/submit

sub click {
    my ( $self, $form, $x, $y ) = @_;
    for ( $x, $y ) { $_ = 1 unless defined; }
    local ( $self->{clicked} ) = [ $x, $y ];
    local ( $self->{value} )   = "" unless defined $self->value;
    return $form->make_request;
}

sub form_name_value {
    my $self = shift;
    return unless $self->{clicked};
    return $self->SUPER::form_name_value(@_);
}

1;

__END__