cpan/Module-Pluggable/t/24local_inc_object.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!perl -w

use strict;
use FindBin;
use Test::More tests => 2;

my $inc  = IncTest->new();
my ($ta) = grep { ref($_) eq 'Text::Abbrev'} eval { local ($^W) = 0; $inc->plugins };
ok($ta);
is($ta->MPCHECK, "HELLO");

package IncTest;
use Module::Pluggable search_path => "Text", search_dirs => "t/lib", instantiate => 'new', on_instantiate_error => sub {};

sub new {
    my $class = shift;
    return bless {}, $class;
}
1;