@ISA = qw(FS::part_export);
tie my %options, 'Tie::IxHash',
- 'login' => { label=>'GlobalPOPs Media Services API login',
- 'password' => { label=>'GlobalPOPs Media Services API password',
+ 'login' => { label=>'GlobalPOPs Media Services API login' },
+ 'password' => { label=>'GlobalPOPs Media Services API password' },
;
%info = (
my($login, $password, $method, @args) = @_;
eval "use Net::GlobalPOPs::MediaServicesAPI;";
- die $@ if $@:
+ die $@ if $@;
my $gp = new Net::GlobalPOPs
'login' => $login,