File Coverage

blib/lib/PasswordMonkey/Bouncer/Wait.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	37	39	94.8

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

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

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

    $self->{name} = "Wait For Unexpected Input";
}

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

    $self->{got_output} = 0;

    DEBUG "Waiting $self->{seconds} seconds for unexpected output";

    $self->{expect}->expect(
        $self->{seconds},
        [ qr/./ => sub {
                       $self->{got_output} = 1;
                         # We got undesired input, abort without exp_continue
                   }

        ]
    );

    if( $self->{got_output} ) {
        LOGWARN "Whoa, ", __PACKAGE__, " received unexpected output ",
        " ('", $self->{expect}->match(), "') within ",
        "$self->{seconds} secs moratorium. Won't send anything over.";
        return 0;
    } else {
        DEBUG "No output within $self->{seconds} seconds. We're good.";
    }

    return 1;
}

1;

__END__