Business-OnlinePayment-Iridium

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::NoTabs" : "0",
            "Test::Perl::Critic" : "0",
            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08"
         }
      },
      "runtime" : {
         "requires" : {
            "Business::OnlinePayment" : "0",
            "Carp" : "0",
            "HTTP::Request" : "0",
            "LWP::UserAgent" : "0",
            "Moose" : "0",
            "Moose::Role" : "0",
            "Template" : "0",
            "XML::Simple" : "0",
            "aliased" : "0",
            "strict" : "0",
            "warnings" : "0"
         }
      },

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Business-OnlinePayment-Iridium
requires:
  Business::OnlinePayment: 0
  Carp: 0
  HTTP::Request: 0
  LWP::UserAgent: 0
  Moose: 0
  Moose::Role: 0
  Template: 0
  XML::Simple: 0
  aliased: 0
  strict: 0
  warnings: 0
resources:
  repository: https://github.com/wreis/Business-OnlinePayment-Iridium.git

Makefile.PL  view on Meta::CPAN

  "AUTHOR" => "[ 'Gavin Henry <ghenry\@surevoip.co.uk>', 'Wallace Reis <reis.wallace\@gmail.com>' ]",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Business-OnlinePayment-Iridium",
  "LICENSE" => "perl",
  "NAME" => "Business::OnlinePayment::Iridium",
  "PREREQ_PM" => {
    "Business::OnlinePayment" => 0,
    "Carp" => 0,
    "HTTP::Request" => 0,
    "LWP::UserAgent" => 0,
    "Moose" => 0,
    "Moose::Role" => 0,
    "Template" => 0,
    "XML::Simple" => 0,
    "aliased" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {

Makefile.PL  view on Meta::CPAN

  "VERSION" => "1.03",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Business::OnlinePayment" => 0,
  "Carp" => 0,
  "HTTP::Request" => 0,
  "LWP::UserAgent" => 0,
  "Moose" => 0,
  "Moose::Role" => 0,
  "Template" => 0,
  "Test::More" => 0,
  "XML::Simple" => 0,
  "aliased" => 0,
  "strict" => 0,
  "warnings" => 0
);

lib/Business/OnlinePayment/Iridium/Action.pm  view on Meta::CPAN

package Business::OnlinePayment::Iridium::Action;

use Moose::Role;
use Template;
use LWP::UserAgent ();
use HTTP::Request  ();
use XML::Simple    ();

# PODNAME: Business::OnlinePayment::Iridium::Action
# ABSTRACT: Send / receive data to / from PayVector


sub SERVERS {
    return ( 'https://gw1.iridiumcorp.net/', 'https://gw2.iridiumcorp.net/', 'https://gw3.iridiumcorp.net/' );
}

lib/Business/OnlinePayment/Iridium/Action.pm  view on Meta::CPAN

}


sub request {
    my $self       = shift;
    my $content    = $self->_build_req_content;
    my $action_url = 'https://www.thepaymentgateway.net/';
    my $ua         = $self->_user_agent;
    my @SERVERS    = $self->SERVERS;

    my $req = HTTP::Request->new( POST => $SERVERS[0] );
    $req->content_type('text/xml; charset=UTF-8');
    $req->header( 'SOAPAction' => $action_url . $self->_type );
    $req->content($content);
    $req->content_length( length($content) );
    my $res = $ua->request($req);

    if ( $res->is_success ) {
        return $self->parse_response( $res->content );
    }
    else {