package Net::Kubernetes::Resource::Role::HasPods;
$Net::Kubernetes::Resource::Role::HasPods::VERSION = '1.07';
# ABSTRACT: Resource role for types that may contain pods
use Moose::Role;
with 'Net::Kubernetes::Role::APIAccess';
with 'Net::Kubernetes::Role::ResourceCatalog';
requires 'namespace';
sub get_pods {
my ($self) = @_;
my $uri = URI->new($self->get_resource_path('Pod'));
$uri->query_form(labelSelector => $self->build_selector_from_hash($self->spec->{selector}));
my $res = $self->ua->request($self->create_request(GET => $uri));
if ($res->is_success) {
my $pod_list = $self->json->decode($res->content);
my (@pods) = ();
foreach my $pod (@{$pod_list->{items}}) {
$pod->{apiVersion} = $pod_list->{apiVersion};
my (%create_args) = %$pod;
$create_args{api_version} = $pod->{apiVersion};
$create_args{server_version} = $self->server_version;
$create_args{namespace} = $self->namespace;
$create_args{username} = $self->username if ($self->username);
$create_args{password} = $self->password if ($self->password);
$create_args{url} = $self->url;
$create_args{base_path} = $pod->{metadata}{selfLink};
$create_args{ssl_cert_file} = $self->ssl_cert_file if ($self->ssl_cert_file);
$create_args{ssl_key_file} = $self->ssl_key_file if ($self->ssl_key_file);
$create_args{ssl_ca_file} = $self->ssl_ca_file if ($self->ssl_ca_file);
push @pods, Net::Kubernetes::Resource::Pod->new(%create_args);
}
return wantarray ? @pods : \@pods;
}
else {
Net::Kubernetes::Exception->throw(
code => $res->code,
message => $res->message
);
}
}
return 42;
__END__
=pod
=encoding UTF-8
=head1 NAME
Net::Kubernetes::Resource::Role::HasPods - Resource role for types that may contain pods
=head1 VERSION
version 1.07
=head2 get_pods
retreive a list of pods associated with with respource (either ReplicationController or Service)
=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
=head1 CONSUMES
=over 4
=item * L<Net::Kubernetes::Role::APIAccess>
=item * L<Net::Kubernetes::Role::ResourceCatalog>
=back
=cut