File Coverage

blib/lib/Weasel/Widgets/Dojo/Select.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	4	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	41	51.2

package Weasel::Widgets::Dojo::Select;

use strict;
use warnings;

use Weasel::Widgets::HTML::Select;
use Weasel::WidgetHandlers qw/ register_widget_handler /;

use Moose;
extends 'Weasel::Widgets::HTML::Select';

register_widget_handler(__PACKAGE__, 'Dojo',
                        tag_name => 'table',
                        classes => [ 'dijitSelect' ],
                        attributes => {
                            role => 'listbox',
                        },
    );


sub _option_popup {
    my ($self) = @_;
    my $id = $self->get_attribute('id');
    my $page = $self->session->page;

    my @rv = $page->find_all("//div[\@dijitpopupparent='$id']");

    if (! @rv) { # no elements returned, while we expect one; create the popup
        # make sure the popup gets created by clicking twice (pop up+pop down)
        $self->click;
        # wait until the popup has been created!
        $page->find("//div[\@dijitpopupparent='$id']");
        $self->click; # hide the popup again

        @rv = $page->find_all("//div[\@dijitpopupparent='$id']");
    }

    return (shift @rv);
}

sub get_attribute {
    my ($self, $name) = @_;

    if ($name eq 'value') {
        return $self->find('.//input[@type="hidden"
                                                            and @data-dojo-attach-point="valueNode"]')
            ->get_attribute('value');
    }
    else {
        return $self->SUPER::get_attribute($name);
    }
}

1;