view release on metacpan or  search on metacpan

lib/Class/Refresh.pm  view on Meta::CPAN

210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
    $file = $class->_mod_to_file($file);
 
    delete $CACHE{$file};
}
 
sub _mtime {
    my $class = shift;
    my ($file) = @_;
    $file = $class->_mod_to_file($file);
    return 1 if !$INC{$file};
    return join ' ', (stat($INC{$file}))[1, 7, 9];
}
 
sub _file_to_mod {
    my $class = shift;
    my ($file) = @_;
 
    return $file unless $file =~ /\.pm$/;
 
    my $mod = $file;
    $mod =~ s{\.pm$}{};