1 package Test::MooseX::Compiler;
7 use Exporter qw( import );
8 use File::Temp qw( tempdir );
9 use Module::Runtime qw( module_notional_filename );
10 use Path::Class qw( dir );
19 my $Dir = dir( tempdir( CLEANUP => 1 ) );
25 my $full_code = <<"EOF";
36 save_class($class, $full_code);
49 my $pm_file = module_notional_filename($class);
50 my $path = $Dir->file($pm_file);
51 $path->dir()->mkpath( 0, 0755 );
53 open my $fh, '>', $path;
57 $INC{$pm_file} = $path;
62 sub code_compiles_ok {
65 local $Test::Builder::Level = $Test::Builder::Level + 1;
75 is( $e, q{}, 'code compiled ok' );