[gitmo/Class-MOP.git] / t / 048_anon_class_create_init.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

use Class::MOP;

{
    package MyMeta;
    use base 'Class::MOP::Class';
    sub initialize {
        my $class = shift;
        my ( $package, %options ) = @_;
        ::cmp_ok( $options{foo}, 'eq', 'this',
            'option passed to initialize() on create_anon_class()' );
        return $class->SUPER::initialize( @_ );
    }

}

my $anon = MyMeta->create_anon_class( foo => 'this' );
isa_ok( $anon, 'MyMeta' );
Commit	Line	Data
34d04967	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