view release on metacpan or  search on metacpan

t/form.t  view on Meta::CPAN

</form>
EOT

is( @f, 2 );
ok( $f[0]->find_input("s") );
ok( $f[1]->find_input("t") );

$f = HTML::Form->parse( <<EOT, "http://www.example.com" );
<form  ACTION="http://example.com/">
  <fieldset>
    <legend>Radio Buttons with Labels</legend>
    <label>
      <input type=radio name=r0 value=0 />zero
    </label>
    <label>one
      <input type=radio name=r1 value=1>
    </label>
    <label for="r2">two</label>
    <input type=radio name=r2 id=r2 value=2>
    <label>
      <span>nested</span>