File Coverage

lib/HTML/Object/DOM/Element/Directory.pm
Criterion Covered Total %
statement 22 27 81.4
branch 0 4 0.0
condition n/a
subroutine 8 9 88.8
pod 1 1 100.0
total 31 41 75.6


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## HTML Object - ~/lib/HTML/Object/DOM/Element/Directory.pm
3             ## Version v0.2.0
4             ## Copyright(c) 2022 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2022/01/06
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::Directory;
15             BEGIN
16             {
17 1     1   989 use strict;
  1         2  
  1         29  
18 1     1   14 use warnings;
  1         8  
  1         27  
19 1     1   5 use parent qw( HTML::Object::DOM::Element );
  1         2  
  1         4  
20 1     1   60 use vars qw( $VERSION );
  1         1  
  1         63  
21 1     1   7 use HTML::Object::DOM::Element::Shared qw( :dir );
  1         2  
  1         113  
22 1     1   34 our $VERSION = 'v0.2.0';
23             };
24              
25 1     1   6 use strict;
  1         2  
  1         19  
26 1     1   4 use warnings;
  1         2  
  1         125  
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} = 'dir' if( !CORE::length( "$self->{tag}" ) );
34 0           return( $self );
35             }
36              
37             # property compact is inherited
38              
39             1;
40             # NOTE: POD
41             __END__
42              
43             =encoding utf-8
44              
45             =head1 NAME
46              
47             HTML::Object::DOM::Element::Directory - HTML Object DOM Directory Class
48              
49             =head1 SYNOPSIS
50              
51             use HTML::Object::DOM::Element::Directory;
52             my $dir = HTML::Object::DOM::Element::Directory->new ||
53             die( HTML::Object::DOM::Element::Directory->error, "\n" );
54              
55             =head1 VERSION
56              
57             v0.2.0
58              
59             =head1 DESCRIPTION
60              
61             This interface provides special properties (beyond the L<HTML::Object::Element> object interface it also has available to it by inheritance) to manipulate C<directory> elements and their content.
62              
63             =head1 INHERITANCE
64              
65             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +---------------------------------------+
66             | HTML::Object::Element | --> | HTML::Object::EventTarget | --> | HTML::Object::DOM::Node | --> | HTML::Object::DOM::Element | --> | HTML::Object::DOM::Element::Directory |
67             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +---------------------------------------+
68              
69             =head1 PROPERTIES
70              
71             Inherits properties from its parent L<HTML::Object::DOM::Element>
72              
73             =head2 compact
74              
75             This boolean HTML attribute hints that the list should be rendered in a compact style. The interpretation of this attribute depends on the user agent and it does not work in all browsers.
76              
77             =head1 METHODS
78              
79             Inherits methods from its parent L<HTML::Object::DOM::Element>
80              
81             =head1 AUTHOR
82              
83             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
84              
85             =head1 SEE ALSO
86              
87             L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement>, L<Mozilla documentation on directory element|https://developer.mozilla.org/en-US/docs/Web/HTML/Element/dir>
88              
89             =head1 COPYRIGHT & LICENSE
90              
91             Copyright(c) 2022 DEGUEST Pte. Ltd.
92              
93             All rights reserved
94              
95             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
96              
97             =cut