File Coverage

blib/lib/Test/Selenium/Remote/WebElement.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	26	28	92.8

package Test::Selenium::Remote::WebElement;
$Test::Selenium::Remote::WebElement::VERSION = '1.49';
# ABSTRACT: A sub-class of L, with several test-specific method additions.

use Moo;
use Sub::Install;
extends 'Selenium::Remote::WebElement';

=for Pod::Coverage *EVERYTHING*

=cut

# list of test functions to be built

has func_list => (
    is      => 'lazy',
    builder => sub {
        return [
            'clear_ok',        'click_ok',       'send_keys_ok',
            'is_displayed_ok', 'is_enabled_ok',  'is_selected_ok',
            'submit_ok',       'text_is',        'text_isnt',
            'text_like',       'text_unlike',    'attribute_is',
            'attribute_isnt',  'attribute_like', 'attribute_unlike',
            'value_is',        'value_isnt',     'value_like',
            'value_unlike',    'tag_name_is',    'tag_name_isnt',
            'tag_name_like',   'tag_name_unlike'
        ];
    }
);

with 'Test::Selenium::Remote::Role::DoesTesting';

# helper so we could specify the num of args a method takes (if any)

sub has_args {
    my $self          = shift;
    my $fun_name      = shift;
    my $hash_fun_args = {
        'get_attribute' => 1,
        'send_keys'     => 1,
    };
    return ( $hash_fun_args->{$fun_name} // 0 );
}

# install the test methods into the class namespace

sub BUILD {
    my $self = shift;
    foreach my $method_name ( @{ $self->func_list } ) {
        unless ( defined( __PACKAGE__->can($method_name) ) ) {
            my $sub = $self->_build_sub($method_name);
            Sub::Install::install_sub(
                {
                    code => $sub,
                    into => __PACKAGE__,
                    as   => $method_name
                }
            );
        }
    }
}

1;

__END__