File Coverage

blib/lib/PasswordMonkey/Bouncer/Retry.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	42	47	89.3

###########################################
package PasswordMonkey::Bouncer::Retry;
###########################################
use strict;
use warnings;
use PasswordMonkey;
use base qw(PasswordMonkey::Bouncer);
use Log::Log4perl qw(:easy);
use Data::Dumper;

PasswordMonkey::make_accessor( __PACKAGE__, $_ ) for qw(
timeout
);

###########################################
sub init {
###########################################
    my($self) = @_;

    $self->{name} = "Retry Bouncer";
}

###########################################
sub check {
###########################################
    my($self) = @_;

    my $prompt_match = $self->{expect}->match();
    my $prompt_comes_back = 0;

    DEBUG "Hitting Return and waiting $self->{timeout} seconds ",
          "to see if the prompt ($prompt_match) reappears";
    $self->{expect}->send( "\n" );
    DEBUG "Waiting for prompt to reappear";

    $self->{expect}->expect(
        $self->{timeout},
        [ qr/\Q$prompt_match\E/ => sub {
            DEBUG "Prompt ($prompt_match) came back";
            DEBUG "Match before: ", $self->{expect}->before();
            $prompt_comes_back = 1;
          }
        ]
    );

    if(! $prompt_comes_back) {
        LOGWARN "$self->{name}: Prompt didn't come back";
        return 0;
    }

    return 1;
}

1;

__END__