Revision history for Business-BatchPayment-Paymentech
+0.05 unreleased
+ - enforce field lengths in raw bytes
+
0.04 unreleased
- make filenames unique when sending multiple batches
$item;
}
+# internal use
+
+sub bytes_substr {
+ my ($string, $offset, $length, $repl) = @_;
+ my $bytes = substr(
+ Encode::encode('utf8', $string),
+ $offset,
+ $length,
+ Encode::encode('utf8', $repl)
+ );
+ return Encode::decode('utf8', $bytes, Encode::FB_QUIET);
+}
+
+
package Business::BatchPayment::Paymentech::Transport;
use File::Temp qw( tempdir );
}
}
-# internal use
-
-sub bytes_substr {
- my ($string, $offset, $length, $repl) = @_;
- my $bytes = substr(
- Encode::encode('utf8', $string),
- $offset,
- $length,
- Encode::encode('utf8', $repl)
- );
- return Encode::decode('utf8', $bytes, Encode::FB_QUIET);
-}
-
=head1 AUTHOR
Mark Wells, C<< <mark at freeside.biz> >>