diff options
author | ivan <ivan> | 2006-10-14 23:53:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-10-14 23:53:39 +0000 |
commit | 70cbe021e8ecc7b77dc3a3c25b778d0f21fca94e (patch) | |
tree | a619a8e006e57d1de42d1fbdc4de912d4ec5098b /FS/FS/part_export/www_plesk.pm | |
parent | 55ba66c693dcd0f37123476bb4383491514bf41c (diff) |
don't load Net::Plesk until its needed, to prevent every install from depending on it
Diffstat (limited to 'FS/FS/part_export/www_plesk.pm')
-rw-r--r-- | FS/FS/part_export/www_plesk.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/part_export/www_plesk.pm b/FS/FS/part_export/www_plesk.pm index 3839596..a4ebbf5 100644 --- a/FS/FS/part_export/www_plesk.pm +++ b/FS/FS/part_export/www_plesk.pm @@ -3,8 +3,6 @@ package FS::part_export::www_plesk; use vars qw(@ISA %info); use Tie::IxHash; use FS::part_export; -use Net::Plesk; -use Net::Plesk::Response; @ISA = qw(FS::part_export); @@ -37,7 +35,10 @@ sub rebless { shift; } sub _export_insert { my( $self, $www ) = ( shift, shift ); - + + eval "use Net::Plesk'"; + return $@ if $@; + my $plesk = new Net::Plesk ( 'POST' => $self->option('URL'), ':HTTP_AUTH_LOGIN' => $self->option('login'), @@ -79,6 +80,9 @@ sub _export_insert { sub _plesk_command { my( $self, $method, @args ) = @_; + + eval "use Net::Plesk'"; + return $@ if $@; local($Net::Plesk::DEBUG) = 1 if $self->option('debug'); |