X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fnetsapiens.pm;h=ac78dbca5ea1ab4a8c43cf0f36b5a0392c3ab1f4;hp=c72093d00fc1e0d4b13a606bc5dfe53ba7f770b0;hb=08ec199c66436f308f5ef090699d3b10ce932056;hpb=d8648be92fa4c30d9ca4377dc0ac8816438e1370 diff --git a/FS/FS/part_export/netsapiens.pm b/FS/FS/part_export/netsapiens.pm index c72093d00..ac78dbca5 100644 --- a/FS/FS/part_export/netsapiens.pm +++ b/FS/FS/part_export/netsapiens.pm @@ -1,13 +1,13 @@ package FS::part_export::netsapiens; +use base qw( FS::part_export ); -use vars qw(@ISA $me %info); +use vars qw( $me %info ); use MIME::Base64; use Tie::IxHash; -use FS::part_export; use Date::Format qw( time2str ); -use Regexp::Common qw/URI/; +use Regexp::Common qw( URI ); +use REST::Client; -@ISA = qw(FS::part_export); $me = '[FS::part_export::netsapiens]'; #These export options set default values for the various commands @@ -77,9 +77,6 @@ tie my %options, 'Tie::IxHash', 'options' => \%options, 'no_machine' => 1, 'notes' => <<'END' -Requires installation of -REST::Client -from CPAN. END ); @@ -118,8 +115,6 @@ sub _ns_command { # kludge to curb excessive paranoia in LWP 6.0+ local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; - eval 'use REST::Client'; - die $@ if $@; my $ns = new REST::Client 'host'=>$self->option($prefix.'url');