t/lib/Business/FraudDetect/_Fake.pm

   1 package Business::FraudDetect::_Fake;
   2
   3 use vars qw( @ISA $result $fraud_score );
   4
   5 @ISA = qw ( Business::OnlinePayment );
   6
   7 sub _glean_parameters_from_parent {
   8   my ($self, $parent) = @_;
   9   $result      = $parent->fraud_detect_faked_result;
  10   $fraud_score = $parent->fraud_detect_faked_score;
  11 }
  12
  13 sub fraud_score {
  14   $fraud_score;
  15 }
  16
  17 sub submit {
  18   my $self = shift;
  19   $result ? $self->error_message('') : $self->error_message('Planned failure.');
  20   $self->is_success($result);
  21 }
  22
  23 1;