File Coverage

blib/lib/HTML/Form/ImageInput.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	3	3	100.0
pod	0	1	0.0
total	22	26	84.6

package HTML::Form::ImageInput;

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

our $VERSION = '6.13';

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

sub form_name_value {
    my $self    = shift;
    my $clicked = $self->{clicked};
    return unless $clicked;
    return if $self->{disabled};
    my $name = $self->{name};
    $name = ( defined($name) && length($name) ) ? "$name." : "";
    return (
        "${name}x" => $clicked->[0],
        "${name}y" => $clicked->[1]
    );
}

1;

__END__