X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=Paymentech.pm;h=9eec93503c27007e5499606d1c6d812611d4317e;hb=1667d469317704ae542a9b1f6fdc8e498e0eff59;hp=31a28eee15e603284a7760e414b78b543a7349fa;hpb=eee17f9ca705b7f5b276226fdef80b48977071d6;p=Business-BatchPayment-Paymentech.git

diff --git a/Paymentech.pm b/Paymentech.pm
index 31a28ee..9eec935 100644
--- 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> >>