our @EXPORT_OK = qw(
save_class
+ save_fragment
);
my $Dir = dir( tempdir( CLEANUP => 1 ) );
-sub save_class {
+sub save_fragment {
my $class = shift;
my $code = shift;
1;
EOF
+ save_class($class, $full_code);
+}
+
+sub save_class {
+ my $class = shift;
+ my $code = shift;
+
{
local $@;
- eval $full_code;
+ eval $code;
die $@ if $@;
}
$path->dir()->mkpath( 0, 0755 );
open my $fh, '>', $path;
- print {$fh} $full_code;
+ print {$fh} $code;
close $fh;
$INC{$pm_file} = $path;