X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fnorthern_911.pm;h=789d839e2573b6c41d0c751dbcabe9c797b48c7b;hp=679f5daf634ebe1a456f270e1bfd133c79f203c6;hb=b41ff1359baf325376d41d8c1378e187a208cc8d;hpb=d5988a9f7a3617de33da3058f2e9f1151b24420e diff --git a/FS/FS/part_export/northern_911.pm b/FS/FS/part_export/northern_911.pm index 679f5daf6..789d839e2 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 -WebService::Northern911 -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'),