|
#!/usr/bin/env perl
ok( 1 == 1 , 'null test' );
{
our ( @ISA );
@ISA = qw(InSilicoSpectro::Utils::FileCached) ;
our $cptTot =0;
sub new{
my ( $pkg , $h )= @_ ;
my $dvar = $pkg ->SUPER::new();
$dvar ->{cpt}= $cptTot ++;
bless $dvar , $pkg ;
return $dvar ;
}
sub toSummaryString{
my $self = shift ;
return "cpt=$self->{cpt}" ;
}
}
$InSilicoSpectro::Utils::FileCached::REMOVE_TEMP_FILES =0;
InSilicoSpectro::Utils::FileCached::verbose(1);
InSilicoSpectro::Utils::FileCached::queueMaxSize( nbobj =>10);
my @list ;
foreach (0..20){
push @list , DummyClass->new();
}
foreach my $d ( @list ){
print "" . $d ->FC_getme. "\n" ;
}
|