File Coverage

blib/lib/Business/3DSecure.pm

Criterion	Covered	Total	%
statement	12	61	19.6
branch	0	14	0.0
condition			n/a
subroutine	4	12	33.3
pod	8	8	100.0
total	24	95	25.2

package Business::3DSecure;

use strict;
use warnings;

use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD );

use Carp;

require Exporter;

@ISA = qw( Exporter AutoLoader );
@EXPORT = qw();
@EXPORT_OK = qw();
$VERSION = '0.02';


my %fields = (
  is_success       => undef,
  result_code      => undef,
  test_transaction => undef,
  require_avs      => undef,
  transaction_type => undef,
  error_message    => undef,
  authorization    => undef,
  server           => undef,
  port             => undef,
  path             => undef,
  server_response  => undef,
);

sub new
{
  my ( $class, $processor, %data ) = @_;

  Carp::croak( "unspecified processor" ) unless $processor;

  my $subclass = "${class}::$processor";

  if ( !defined( &$subclass ) )
  {
    eval "use $subclass";
    Carp::croak( "unknown processor $processor ($@)" ) if $@;
  }

  my $self = bless { processor => $processor }, $subclass;

  $self->build_subs( keys %fields );
  $self->set_defaults() if ( $self->can( "set_defaults" ) );

  foreach( keys %data )
  {
    my $key = lc( $_ );
    my $value = $data{ $_ };

    $key =~ s/^\-//;

    $self->build_subs( $key );
    $self->$key( $value );
  }

  return $self;
}

sub content
{
  my ( $self, %params ) = @_;

  if ( %params )
  {
    $self->transaction_type( $params{ type } ) if ( $params{ type } );
    %{ $self->{ _content } } = %params;
  }

  return %{ $self->{ _content } };
}

sub required_fields
{
  my ( $self, @fields ) = @_;

  my %content = $self->content();

  foreach( @fields )
  {
    Carp::croak( "missing required field $_" ) unless exists $content{ $_ };
  }
}

sub get_fields
{
  my ( $self, @fields ) = @_;

  my %content = $self->content();
  my %new = ();

  foreach( @fields )
  {
    $new{ $_ } = $content{ $_ };
  }

  return %new;
}

sub remap_fields
{
  my ( $self, %map ) = @_;

  my %content = $self->content();

  foreach( %map )
  {
    $content{ $map{ $_ } } = $content{ $_ };
  }

  $self->content( %content );
}

sub submit
{
  my ( $self ) = @_;

  Carp::croak( "Processor subclass did not override submit function" );
}

sub dump_contents
{
  my ( $self ) = @_;

  my %content = $self->content();
  my $dump = "";

  foreach( keys %content )
  {
    $dump .= "$_ = $content{$_}\n";
  }

  return $dump;
}

# didnt use AUTOLOAD because Net::SSLeay::AUTOLOAD passes right to
# AutoLoader::AUTOLOAD, instead of passing up the chain
sub build_subs
{
  my $self = shift;

  foreach ( @_ )
  {
    eval "sub $_ { my \$self = shift; if(\@_) { \$self->{$_} = shift; } return \$self->{$_}; }";
  }
}

1;

__END__