File Coverage

lib/Brownie/Node/SeleniumServer.pm

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	10	0.0
condition	0	6	0.0
subroutine	3	14	21.4
pod	11	11	100.0
total	23	75	30.6

package Brownie::Node::SeleniumServer;

use strict;
use warnings;
use parent 'Brownie::Node';

sub attr {
    my ($self, $name) = @_;
    return $self->native->get_attribute($name);
}

sub value {
    my $self = shift;
    return $self->native->get_value;
}

sub text {
    my $self = shift;
    return $self->native->get_text;
}

sub tag_name {
    my $self = shift;
    return lc $self->native->get_tag_name;
}

sub is_displayed {
    my $self = shift;
    return $self->native->is_displayed;
}

sub is_selected {
    my $self = shift;
    return $self->native->is_selected;
}

sub is_checked {
    my $self = shift;
    return $self->native->is_selected;
}

sub set {
    my ($self, $value) = @_;

    if ($self->tag_name eq 'input' and $self->type =~ /(?:checkbox|radio)/) {
        $self->select;
    }
    elsif ($self->tag_name eq 'input' or $self->tag_name eq 'textarea') {
        $self->native->clear if $self->type ne 'file';
        $self->native->send_keys($value);
    }
}

sub select {
    my $self = shift;
    $self->click unless $self->is_selected;
}

sub unselect {
    my $self = shift;
    # TODO: check if multiple select options
    $self->click if $self->is_selected;
}

sub click {
    my $self = shift;
    $self->native->click;
}

1;

=head1 NAME

Brownie::Node::SeleniumServer

=head1 METHODS

=over 4

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=item * C

=back

=head1 AUTHOR

NAKAGAWA Masaki [e-mail]

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L, L

=cut