File Coverage

lib/HTML/Object/DOM/Element/OptGroup.pm
Criterion Covered Total %
statement 22 28 78.5
branch 0 4 0.0
condition n/a
subroutine 8 10 80.0
pod 2 2 100.0
total 32 44 72.7


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## HTML Object - ~/lib/HTML/Object/DOM/Element/OptGroup.pm
3             ## Version v0.2.0
4             ## Copyright(c) 2021 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2021/12/23
7             ## Modified 2022/09/18
8             ## All rights reserved
9             ##
10             ##
11             ## This program is free software; you can redistribute it and/or modify it
12             ## under the same terms as Perl itself.
13             ##----------------------------------------------------------------------------
14             package HTML::Object::DOM::Element::OptGroup;
15             BEGIN
16             {
17 1     1   984 use strict;
  1         2  
  1         29  
18 1     1   5 use warnings;
  1         2  
  1         29  
19 1     1   7 use parent qw( HTML::Object::DOM::Element );
  1         2  
  1         4  
20 1     1   61 use vars qw( $VERSION );
  1         1  
  1         39  
21 1     1   5 use HTML::Object::DOM::Element::Shared qw( :optgroup );
  1         1  
  1         93  
22 1     1   18 our $VERSION = 'v0.2.0';
23             };
24              
25 1     1   5 use strict;
  1         8  
  1         17  
26 1     1   9 use warnings;
  1         2  
  1         123  
27              
28             sub init
29             {
30 0     0 1   my $self = shift( @_ );
31 0           $self->{_init_strict_use_sub} = 1;
32 0 0         $self->SUPER::init( @_ ) || return( $self->pass_error );
33 0 0         $self->{tag} = 'optgroup' if( !CORE::length( "$self->{tag}" ) );
34 0           return( $self );
35             }
36              
37             # Note: property disabled inherited
38              
39             # Note: property label
40 0     0 1   sub label : lvalue { return( shift->_set_get_property( 'label', @_ ) ); }
41              
42             1;
43             # NOTE: POD
44             __END__
45              
46             =encoding utf-8
47              
48             =head1 NAME
49              
50             HTML::Object::DOM::Element::OptGroup - HTML Object DOM OptGroup Class
51              
52             =head1 SYNOPSIS
53              
54             use HTML::Object::DOM::Element::OptGroup;
55             my $group = HTML::Object::DOM::Element::OptGroup->new ||
56             die( HTML::Object::DOM::Element::OptGroup->error, "\n" );
57              
58             =head1 VERSION
59              
60             v0.2.0
61              
62             =head1 DESCRIPTION
63              
64             This interface provides special properties and methods (beyond the regular L<HTML::Object::Element> object interface they also have available to them by inheritance) for manipulating the layout and presentation of C<<optgroup>> elements.
65              
66             =head1 INHERITANCE
67              
68             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +--------------------------------------+
69             | HTML::Object::Element | --> | HTML::Object::EventTarget | --> | HTML::Object::DOM::Node | --> | HTML::Object::DOM::Element | --> | HTML::Object::DOM::Element::OptGroup |
70             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +--------------------------------------+
71              
72             =head1 PROPERTIES
73              
74             Inherits properties from its parent L<HTML::Object::DOM::Element>
75              
76             =head2 disabled
77              
78             Is a boolean value representing whether or not the whole list of children C<<option>> is disabled (true) or not (false).
79              
80             See also L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement/disabled>
81              
82             =head2 label
83              
84             Is a string representing the label for the group.
85              
86             See also L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement/label>
87              
88             =head1 METHODS
89              
90             Inherits methods from its parent L<HTML::Object::DOM::Element>
91              
92             =head1 AUTHOR
93              
94             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
95              
96             =head1 SEE ALSO
97              
98             L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement>, L<Mozilla documentation on optgroup element|https://developer.mozilla.org/en-US/docs/Web/HTML/Element/optgroup>
99              
100             =head1 COPYRIGHT & LICENSE
101              
102             Copyright(c) 2021 DEGUEST Pte. Ltd.
103              
104             All rights reserved
105              
106             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
107              
108             =cut