File Coverage

blib/lib/PasswordMonkey/Bouncer.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 2 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             ###########################################
2             package PasswordMonkey::Bouncer;
3             ###########################################
4 4     4   23 use strict;
  4         7  
  4         122  
5 4     4   20 use warnings;
  4         7  
  4         485  
6              
7             PasswordMonkey::make_accessor( __PACKAGE__, $_ ) for qw(
8             name
9             expect
10             );
11              
12             ###########################################
13             sub new {
14             ###########################################
15 5     5 0 797 my($class, %options) = @_;
16              
17 5         27 my $self = {
18             expect => undef,
19             %options,
20             };
21              
22 5         28 bless $self, $class;
23             }
24              
25             ###########################################
26             sub check {
27             ###########################################
28 0     0 0   my($self) = @_;
29              
30 0           die "'check' needs to be overridden by the bouncer plugin class";
31             }
32              
33             1;
34              
35             __END__