package LogLoadedModules;
use strict;

sub log_loaded_module {
    my( $self, $file_to_load ) = @_;
    write_to_log_file( $0, $file_to_load );
    return; # we didn't find anything
}

# Automatically install the hook in @INC when this
# module is loaded
sub import {
    unshift @INC, \&log_loaded_module;
}

1;