| Subject: | Behaves strange on second instanciation |
The Object works only when instantiated the first time:
#!/usr/bin/perl -w
use Finance::Currency::Convert::XE;
my $obj = Finance::Currency::Convert::XE->new()
|| die "Failed to create object\n" ;
my @currencies1 = $obj->currencies;
my $obj2 = Finance::Currency::Convert::XE->new()
|| die "Failed to create object\n" ;
my @currencies2 = $obj2->currencies;
print "Currencies 1 == " . int @currencies1;
print "\n";
print "Currencies 2 == " . int @currencies2;
print "\n";
gives:
marcus@mobilHal:/tmp: perl t.pl
Currencies 1 == 57
Currencies 2 == 0
Cheers,
Marcus