view release on metacpan or  search on metacpan

MakeMethods/Template/DiskCache.pm  view on Meta::CPAN

  no strict 'refs';
  while ( my $class = shift @sources ) {
    push @sources, @{"$class\::ISA"};
    push @results, $class unless ( grep { $_ eq $class } @results );
  }
  
  foreach ( @results ) { 
    s!::!/!g;
    $_ .= '.pm';
  }
  return join "\n", map { $_ . ' '. (stat($::INC{ $_ }))[9] } @results;
}

########################################################################

sub read_file {
  my $file = shift;
  # warn "Reading file: $file\n";
  local *FILE;
  open FILE, "$file" or die "Can't open $file: $!";
  local $/ = undef;