view release on metacpan or  search on metacpan

t/05_cache_opts.t  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
tie %session, 'Apache::Session::CacheAny', undef, {
    CacheImpl => 'Cache::FileCache',
    CacheRoot => $cache_root,
    Namespace => $ns,
    DirectoryUmask => 0077,
};
$session{ts} = time;
untie %session;
 
ok(-d "$cache_root/$ns", 'cache_root');
my $mode = (stat("$cache_root/$ns"))[2];
ok($mode & '0700', 'directory_umask');
 
Cache::FileCache::Clear($cache_root);