Parent Directory | Revision Log
extracted first_time into once package
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; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |