The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package B::Lint::Plugin::Test;
use strict;
use warnings;

# This package will be loaded automatically by Module::Plugin when
# B::Lint loads.
warn 'got here!';

sub match {
    my $op = shift @_;

    # Prints to STDERR which will be picked up by the test running in
    # lint.t
    warn "Module::Pluggable ok.\n";

    # Ignore this method once it happens once.
    *match = sub { };
}

1;