HTML-Form
1 match

 view release on metacpan or  search on metacpan

t/form-multi-select.t  view on Meta::CPAN 

sub base {
    return "http://foo.com";
}

sub content_charset {
    return "iso-8859-1";
}

sub decoded_content {
    my $html = qq{
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title></title>
    </head>
    <body>

    <form name="search_cats">
    <select name="age" onChange="jumpTo(this)" class="sap-form-item">
    <option value="" selected="selected">Any</option>

t/form-multi-select.t  view on Meta::CPAN 

sub new {
    bless {}, shift;
}

sub base {
    return "http://foo.com";
}

sub decoded_content {
    my $html = qq{
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title></title>
    </head>
    <body>
    <form name="search_dogs" >
    <select name="age" onChange="jumpTo(this)" class="sap-form-item">
    <option value="" selected="selected">Any</option>
    <option value="young">Young</option>



( run in 0.544 second using v1.01-cache-2.11-cpan-49f99fa48dc )