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();
28 qr/sub new {.+\n}\n/s,
29 'compiled code has a constructor'
32 for my $module (qw( Scalar::Util Moose::Error::Util Carp )) {
35 qr/^use \Q$module\E \(\);/m,
36 "compiled code loads $module"