t/010_basics/015_metaclass_keyword.t

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