File Coverage

blib/lib/Business/Payment/Processor/Test/False.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	16	18	88.8

package Business::Payment::Processor::Test::False;

use Moose;

with 'Business::Payment::Processor';

use Business::Payment::Result;

sub request { return ( 'OK', 'OK' ); }
sub prepare_data { return {} };

no Moose;
__PACKAGE__->meta->make_immutable;

=head1 NAME

Business::Payment::Processor::Test::False - Test Processor

=head1 SYNOPSIS

    use Business::Payment;

    my $bp = Business::Payment->new(
        processor => Business::Payment::Processor::Test::False->new
    );

    my $charge = Business::Payment::Charge->new(
        amount => 10.00 # Something Math::Currency can parse
    );

    my $result = $bp->handle($charge);

    print "Failed: ".$result->error_code.": ".$result->error_message."\n";

=head1 DESCRIPTION

Business::Payment::Processor::Test::False is test processor that always fails.

=head1 AUTHOR

Cory G Watson, C<< <[e-mail]> >>

=head1 COPYRIGHT & LICENSE

Copyright 2009 Cold Hard Code, LLC, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.