perlunifaq, uniintro: fix for 80 col display

[p5sagit/p5-mst-13.2.git] / cpan / Module-Pluggable / t / 10innerpack_onefile.t

#!perl -wT

use strict;
use Test::More tests => 2;
use Data::Dumper;

my $mc  = MyClass->new();
my $mc2 = MyClass2->new();


is_deeply([$mc->plugins],  [qw(MyClass::Plugin::MyPlugin)], "Got inner plugin");
is_deeply([$mc2->plugins], [],                              "Didn't get plugin");

package MyClass::Plugin::MyPlugin;
sub pretty { print "I am pretty" };

package MyClass;
use Module::Pluggable inner => 1;

sub new { return bless {}, $_[0] }

package MyClass2;
use Module::Pluggable search_path => "MyClass::Plugin", inner => 0;

sub new { return bless {}, $_[0] }
1;