X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FHelper%2FModel%2FDBIC%2FSchema.pm;h=d35bfb89face5a4963203cc8b5ae89c359119bb6;hb=510629748f0214f9e8bed35502a90edf7b6d589e;hp=b61e01230771370968e9f6a9b491977ea790abef;hpb=7e6a622c0a3c3a14e677913b7cd8b7d640e1d6e3;p=catagits%2FCatalyst-Model-DBIC-Schema.git

diff --git a/lib/Catalyst/Helper/Model/DBIC/Schema.pm b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
index b61e012..d35bfb8 100644
--- a/lib/Catalyst/Helper/Model/DBIC/Schema.pm
+++ b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
@@ -4,7 +4,7 @@ use namespace::autoclean;
 use Moose;
 no warnings 'uninitialized';
 
-our $VERSION = '0.36';
+our $VERSION = '0.40';
 $VERSION = eval $VERSION;
 
 use Carp;
@@ -488,7 +488,7 @@ sub _eval {
 
     return $code if looks_like_number $code;
 
-    return $code if $code =~ m{^[\w;:/]*\z};
+    return $code if not $self->_is_struct($code);
 
     return eval "{no strict; $code}";
 }