NAME

Business::Payment::Result - Result of a handled charge

SYNOPSIS

    use Business::Payment;

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

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

    my $result = $bp->handle($charge);
    if($result->success) {
        print "Success!\n";
    } else {
        print "Failed: ".$result->error_code.": ".$result->error_message."\n";
    }

DESCRIPTION

Business::Payment::Result contains the results of a handled charge. It's most basic indicator is the success attribute. If the charge was not successful then the success attribute will be false and the error_message and error_code attribute should be set.

AUTHOR

Cory G Watson, <gphat@cpan.org>

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.