view release on metacpan or  search on metacpan

lib/AnyMerchant.pm  view on Meta::CPAN

package AnyMerchant;
use strict;
use warnings;

our $VERSION = '0.0002'; # VERSION

use Carp qw(croak);
use Scalar::Util qw(blessed);

sub gateway {
    my ($class, $gateway, %args) = @_;
    croak 'gateway is required' unless $gateway;
    my $gw_class = "AnyMerchant::Gateway::$gateway";
    eval "require $gw_class";
    my $gw = $gw_class->new(%args);
    my $required_role = 'AnyMerchant::Gateway';
    croak "gateway must implement the role $required_role"
        unless blessed $gw and $gw->can('does') and $gw->does($required_role);
    return $gw;
}

# ABSTRACT: A generic and consistent interface for online payment services


1;

__END__

=pod

=head1 NAME

AnyMerchant - A generic and consistent interface for online payment services

=head1 VERSION

version 0.0002

=head1 SYNOPSIS

    my $gateway = AnyMerchant->gateway('Balanced', password => 'abc123');

=head1 DESCRIPTION

AnyMerchant is a generic and consistent interface for online payment services.
It is an alternative to L<Business::OnlinePayment>.
The interface for AnyMerchant is based on ruby's
L<Active Merchant|https://github.com/Shopify/active_merchant>.
See L<AnyMerchant::Gateway> for a description of the interface that gateways
should implement.

=head1 METHODS

=head2 gateway

    my $gateway = AnyMerchant->gateway('Balanced', password => 'abc123');

This is a static factory method that creates an AnyMerchant::Gateway::* object,
validates its interface, and returns it.
In the above example, an AnyMerchant::Gateway::Balanced object is returned.

=head1 AUTHOR

Naveed Massjouni <naveedm9@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Naveed Massjouni.

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

=cut