view release on metacpan or  search on metacpan

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

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);