package Whatever;
use Filter::Simple;
my $was_used;
my @use_args;
FILTER {
$was_used = 1;
@use_args = @_;
};
sub report {
warn $was_used ? "I feel used (with: @use_args)\n"
: "I feel required\n"
;
}
1;
####
use Whatever qw;
Whatever::report(); # I feel used (with: this that tother)
####
require Whatever;
Whatever::report(); # I feel required