Business-WebMoney

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

version:             0.11
abstract:            Perl API to WebMoney
license:             ~
author:              
    - Alexander Lourier <aml@rulezz.ru>
generated_by:        ExtUtils::MakeMaker version 6.42
distribution_type:   module
requires:     
    Crypt::SSLeay:                 0
    File::Spec:                    0
    HTTP::Request:                 0
    LWP::UserAgent:                0
    Net::SSL:                      0
    POSIX:                         0
    XML::LibXML:                   0
meta-spec:
    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
    version: 1.3

Makefile.PL  view on Meta::CPAN

# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Business::WebMoney',
    VERSION_FROM      => 'lib/Business/WebMoney.pm', # finds $VERSION
    PREREQ_PM         => {
	    'LWP::UserAgent' => 0,
	    'Crypt::SSLeay' => 0,
	    'Net::SSL' => 0,
	    'XML::LibXML' => 0,
	    'HTTP::Request' => 0,
	    'File::Spec' => 0,
	    'POSIX' => 0,
    }, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/Business/WebMoney.pm', # retrieve abstract from module
       AUTHOR         => 'Alexander Lourier <aml@rulezz.ru>') : ()),
);

README  view on Meta::CPAN

   Beware your WMID must have extended API enabled. Contact WM Technical Support for details.

DEPENDENCIES

This module requires these other modules and libraries:

  LWP
  Net::SSL
  XML::LibXML
  HTTP::Request

COPYRIGHT AND LICENCE

Copyright (C) 2008 by Alexander Lourier

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.

lib/Business/WebMoney.pm  view on Meta::CPAN

use 5.008000;
use strict;
use warnings;
use utf8;

our $VERSION = '0.11';

use Carp;
use LWP::UserAgent;
use XML::LibXML;
use HTTP::Request;
use File::Spec;
use POSIX();

sub new
{
	my ($class, @args) = @_;

	my $opt = parse_args(\@args, {
		p12_file => 'mandatory',
		p12_pass => undef,

lib/Business/WebMoney.pm  view on Meta::CPAN

		utf8::encode($req_data) if utf8::is_utf8($req_data);

		my $res_content;

		unless ($res_content = $req_fields->{debug_response}) {

			my $ua = LWP::UserAgent->new;
			$ua->timeout($self->{timeout} + 1);

			my $req = HTTP::Request->new;
			$req->method('POST');
			$req->uri("https://w3s.wmtransfer.com/asp/XML$args{func}Cert.asp");
			$req->content($req_data);

			my ($res, $timeout);

			eval {
				local $SIG{__DIE__};
				local $SIG{ALRM} = sub {
					$timeout = 1;

lib/Business/WebMoney/Exchanger.pm  view on Meta::CPAN

use strict;
use warnings;

use Business::WebMoney;

our $VERSION = '0.02';

use Carp;
use LWP::UserAgent;
use XML::LibXML;
use HTTP::Request;

sub new
{
	my ($class, @args) = @_;

	my $opt = Business::WebMoney::parse_args(\@args, {
		timeout => 20,
	});

	my $self = {

lib/Business/WebMoney/Exchanger.pm  view on Meta::CPAN

		local $SIG{__DIE__};
       
		my $res_content;

		unless ($res_content = $req_fields->{debug_response}) {

			my $ua = LWP::UserAgent->new;
			$ua->timeout($self->{timeout});
			$ua->env_proxy;

			my $req = HTTP::Request->new;
			$req->method('GET');
			$req->uri('https://wm.exchanger.ru/asp/XMLbestRates.asp');

			my $res = $ua->request($req);

			unless ($res->is_success) {

				$self->{errcode} = $res->code;
				$self->{errstr} = $res->message;
				return undef;