my $class = shift;
my $code = shift;
+ my $full_code = <<"EOF";
+package $class;
+
+use strict;
+use warnings;
+
+$code
+
+1;
+EOF
+
{
local $@;
- eval $code;
+ eval $full_code;
die $@ if $@;
}
$path->dir()->mkpath( 0, 0755 );
open my $fh, '>', $path;
- print {$fh} $code;
+ print {$fh} $full_code;
close $fh;
$INC{$pm_file} = $path;