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;
