File Coverage

blib/lib/WebService/HashiCorp/Vault/Sys.pm

Criterion	Covered	Total	%
statement	6	30	20.0
branch			n/a
condition			n/a
subroutine	2	14	14.2
pod	12	12	100.0
total	20	56	35.7

#!perl
# vim: softtabstop=4 tabstop=4 shiftwidth=4 ft=perl expandtab smarttab
# ABSTRACT: Perl API for HashiCorp's Vault (System)

# See also https://github.com/hashicorp/vault-ruby
# And https://github.com/ianunruh/hvac
# And https://www.vaultproject.io/api/index.html

package WebService::HashiCorp::Vault::Sys;

use Moo;
our $VERSION = '0.01'; # VERSION
use namespace::clean;

extends 'WebService::HashiCorp::Vault::Base';

has '+mount' => ( is => 'ro', default => 'sys' );


#
#            /sys/audit
#


sub audit {
    my $self = shift;
    return $self->get( $self->_mkuri('audit') )
}

#            /sys/audit-hash
#
#
#            /sys/auth


sub auth {
    my $self = shift;
    return $self->get( $self->_mkuri('auth') )
}

#            /sys/capabilities
#
#
#            /sys/capabilities-accessor
#
#
#            /sys/capabilities-self
#
#
#            /sys/config/auditing
#
#
#            /sys/generate-root


sub generate_root {
    my $self = shift;
    return $self->get( $self->_mkuri('generate-root') )
}


sub health {
    my $self = shift;
    return $self->get( $self->_mkuri('health') )
}


sub init {
    my $self = shift;
    return $self->get( $self->_mkuri('init') )
}


sub key_status {
    my $self = shift;
    return $self->get( $self->_mkuri('key-status') )
}


sub leader {
    my $self = shift;
    return $self->get( $self->_mkuri('leader') )
}


sub mounts {
    my $self = shift;
    return $self->get( $self->_mkuri('mounts') )
}


sub policy {
    my $self = shift;
    return $self->get( $self->_mkuri('policy') )
}

#            /sys/raw
#            /sys/rekey


sub rekey_init {
    my $self = shift;
    return $self->get( $self->_mkuri('rekey/init') )
}


sub rekey_backup {
    my $self = shift;
    return $self->get( $self->_mkuri('rekey/backup') )
}

#=head2 rekey_update
#
# my $rekey_update = $sys->rekey_update();
#
#Returns the 'rekey/update' of the vault from API location I
#
#The result is a hash reference
#
#TODO: implement DELETE
#
#=cut
#
#sub rekey_update {
#    my $self = shift;
#    return $self->get( $self->_mkuri('rekey/update') )
#}

#            /sys/remount
#            /sys/renew
#            /sys/replication
#            /sys/revoke
#            /sys/revoke-force
#            /sys/revoke-prefix
#            /sys/rotate
#            /sys/seal
#            /sys/seal-status


sub seal_status {
    my $self = shift;
    return $self->get( $self->_mkuri('seal-status') )
}

#            /sys/step-down
#            /sys/unseal
#            /sys/wrapping/lookup
#            /sys/wrapping/rewrap
#            /sys/wrapping/unwrap
#            /sys/wrapping/wrap
#

1;

__END__