view release on metacpan or  search on metacpan

lib/YuiRestClient/App.pm  view on Meta::CPAN

        widget_controller =>
          YuiRestClient::Http::WidgetController->new($args)
    }, $class;
}

sub get_widget_controller {
    my ($self) = @_;
    return $self->{widget_controller};
}

sub get_port {
    my ($self) = @_;
    return $self->{widget_controller}->{port};
}

sub get_host {
    my ($self) = @_;
    return $self->{widget_controller}->{host};
}

sub set_host {
    my ($self, $host) = @_;
    $self->{widget_controller}->{host} = $host;
}

sub set_port {
    my ($self, $port) = @_;
    $self->{widget_controller}->{port} = $port;
}

sub check_connection {
    my ($self, %args) = @_;
    my $uri = YuiRestClient::Http::HttpClient::compose_uri(
        host => $self->get_host(),
        port => $self->get_port(),
        path => $self->{api_version} . '/widgets');
    YuiRestClient::Wait::wait_until(object => sub {
            my $response = YuiRestClient::Http::HttpClient::http_get($uri);
            return $response->json if $response;
        },
        message => "Connection to YUI REST server failed",
        %args);
}

sub button {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::Button->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub checkbox {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::CheckBox->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub combobox {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::ComboBox->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub itemselector {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::ItemSelector->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub label {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::Label->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub menucollection {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::MenuCollection->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub radiobutton {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::RadioButton->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub richtext {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::RichText->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub selectionbox {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::SelectionBox->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub table {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::Table->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter