HTML-Object

 view release on metacpan or  search on metacpan

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

Example:

    <input placeholder="Enter some text" name="name" />
    <p id="values"></p>

    my $input = $doc->querySelector('input');
    my $log = $doc->getElementById('values');

    $input->addEventListener( input => \&updateValue );

    sub updateValue
    {
        my $e = shift( @_ );
        $log->textContent = $e->target->value;
    }

See also L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement/input_event>

=head2 invalid

Fired when an element does not satisfy its constraints during constraint validation. Also available via the oninvalid event handler property.

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

Example:

    <input placeholder="Enter some text" name="name"/>
    <p id="values"></p>

    my $input = $doc->querySelector('$input');
    my $log = $doc->getElementById('values');

    $input->addEventListener( input => \&updateValue );

    sub updateValue
    {
        my $e = shift( @_ );
        $log->textContent = $e->target->value;
    }

See also L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement/input_event>

=head2 selectionchange

Under perl, this does not do anything of course, but you can fire yourself the event.

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

Getting a video element's text track list:

    my $textTracks = $doc->querySelector( 'video' )->textTracks;

Monitoring track count changes:

    $textTracks->onaddtrack = \&updateTrackCount;
    $textTracks->onremovetrack = \&updateTrackCount;

    sub updateTrackCount
    {
        my $event = shift( @_ );
        my $trackCount = $textTracks->length;
        drawTrackCountIndicator( $trackCount );
    }

=head1 VERSION

    v0.2.0

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

sub statusbar { return; }

sub stop { return; }

# Note: property toolbar read-only
sub toolbar { return; }

# Note: property top read-only
sub top : lvalue { return( shift->_set_get_object_lvalue( 'top', 'HTML::Object::DOM::Window', @_ ) ); }

sub updateCommands { return; }

# Note: property visualViewport read-only
sub visualViewport : lvalue { return( shift->_set_get_number( 'visualviewport', @_ ) ); }

# Note: property window read-only
sub window { return( shift( @_ ) ); }

sub is_property { return( scalar( grep( /^$_[1]$/i, @LVALUE_METHODS ) ) ); }

1;

lib/HTML/Object/TokenList.pm  view on Meta::CPAN

    {
        $self->items->push( $token );
        $rv = $self->true;
    }
    $self->_reset;
    return( $rv );
}

sub tokens { return( shift->_set_get_scalar_as_object( 'tokens', @_ ) ); }

sub update
{
    my $self = shift( @_ );
    if( scalar( @_ ) )
    {
        if( scalar( @_ ) == 1 && !defined( $_[0] ) )
        {
            $self->tokens->reset;
            $self->items->reset;
        }
        else

 view all matches for this distribution
 view release on metacpan -  search on metacpan