view release on metacpan or  search on metacpan

examples/cscomp  view on Meta::CPAN

      $_ = 0;
    } else {
      $_ = [ ($t, $s) ];
    }
  }
} $ct->argv('lsview', 'em*')->qx;
my %v;
foreach (@view) {
  my $tag = $_->[0];
  my $stg = $_->[1];
  if (!($acc = (stat(catdir($stg, '.access_info')))[10])) {
    print "Pb with last access time on $tag\n"; next; }
  next if $acc < $weekago;
  if (!($cmp = (stat(catdir($stg, '.compiled_spec')))[10])) {
    print "Pb with compilation time on $tag\n"; next; }
  $v{$tag} = $cmp;
}
print "Views accessed last week, sorted by compile time:\n";
foreach (sort { $v{$b} <=> $v{$a} } keys %v) {
  printf "%40s: %s\n", $_, scalar localtime($v{$_});
}