@ISA = qw(Business::OnlinePayment::HTTPS);
$VERSION = '0.02';
-$DEBUG = 0;
+$DEBUG = 1;
$me = 'Business::OnlinePayment::IPPay';
sub set_defaults {
my $transaction_id = $content{'order_number'};
unless ($transaction_id) {
my ($page, $server_response, %headers) = $self->https_get('dummy' => 1);
+ warn "fetched transaction id: (HTTPS response: $server_response) ".
+ "(HTTPS headers: ".
+ join(", ", map { "$_ => ". $headers{$_} } keys %headers ). ") ".
+ "(Raw HTTPS content: $page)"
+ if $DEBUG;
return unless $server_response=~ /^200/;
$transaction_id = $page;
}