X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Compiler.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FMooseX%2FCompiler.pm;fp=t%2Flib%2FTest%2FMooseX%2FCompiler.pm;h=e6cfb897c6579473756e2ec1077774c9a0ce5070;hp=665a51211257bcc61384aafdc05a13391f735ad4;hb=f56affb648486c4a45e35a042f8a8281394f1ddc;hpb=6029ad7beb4b3c7882674a9066ba56b2e2208d75

diff --git a/t/lib/Test/MooseX/Compiler.pm b/t/lib/Test/MooseX/Compiler.pm
index 665a512..e6cfb89 100644
--- a/t/lib/Test/MooseX/Compiler.pm
+++ b/t/lib/Test/MooseX/Compiler.pm
@@ -11,11 +11,12 @@ use Path::Class qw( dir );
 
 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;
 
@@ -30,9 +31,16 @@ $code
 1;
 EOF
 
+    save_class($class, $full_code);
+}
+
+sub save_class {
+    my $class = shift;
+    my $code  = shift;
+
     {
         local $@;
-        eval $full_code;
+        eval $code;
         die $@ if $@;
     }
 
@@ -41,7 +49,7 @@ EOF
     $path->dir()->mkpath( 0, 0755 );
 
     open my $fh, '>', $path;
-    print {$fh} $full_code;
+    print {$fh} $code;
     close $fh;
 
     $INC{$pm_file} = $path;