Use quote_sub for trivial defaults

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

diff --git a/lib/SQL/Translator/Schema/Role/Extra.pm b/lib/SQL/Translator/Schema/Role/Extra.pm
index 5e21da2..6525abd 100644 (file)
--- a/lib/SQL/Translator/Schema/Role/Extra.pm
+++ b/lib/SQL/Translator/Schema/Role/Extra.pm
@@ -1,5 +1,6 @@
 package SQL::Translator::Schema::Role::Extra;
 use Moo::Role;
+use Sub::Quote qw(quote_sub);
 
 
 =head1 Methods
@@ -24,7 +25,7 @@ Returns a hash or a hashref.
 
 =cut
 
-has extra => ( is => 'rwp', default => sub { +{} } );
+has extra => ( is => 'rwp', default => quote_sub(q{ +{} }) );
 
 around extra => sub {
     my ($orig, $self) = (shift, shift);