Group
Extension

Net-Kubernetes/lib/Net/Kubernetes/Resource/Role/State.pm

package Net::Kubernetes::Resource::Role::State;
$Net::Kubernetes::Resource::Role::State::VERSION = '1.08';
# ABSTRACT: Resource role for types that have a status

use Moose::Role;

has status => (
    is       => 'rw',
    isa      => 'HashRef',
    required => 1
);


sub refresh {
    my ($self) = @_;
    my ($res) = $self->ua->request($self->create_request(GET => $self->path));
    if ($res->is_success) {
        my ($data) = $self->json->decode($res->content);
        $self->status($data->{status});
        return 1;
    }
    return 0;
}

return 42;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::Kubernetes::Resource::Role::State - Resource role for types that have a status

=head1 VERSION

version 1.08

=head2 refresh

Retrieve current state information from kubernetes.

=head1 AUTHOR

Dave Mueller <dave@perljedi.com>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2015 by Liquid Web Inc.

This is free software, licensed under:

  The MIT (X11) License

=head1 SEE ALSO

Please see those modules/websites for more information related to this module.

=over 4

=item *

L<Net::Kubernetes|Net::Kubernetes>

=back

=cut


Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.