@ -49,25 +49,27 @@ sub find_text {
sub select_if_unselected {
sub select_if_unselected {
my ( $ self , $ query , $ scheme ) = @ _ ;
my ( $ self , $ query , $ scheme ) = @ _ ;
$ scheme // = "xpath" ;
$ scheme // = "xpath" ;
try {
my $ elem = $ self - > find_element ( $ query , $ scheme ) ;
my $ elem = $ self - > find_element ( $ query , $ scheme ) ;
return 0 unless $ elem ;
return 0 unless $ elem - > is_displayed ;
if ( ! $ elem - > is_selected ( ) ) {
if ( ! $ elem - > is_selected ( ) ) {
$ elem - > click ;
$ elem - > click ;
}
}
return 1 ;
return 1 ;
} ;
return 0 ;
}
}
sub unselect_if_selected {
sub unselect_if_selected {
my ( $ self , $ query , $ scheme ) = @ _ ;
my ( $ self , $ query , $ scheme ) = @ _ ;
$ scheme // = "xpath" ;
$ scheme // = "xpath" ;
try {
my $ elem = $ self - > find_element ( $ query , $ scheme ) ;
my $ elem = $ self - > find_element ( $ query , $ scheme ) ;
return 0 unless $ elem ;
return 0 unless $ elem - > is_displayed ;
if ( $ elem - > is_selected ( ) ) {
if ( $ elem - > is_selected ( ) ) {
$ elem - > click ;
$ elem - > click ;
}
}
return 1 ;
return 1 ;
} ;
return 0 ;
}
}
sub fill_element {
sub fill_element {