view release on metacpan or  search on metacpan

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

##----------------------------------------------------------------------------
## HTML Object - ~/lib/HTML/Object/DOM/Element/Shared.pm
## Version v0.2.0
## Copyright(c) 2021 DEGUEST Pte. Ltd.
## Author: Jacques Deguest <jack@deguest.jp>
## Created 2021/12/25
## Modified 2022/09/18
## All rights reserved
## 
## 
## This program is free software; you can redistribute  it  and/or  modify  it
## under the same terms as Perl itself.
##----------------------------------------------------------------------------
package HTML::Object::DOM::Element::Shared;
BEGIN
{
    use strict;
    use warnings;
    warnings::register_categories( 'HTML::Object' );
    use vars qw( @EXPORT_OK %EXPORT_TAGS $VERSION );
    use Exporter qw( import );
    our @EXPORT_OK = qw(
        accept accessKey align allowdirs alt autocapitalize autocomplete autofocus checked checkValidity compact crossOrigin currentSrc defaultChecked defaultValue dirName disabled download files form formAction formEnctype formMethod formNoValidate ...
    );
    our %EXPORT_TAGS = (
        anchor  => [qw( download hash host hostname href hreflang origin password pathname port protocol referrerPolicy rel relList search target username )],
        area    => [qw( accessKey alt download hash host hostname href hreflang origin password pathname port protocol referrerPolicy rel relList search target username )],
        base    => [qw( href target )],
        button  => [qw(
            form formAction formEnctype formMethod formNoValidate formTarget
            accessKey autofocus disabled form labels name type validationMessage validity value willValidate
        )],
        canvas  => [qw( height width )],
        caption => [qw( align )],
        dir     => [qw( compact )],
        div     => [qw( align )],
        dl      => [qw( compact )],
        embed   => [qw( align height name src width )],
        fencedframe    => [qw( height width )],
        fieldset    => [qw( disabled checkValidity form name reportValidity setCustomValidity validationMessage validity willValidate )],
        form    => [qw(
            accept autocapitalize autocomplete name
            
            checkValidity reportValidity
        )],
        heading => [qw( align )],
        hr      => [qw( align size width )],
        iframe  => [qw( align height name referrerPolicy src width )],
        img     => [qw( alt crossOrigin currentSrc height referrerPolicy src useMap width )],
        input   => [qw(
            accept accessKey align allowdirs alt autocapitalize autocomplete autofocus checked 
            defaultChecked defaultValue dirName disabled files form 
            formAction formEnctype formMethod formNoValidate formTarget height indeterminate 
            inputmode labels list max maxLength min minLength multiple name pattern placeholder 
            readOnly required selectionDirection selectionEnd selectionStart size src step 
            type useMap validationMessage validity value valueAsDate valueAsNumber 
            webkitEntries webkitdirectory width willValidate
        )],
        label   => [qw( form )],
        legend  => [qw( accessKey align form )],
        li      => [qw( type value )],
        'link'  => [qw( crossOrigin disabled href hreflang referrerPolicy rel relList type )],
        'map'   => [qw( name )],
        marquee => [qw( height width )],
        media   => [qw( crossOrigin currentSrc src )],
        menu    => [qw( compact type )],
        meter   => [qw( labels max min value )],
        object  => [qw( align checkValidity height name setCustomValidity type useMap validity validationMessage width willValidate )],
        ol      => [qw( compact type )],
        optgroup    => [qw( disabled )],
        option  => [qw( disabled form )],
        output  => [qw( checkValidity form labels setCustomValidity type validity validationMessage value willValidate )],
        paragraph   => [qw( align )],
        param   => [qw( name type value )],
        pre     => [qw( width )],
        progress    => [qw( labels value )],
        script  => [qw( crossOrigin src referrerPolicy type )],
        'select'    => [qw( checkValidity disabled form labels name reportValidity required setCustomValidity type validationMessage validity value willValidate )],
        slot    => [qw( name )],
        source  => [qw( src type )],
        style   => [qw( disabled type )],
        table   => [qw( align width )],
        tablecaption    => [qw( align )],
        tablecell   => [qw( align height width )],
        tablecol    => [qw( align width )],
        tablerow    => [qw( align )],
        tablesection    => [qw( align )],
        track   => [qw( src )],
        ulist   => [qw( compact type )],
        video   => [qw( height width )],
    );
    $EXPORT_TAGS{all} = [@EXPORT_OK];
    our $VERSION = 'v0.2.0';
};

use strict;
use warnings;

# Note: property for input
sub accept : lvalue { return( shift->_set_get_property( 'accept', @_ ) ); }

# Note: property for input
sub accessKey : lvalue { return( shift->_set_get_property( 'accesskey', @_ ) ); }

# Note: property for embed
sub align : lvalue { return( shift->_set_get_property( 'align', @_ ) ); }

# Note: property for input
sub allowdirs : lvalue { return( shift->_set_get_boolean( 'allowdirs', @_ ) ); }

# Note: property for img, input
sub alt : lvalue { return( shift->_set_get_property( 'alt', @_ ) ); }

# Note: property for input
sub autocapitalize : lvalue { return( shift->_set_get_property( 'autocapitalize', @_ ) ); }

# Note: property for input
sub autocomplete : lvalue { return( shift->_set_get_property( 'autocomplete', @_ ) ); }

# Note: property for input