File Coverage

lib/HTML/Object/DOM/Element/Quote.pm
Criterion Covered Total %
statement 19 24 79.1
branch 0 2 0.0
condition n/a
subroutine 7 9 77.7
pod 2 2 100.0
total 28 37 75.6


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## HTML Object - ~/lib/HTML/Object/DOM/Element/Quote.pm
3             ## Version v0.2.0
4             ## Copyright(c) 2021 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2021/12/28
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::Quote;
15             BEGIN
16             {
17 1     1   972 use strict;
  1         1  
  1         29  
18 1     1   4 use warnings;
  1         2  
  1         28  
19 1     1   4 use parent qw( HTML::Object::DOM::Element );
  1         2  
  1         4  
20 1     1   73 use vars qw( $VERSION );
  1         2  
  1         44  
21 1     1   28 our $VERSION = 'v0.2.0';
22             };
23              
24 1     1   7 use strict;
  1         1  
  1         19  
25 1     1   9 use warnings;
  1         1  
  1         131  
26              
27             sub init
28             {
29 0     0 1   my $self = shift( @_ );
30 0           $self->{_init_strict_use_sub} = 1;
31 0 0         $self->SUPER::init( @_ ) || return( $self->pass_error );
32 0           return( $self );
33             }
34              
35             # Note: property cite
36 0     0 1   sub cite : lvalue { return( shift->_set_get_property({ attribute => 'cite', is_uri => 1 }, @_ ) ); }
37              
38             1;
39             # NOTE: POD
40             __END__
41              
42             =encoding utf-8
43              
44             =head1 NAME
45              
46             HTML::Object::DOM::Element::Quote - HTML Object DOM Blockquote Class
47              
48             =head1 SYNOPSIS
49              
50             use HTML::Object::DOM::Element::Quote;
51             my $quote = HTML::Object::DOM::Element::Quote->new ||
52             die( HTML::Object::DOM::Element::Quote->error, "\n" );
53              
54             =head1 VERSION
55              
56             v0.2.0
57              
58             =head1 DESCRIPTION
59              
60             This interface provides special properties and methods (beyond the regular L<HTML::Object::Element> interface it also has available to it by inheritance) for manipulating quoting elements, like C<<blockquote>> and C<<q>>, but not the C<<cite>> element.
61              
62             =head1 INHERITANCE
63              
64             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +-----------------------------------+
65             | HTML::Object::Element | --> | HTML::Object::EventTarget | --> | HTML::Object::DOM::Node | --> | HTML::Object::DOM::Element | --> | HTML::Object::DOM::Element::Quote |
66             +-----------------------+ +---------------------------+ +-------------------------+ +----------------------------+ +-----------------------------------+
67              
68             =head1 PROPERTIES
69              
70             Inherits properties from its parent L<HTML::Object::DOM::Element>
71              
72             =head2 cite
73              
74             Is a string reflecting the cite HTML attribute, containing a URL for the source of the quotation. You can set or get an L<URI> with this method.
75              
76             See also L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement/cite>
77              
78             =head1 METHODS
79              
80             Inherits methods from its parent L<HTML::Object::DOM::Element>
81              
82             =head1 AUTHOR
83              
84             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
85              
86             =head1 SEE ALSO
87              
88             L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement>, L<Mozilla documentation on blockquote element|https://developer.mozilla.org/en-US/docs/Web/HTML/Element/blockquote>
89              
90             =head1 COPYRIGHT & LICENSE
91              
92             Copyright(c) 2021 DEGUEST Pte. Ltd.
93              
94             All rights reserved
95              
96             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
97              
98             =cut