[gitmo/Moose.git] / t / 010_basics / 015_metaclass_keyword.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

BEGIN {
    use_ok('Moose');
}

{

    package Foo;
    use Moose;

    ::is( metaclass(), __PACKAGE__->meta, 'metaclass and __PACKAGE__->meta are the same' );
}
Commit	Line	Data
07af02bd	1	#!/usr/bin/perl
07af02bd	2
f02c03d6	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7
	8	BEGIN {
	9	use_ok('Moose');
	10	}
	11
07af02bd	12	{
	13
	14	package Foo;
07af02bd	15	use Moose;
07af02bd	16
f02c03d6	17	::is( metaclass(), __PACKAGE__->meta, 'metaclass and __PACKAGE__->meta are the same' );
07af02bd	18	}
07af02bd	19