File Coverage

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

Criterion	Covered	Total	%
statement	6	44	13.6
branch			n/a
condition			n/a
subroutine	2	20	10.0
pod	16	16	100.0
total	24	80	30.0

#!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.02'; # 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') )
}


sub audit_put {
    my ( $self, $name, %params ) = @_;
    return $self->_sys_put( 'audit', $name, %params );

}



sub audit_del {
    my ( $self, $name ) = @_;
    return $self->_sys_del( 'audit', $name );
}



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


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


sub auth_put {
    my ( $self, $name, %params ) = @_;
    return $self->_sys_put( 'audit', $name, %params );

}


sub auth_del {
    my ( $self, $name ) = @_;
    return $self->_sys_del( 'audit', $name );
}

#
# Internal functions to do the put/del actions.
#
sub _sys_put {
    my ( $self, $sys_type, $name, %params ) = @_;
    my $uri = join '/', $self->_mkuri($sys_type), $name;
    return $self->post( $uri, \%params );

}

sub _sys_del {
    my ( $self, $sys_type, $name ) = @_;
    my $uri = join '/', $self->_mkuri($sys_type), $name;
    return $self->delete( $uri );

}


#            /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__