sub filename_of {
    my ( $package ) = @_;

    $package =~ s{::}{/}g;
    $package .= '.pm';

    return $INC{$package};
}