Yet Another CPAN Grep

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/91-90-with-Any-Moose/004-multi-level.t ( view source; MetaCPAN )

ew;
is($foo_moose->foo, 'FOO', 'Foo::Mouse::foo');
is($foo_moose->bar, 'BAR', 'Foo::Mouse::bar');
isnt(Foo::Mouse->meta->get_method('new'), undef,
     'Foo::Mouse gets its own constructor');

my $foo

ouse::Sub::bar (immutable)');
is($foo_moose_sub->baz, 'BAZ', 'Foo::Mouse::Sub::baz (immutable)');
isnt(Foo::Mouse::Sub->meta->get_method('new'), undef,
     'Foo::Mouse::Sub has an inlined constructor

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/90-MooseX-NonMoose/004-multi-level.t ( view source; MetaCPAN )

ew;
is($foo_moose->foo, 'FOO', 'Foo::Mouse::foo');
is($foo_moose->bar, 'BAR', 'Foo::Mouse::bar');
isnt(Foo::Mouse->meta->get_method('new'), undef,
     'Foo::Mouse gets its own constructor');

my $foo

ouse::Sub::bar (immutable)');
is($foo_moose_sub->baz, 'BAZ', 'Foo::Mouse::Sub::baz (immutable)');
isnt(Foo::Mouse::Sub->meta->get_method('new'), undef,
     'Foo::Mouse::Sub has an inlined constructor

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/91-90-with-Any-Moose/031-moose-exporter.t ( view source; MetaCPAN )

w, 'Foo');
my $method2 = Foo::Mouse2->meta->get_method('new');
Foo::Mouse2->meta->make_immutable;
isnt(Foo::Mouse2->meta->get_method('new'), $method2,
   'inlining does happen when the constructor tra

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/90-MooseX-NonMoose/006-disable.t ( view source; MetaCPAN )

onstructor');
my $method = Foo::Mouse->meta->get_method('new');
Foo::Mouse->meta->make_immutable;
isnt($method->body, Foo::Mouse->meta->get_method('new')->body,
     'make_immutable replaced the const

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/90-MooseX-NonMoose/031-moose-exporter.t ( view source; MetaCPAN )

w, 'Foo');
my $method2 = Foo::Mouse2->meta->get_method('new');
Foo::Mouse2->meta->make_immutable;
isnt(Foo::Mouse2->meta->get_method('new'), $method2,
   'inlining does happen when the constructor tra

MouseX-Foreign ( G/GF/GFUJI/MouseX-Foreign-1.000.tar.gz, GFUJI, 2014; MetaCPAN )

MouseX-Foreign/t/91-90-with-Any-Moose/006-disable.t ( view source; MetaCPAN )

onstructor');
my $method = Foo::Mouse->meta->get_method('new');
Foo::Mouse->meta->make_immutable;
isnt($method->body, Foo::Mouse->meta->get_method('new')->body,
     'make_immutable replaced the const