view release on metacpan or  search on metacpan

lib/Apache/AxKit/Provider/RDBMS/DBCacheAdapter/SQLite.pm  view on Meta::CPAN

use base qw( Apache::AxKit::Provider::RDBMS::DBCacheAdapter );

use strict;

sub mtime {
    my $this = shift;
    
    my $DBIString = $this->{apache}->dir_config("DBIString");
    $DBIString =~ /=(.+)$/;
    
    return (stat($1))[9];
}

1;