6 use Test::MooseX::Compiler qw( save_fragment );
18 my $class = 'Test::Class1';
19 save_fragment( $class, $code );
21 my $compiler = MooseX::Compiler->new(
25 my $compiled = $compiler->compile_class();
29 qr/sub new {.+\n}\n/s,
30 'compiled code has a constructor'
33 for my $module (qw( Scalar::Util Moose::Error::Util Carp )) {
36 qr/^use \Q$module\E \(\);/m,
37 "compiled code loads $module"
55 my $class = 'Test::Class2';
56 save_fragment( $class, $code );
58 my $compiler = MooseX::Compiler->new(
62 my $compiled = $compiler->compile_class();
67 qr/sub new {.+\n}\n/s,
68 'compiled code has a constructor'