diff options
author | Ivan Kohler <ivan@freeside.biz> | 2019-04-24 14:03:04 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2019-04-24 14:03:04 -0700 |
commit | 1f8b0f2daa0e9250e5432d3aa6156d173332fa99 (patch) | |
tree | dc080901ad008cc145c6e97bf57560f43900cdd3 /FS/FS/part_export | |
parent | c8a49d102fa01df0b48e0342af313a9e4cb77188 (diff) |
no run-time CPAN deps, RT#83178
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/northern_911.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/FS/FS/part_export/northern_911.pm b/FS/FS/part_export/northern_911.pm index 679f5da..789d839 100644 --- a/FS/FS/part_export/northern_911.pm +++ b/FS/FS/part_export/northern_911.pm @@ -1,10 +1,11 @@ package FS::part_export::northern_911; +use base 'FS::part_export'; use strict; use vars qw(@ISA %info); use Tie::IxHash; use FS::Record qw(qsearch dbh); -use base 'FS::part_export'; +use WebService::Northern911; use Data::Dumper; tie my %options, 'Tie::IxHash', @@ -22,9 +23,6 @@ tie my %options, 'Tie::IxHash', 'options' => \%options, 'no_machine' => 1, 'notes' => <<'END' -Requires installation of -<a href="http://search.cpan.org/dist/WebService-Northern911">WebService::Northern911</a> -from CPAN. END ); @@ -32,9 +30,6 @@ sub client { my $self = shift; if (!$self->get('client')) { - local $@; - eval "use WebService::Northern911"; - return "error loading WebService::Northern911 ($@)" if $@; $self->set('client', WebService::Northern911->new( vendor_code => $self->option('vendor_code'), |