HTML-DOM
view release on metacpan or search on metacpan
lib/HTML/DOM/Element.pm view on Meta::CPAN
404142434445464748495051525354555657585960body
=>
'HTML::DOM::Element::Body'
,
form
=>
'HTML::DOM::Element::Form'
,
select
=>
'HTML::DOM::Element::Select'
,
optgroup
=>
'HTML::DOM::Element::OptGroup'
,
option
=>
'HTML::DOM::Element::Option'
,
input
=>
'HTML::DOM::Element::Input'
,
textarea
=>
'HTML::DOM::Element::TextArea'
,
button
=>
'HTML::DOM::Element::Button'
,
label
=>
'HTML::DOM::Element::Label'
,
fieldset
=>
'HTML::DOM::Element::FieldSet'
,
legend
=>
'HTML::DOM::Element::Legend'
,
ul
=>
'HTML::DOM::Element::UL'
,
ol
=>
'HTML::DOM::Element::OL'
,
dl
=>
'HTML::DOM::Element::DL'
,
dir
=>
'HTML::DOM::Element::Dir'
,
menu
=>
'HTML::DOM::Element::Menu'
,
li
=>
'HTML::DOM::Element::LI'
,
div
=>
'HTML::DOM::Element::Div'
,
p
=>
'HTML::DOM::Element::P'
,
map
((
"h$_"
=>
'HTML::DOM::Element::Heading'
lib/HTML/DOM/Element/Legend.pod view on Meta::CPAN
123456789101112131415161718192021222324252627282930313233=head1 NAME
HTML::DOM::Element::Legend - A Perl class for representing 'legend' elements in an HTML DOM tree
=head1 VERSION
Version 0.054
=head1 SYNOPSIS
use HTML::DOM;
$doc = HTML::DOM->new;
$elem = $doc->createElement('legend');
$elem->align('right') # set attribute
$elem->form; # get attribute
$elem->tagName;
# etc.
=head1 DESCRIPTION
This class implements 'legend' elements in an HTML::DOM tree. It
implements the HTMLLegendElement DOM interface and inherits from
L<HTML::DOM::Element> (q.v.).
=head1 METHODS
In addition to those inherited from HTML::DOM::Element and its
superclasses, this class implements the following DOM methods (see the DOM
spec. for descriptions):
=over 4
t/form-element.t view on Meta::CPAN
582583584585586587588589590591592593594595596597598599600601602603604605606607
is_deeply [
$elem
->form], [],
'fieldset->form when there isn’t one'
;
$form
->appendChild(
$elem
);
is
$elem
->form,
$form
,
'fieldset->form'
;
}
# -------------------------#
{
is
ref
(
my
$elem
=
$doc
->createElement(
'legend'
),
),
'HTML::DOM::Element::Legend'
,
"class for legend"
;
is_deeply [
$elem
->form], [],
'legend->form when there isn’t one'
;
$form
->appendChild(
$elem
);
is
$elem
->form,
$form
,
'legend->form'
;
$elem
->attr(
accesskey
=>
'F'
);
$elem
->attr(
align
=>
'LEFT'
);
test_attr
$elem
,
qw-accessKey F G -
;
test_attr
$elem
,
qw-align left right -
;
}
# -------------------------#
t/html-form.t view on Meta::CPAN
522523524525526527528529530531532533534535536537538539540541542EOT
is(
@f
, 2);
ok(
$f
[0]->find_input(
"s"
));
ok(
$f
[1]->find_input(
"t"
));
SKIP: { skip
'not supported (?)'
, 5;
$doc
->
write
(<<
'EOT'
);
$doc
->
close
;
$f
= (
$doc
->forms)[0];
<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>
t/mutation-events.t view on Meta::CPAN
108610871088108910901091109210931094109510961097109810991100110111021103110411051106[
form
=>
qw[ name action enctype method target
acceptCharset]
],
[
select
=>
qw[ name size tabIndex ]
],
[
optgroup
=>
qw[ label ]
],
[
option
=>
qw[ label ]
],
[
input
=>
qw[ accept accessKey align alt maxLength name
size src tabIndex type useMap ]
],
[
textarea
=>
qw[ accessKey cols name rows tabIndex ]
],
[
button
=>
qw[ accessKey name tabIndex ]
],
[
label
=>
qw[ accessKey htmlFor ]
],
[
legend
=>
qw[ accessKey align ]
],
[
ul
=>
qw[ type ]
],
[
ol
=>
qw[ start type ]
],
[
li
=>
qw[ type value ]
],
[
div
=>
qw[ align ]
],
[
p
=>
qw[ align ]
],
[
h1
=>
qw[ align ]
],
[
q
=>
qw[ cite ]
],
[
pre
=>
qw[ width ]
],
[
br
=>
qw[ clear ]
],
[
basefont
=>
qw[ color face size ]
],
( run in 0.262 second using v1.01-cache-2.11-cpan-bf8d7bb2d05 )