Help for this page

Select Code to Download


  1. or download this
    package File::CounterFile::Resettable;
    
    use base qw( File::CounterFile );
    ...
        }
        $self->{'value'}; # return value
    }
    
  2. or download this
    my $count = File::CounterFile::Resettable->new("./asr_counter.txt");
    $count->lock();
    $count->reset();
    $count->unlock();