One Hat Cyber Team
Your IP :
216.73.216.36
Server IP :
162.240.179.46
Server :
Linux vps-14493116.nutrivittasaude.com.br 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64
Server Software :
Apache
PHP Version :
8.2.31
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
local
/
share
/
perl5
/
5.32
/
HTML
/
Form
/
Edit File:
ImageInput.pm
package HTML::Form::ImageInput; use strict; use parent 'HTML::Form::SubmitInput'; our $VERSION = '6.12'; # 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__ =pod =encoding UTF-8 =head1 NAME HTML::Form::ImageInput - An HTML form image input element for use with HTML::Form =head1 VERSION version 6.12 =head1 AUTHOR Gisle Aas <gisle@activestate.com> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 1998 by Gisle Aas. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
Simpan