view release on metacpan or  search on metacpan

lib/Class/DBI/Factory/Config.pm  view on Meta::CPAN

    my $f = ref ($self) ? shift : $self;
    $f =~ s/\/+/\//g;
    return $f if -e $f && -f _ && -r _;
    return;
}

sub _mdate {
    my $self = shift;
    my $f = ref ($self) ? shift : $self;
    $f =~ s/\/+/\//g;
	my @stat = stat($f);
    return $stat[9];
}

=head2 refresh()

  $config->refresh();
  $config->refresh('/path/to/file');

Checks the modification date for each of the configuration files that have been read: if any have changed since we read it, the whole configuration object is dropped and rebuilt.