1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package # hide from cpan =)
HTC_Utils;
use base 'Exporter';
use File::Spec;
@EXPORT_OK = qw($cache $cache_lock $tdir &cdir &create_cache &remove_cache);
$cache = File::Spec->catdir(qw(t cache));
$cache_lock = File::Spec->catdir(qw(t cache lock));
$tdir = File::Spec->catdir(qw(t templates));
sub cdir { File::Spec->catdir(@_) }
sub create_cache {
my ($dir) = @_;
my $cache = File::Spec->catdir('t', $dir);
mkdir $cache;
return $cache;
}
sub remove_cache {
my ($dir) = @_;
$dir ||= 'cache';
my $cache = $dir;
my $cache_lock = File::Spec->catdir($dir, 'lock');
unlink $cache_lock;
rmdir $cache;
}
1;
|
