package Unleashed::AuthorizeCard;

use strict;
use base qw/ Business::OnlinePayment /;

sub new {
        my $class = shift;
        my $obj = bless( {}, $class );
        my $realObj = $obj->SUPER::new( "AuthorizeNet"  );

        return $realObj;
}

##</code><code>##

[ proton ] :: perl -MUnleashed::AuthorizeCard -e '$foo = Unleashed::AuthorizeCard->new();'

unknown processor AuthorizeNet (syntax error at (eval 2) line 1, near "use Unleashed::AuthorizeCard="
) at -e line 1

##</code><code>##


sub new {
    my $obj = Business::OnlinePayment->new( "AuthorizeNet" );
}