8 use lib "$FindBin::Bin/lib";
15 MyModule->load_components('Foo');
17 # Clear down inc so ppl dont mess us up with installing modules that we
20 # This breaks Carp1.08/perl 5.10.0; bah
22 throws_ok { MyModule->load_components('+ClassC3ComponentFooThatShouldntExist'); } qr/^Can't locate ClassC3ComponentFooThatShouldntExist.pm in \@INC/;
24 is(MyModule->new->message, "Foo MyModule", "it worked");