lib/PXElator/once.pm

package once;

use Storable;

my $once_path = '/tmp/pxelator.once';
our $just_once = retrieve $once_path if -e $once_path;
sub first_time {
        my $what = shift;
        return if $just_once->{$what}++;
        store $just_once, $once_path;
        return 1;
}

1;
1	dpavlin	276	package once;
2
3			use Storable;
4
5			my $once_path = '/tmp/pxelator.once';
6			our $just_once = retrieve $once_path if -e $once_path;
7			sub first_time {
8			my $what = shift;
9			return if $just_once->{$what}++;
10			store $just_once, $once_path;
11			return 1;
12			}
13
14			1;