X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerl%2FCritic%2FPolicy%2FDynamic%2FMoose.pm;h=8b71691d84ee528124b6777aae150389a6116497;hb=1ad529292ab554660b848424b545db1e35e177cc;hp=a6d84e1f16f239397e5269449e3015153fea567d;hpb=93f19e6182352c0cdbdb6c02ab79eefa7c8963e8;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

diff --git a/lib/Perl/Critic/Policy/Dynamic/Moose.pm b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
index a6d84e1..8b71691 100644
--- a/lib/Perl/Critic/Policy/Dynamic/Moose.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
@@ -48,8 +48,11 @@ sub compile_document {
     my $self = shift;
     my $doc = $self->document;
 
-    eval "$doc";
-    die "Unable to execute " . $doc->filename . ": $@";
+    my $source_code = $doc->content;
+
+    eval $source_code;
+
+    die "Unable to execute " . $doc->filename . ": $@" if $@;
 }
 
 sub find_packages {