filename not file

diff --git a/lib/Perl/Critic/Policy/Dynamic/Moose.pm b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
index e675b45..a6d84e1 100644 (file)
--- a/lib/Perl/Critic/Policy/Dynamic/Moose.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
@@ -49,7 +49,7 @@ sub compile_document {
     my $doc = $self->document;
 
     eval "$doc";
-    die "Unable to execute " . $doc->file . ": $@";
+    die "Unable to execute " . $doc->filename . ": $@";
 }
 
 sub find_packages {