The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
12345678910 #!/usr/bin/env perluse strict;use warnings;use Test::More tests => 1;use Data::FormValidator;my ( $valid, $missing, $invalid, $unknown ) = Data::FormValidator->validate( {}, {} );ok( ( ref $invalid eq 'ARRAY' ), "no invalid fields are returned as an arrayref" );
#!/usr/bin/env perl
use
strict;
warnings;
Test::More
tests
=> 1;
Data::FormValidator;
my
(
$valid
,
$missing
$invalid
$unknown
) =
Data::FormValidator->validate( {}, {} );
ok( (
ref
eq
'ARRAY'
),
"no invalid fields are returned as an arrayref"
);