scripts/clean_cache.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use local::lib;
   7 use FindBin;
   8 use lib "$FindBin::Bin/../lib";
   9
  10 use Cache::FileCache;
  11
  12 my $cache = new Cache::FileCache({cache_root => "/tmp/ndweb-$<", namespace => 'cache'} );
  13
  14 $cache->purge;
  15