HTML-DOM

 view release on metacpan or  search on metacpan

lib/HTML/DOM/Element.pm  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
body   => '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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
=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

582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
        is_deeply [$elem->form], [], 'fieldset->form when there isn’t one';
        $form->appendChild($elem);
        is $elem->form, $form, 'fieldset->form';
}
 
# -------------------------#
use tests 9; # HTMLLegendElement
 
{
        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 -;
}
 
# -------------------------#
use tests 7; # HTML::DOM::Collection::Elements

t/html-form.t  view on Meta::CPAN

522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
EOT
 
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];
<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>

t/mutation-events.t  view on Meta::CPAN

1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
[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 ]],
[      => 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 )