package WarnUsedOnce;

    use Filter::Simple sub {
        my $self = shift;

        s/my//g; # Too simple
    };

    1;