Re: localising hash element by variable

[p5sagit/p5-mst-13.2.git] / t / Module_Pluggable / 19can_ok_clobber.t

#!/usr/bin/perl
use strict; 
use warnings;
use Data::Dumper;
use FindBin;
use lib "$FindBin::Bin/lib";

use Test::More tests=>5;

#use_ok( 'MyTest' );
#diag "Module::Pluggable::VERSION $Module::Pluggable::VERSION";

my @plugins = MyTest->plugins;
my @plugins_after;

use_ok( 'MyTest::Plugin::Foo' );
ok( my $foo = MyTest::Plugin::Foo->new() );

@plugins_after = MyTest->plugins;
is_deeply(
    \@plugins_after,
    \@plugins,
    "plugins haven't been clobbered",
);

can_ok ($foo, 'frobnitz');

@plugins_after = MyTest->plugins;
is_deeply(
    \@plugins_after,
    \@plugins,
    "plugins haven't been clobbered",
) or diag Dumper ;



package MyTest;

use strict;
use Module::Pluggable;


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

}
1;