# SUSE's openQA tests
#
# Copyright © 2020 SUSE LLC
#
# Copying and distribution of this file, with or without modification,
# are permitted in any medium without royalty provided the copyright
# notice and this notice are preserved. This file is offered as-is,
# without any warranty.
# Maintainer: QE YaST <qa-sle-yast@suse.de>
package
YuiRestClient::Widget::Textbox;
use
strict;
use
warnings;
sub
set {
my
(
$self
,
$value
) =
@_
;
return
$self
->action(
action
=> YuiRestClient::Action::YUI_ENTER_TEXT,
value
=>
$value
);
}
sub
value {
my
(
$self
) =
@_
;
return
$self
->property(
'value'
);
}
1;