From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Mon, 17 Sep 2012 22:47:12 +0000 (+0100)
Subject: Add carping wrapper to SQL::Translator->schema as well
X-Git-Tag: v0.11013_01~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d866406bef908a2ff0ee582b0effc259300be72;p=dbsrgits%2FSQL-Translator.git

Add carping wrapper to SQL::Translator->schema as well
---

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index 199fef4..694ffa1 100644
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -276,6 +276,8 @@ has schema => (
     predicate => '_has_schema',
 );
 
+around schema => carp_ro('schema');
+
 around reset => sub {
     my $orig = shift;
     my $self = shift;