test.pm

来自「source of perl for linux application,」· PM 代码 · 共 21 行

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;