t/048_anon_class_create_init.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7
   8 use Class::MOP;
   9
  10 {
  11     package MyMeta;
  12     use base 'Class::MOP::Class';
  13     sub initialize {
  14         my $class = shift;
  15         my ( $package, %options ) = @_;
  16         ::cmp_ok( $options{foo}, 'eq', 'this',
  17             'option passed to initialize() on create_anon_class()' );
  18         return $class->SUPER::initialize( @_ );
  19     }
  20
  21 }
  22
  23 my $anon = MyMeta->create_anon_class( foo => 'this' );
  24 isa_ok( $anon, 'MyMeta' );
  25