Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
1234567891011121314 use strict;use warnings FATAL => 'all';package HTML::Tested::Value::Upload;use base 'HTML::Tested::Value';sub value_to_string { my ($self, $name, $val) = @_; return <<ENDS<input type="file" id="$name" name="$name" />ENDS}1;
use
strict;
warnings
FATAL
=>
'all'
;
package
HTML::Tested::Value::Upload;
base
'HTML::Tested::Value'
sub
value_to_string {
my
(
$self
,
$name
$val
) =
@_
return
<<ENDS
<input type="file" id="$name" name="$name" />
ENDS
}
1;