Use quote_sub for trivial defaults

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Role / Error.pm

diff --git a/lib/SQL/Translator/Role/Error.pm b/lib/SQL/Translator/Role/Error.pm
index 40319e4..df1a58c 100644 (file)
--- a/lib/SQL/Translator/Role/Error.pm
+++ b/lib/SQL/Translator/Role/Error.pm
@@ -1,11 +1,12 @@
 package SQL::Translator::Role::Error;
 use Moo::Role;
+use Sub::Quote qw(quote_sub);
 
 has _ERROR => (
     is => 'rw',
     accessor => 'error',
     init_arg => undef,
-    default => sub { '' },
+    default => quote_sub(q{ '' }),
 );
 
 around error => sub {