Parent Directory | Revision Log
extracted first_time into once package
1 | 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 |