From 622a7ed7d079b7ae183053d2f807c862cc015db7 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 11 Jul 2012 16:03:18 -0700 Subject: error callbacks, more structure for parse/format methods --- BatchPayment/Transport/File.pm | 3 ++- BatchPayment/Transport/HTTPS.pm | 3 ++- BatchPayment/Transport/SFTP.pm | 3 ++- 3 files changed, 6 insertions(+), 3 deletions(-) (limited to 'BatchPayment/Transport') diff --git a/BatchPayment/Transport/File.pm b/BatchPayment/Transport/File.pm index eaaba49..27bc241 100644 --- a/BatchPayment/Transport/File.pm +++ b/BatchPayment/Transport/File.pm @@ -8,8 +8,9 @@ to /dev/null. =cut -use IO::File; +use strict; use Moose; +use IO::File; with 'Business::BatchPayment::Transport'; has 'input' => ( diff --git a/BatchPayment/Transport/HTTPS.pm b/BatchPayment/Transport/HTTPS.pm index c40a78f..fdb2c35 100644 --- a/BatchPayment/Transport/HTTPS.pm +++ b/BatchPayment/Transport/HTTPS.pm @@ -8,8 +8,9 @@ Options are 'server', 'port', 'get_path', 'put_path', optionally =cut -use Net::HTTPS::Any 0.10; +use strict; use Moose; +use Net::HTTPS::Any 0.10; with 'Business::BatchPayment::Transport'; has [ qw( host port get_path put_path ) ] => ( diff --git a/BatchPayment/Transport/SFTP.pm b/BatchPayment/Transport/SFTP.pm index 08d2fb7..1f86ee3 100644 --- a/BatchPayment/Transport/SFTP.pm +++ b/BatchPayment/Transport/SFTP.pm @@ -13,9 +13,10 @@ may find it useful to modify or override that behavior. =cut +use strict; +use Moose; use Net::SFTP::Foreign; use File::Slurp qw(read_file); -use Moose; with 'Business::BatchPayment::Transport'; has [ qw( host login password ) ] => ( -- cgit v1.2.1