view release on metacpan or  search on metacpan

lib/Config/Reload.pm  view on Meta::CPAN

        $self->loaded(undef);
        $self->_md5( files_hash() );
        $self->_config( { } );
    };

    return $self->_config;
}


sub files_hash {
    md5_hex( map { my @s = stat($_); ($_, $s[9], $s[7]) } sort @_ );
}


1;

__END__

=pod

=head1 NAME