File Coverage

blib/lib/Clustericious/Config/Password.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch			n/a
condition	1	6	16.6
subroutine	5	6	83.3
pod	0	3	0.0
total	19	32	59.3

package Clustericious::Config::Password;

use Data::Dumper;
use strict;
use warnings;

# ABSTRACT: password routines for Clustericious::Config
our $VERSION = '0.28'; # VERSION


our $Stashed;

sub sentinel {
    return "__XXX_placeholder_ceaa5b9c080d69ccdaef9f81bf792341__";
}

sub get {
    my $self = shift;
    require Term::Prompt;
    $Stashed ||= Term::Prompt::prompt('p', 'Password:', '', '');
    $Stashed;
}

sub is_sentinel {
    my $class = shift;
    my $val = shift;
    return (defined($val) && $val eq $class->sentinel);
}

1;


__END__