bytes_substr

[Business-BatchPayment-Paymentech.git] / Paymentech.pm

diff --git a/Paymentech.pm b/Paymentech.pm
index 31a28ee..9eec935 100644 (file)
--- a/Paymentech.pm
+++ b/Paymentech.pm
@@ -289,6 +289,20 @@ sub parse_item {
   $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 );
@@ -397,19 +411,6 @@ sub _info {
   }
 }
 
-# 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> >>