use File::Temp qw( tempdir );
use Module::Runtime qw( module_notional_filename );
use Path::Class qw( dir );
+use Test::More;
our @EXPORT_OK = qw(
+ code_compiles_ok
save_class
save_fragment
);
return $pm_file;
}
+sub code_compiles_ok {
+ my $code = shift;
+
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+ my $e;
+ {
+ local $@;
+ local $SIG{__DIE__};
+ eval $code;
+ $e = $@;
+ }
+
+ is( $e, q{}, 'code compiled ok' );
+}
+
1;