#!perl use strict; use warnings; use Test::More tests => 5; use HTML::DisableForm; my $df = HTML::DisableForm->new; my $html = < foobar

abcdefg

EOF my $output = $df->readonly_form( scalarref => \$html ); ok $output; my $p = HTML::Parser->new(api_version => 3); $p->handler(start => \&handle_start, "self, tagname, attr"); $p->parse($output); sub handle_start { my ($p, $tagname, $attr) = @_; if ($tagname eq 'input' or $tagname eq 'textarea') { ok $attr->{readonly}; $p->{readonly_count}++ if $attr->{readonly}; } } is $p->{readonly_count}, 3;