X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass.pm;h=6d8613414a79ce00e574c1ee30a7a3f2ac237f82;hb=4edfce2f91ce49d56ea11eb7710600b3fe5b96c5;hp=7aba89577410c77921e2a180d9a66c1e22d07433;hpb=20674fcd94984d0d2be09ecda7f3c22715468936;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 7aba895..6d86134 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -11,7 +11,6 @@ use DBIx::Class::Optional::Dependencies; use vars qw($VERSION); use base qw/DBIx::Class::Componentised Class::Accessor::Grouped/; use DBIx::Class::StartupCheck; -use Try::Tiny; sub mk_classdata { shift->mk_classaccessor(@_); @@ -43,14 +42,11 @@ sub MODIFY_CODE_ATTRIBUTES { sub _attr_cache { my $self = shift; my $cache = $self->can('__attr_cache') ? $self->__attr_cache : {}; - my $rest; - my $exception; - try { - $rest = $self->next::method; - } catch { - $exception = 1; + + return { + %$cache, + %{ $self->maybe::next::method || {} }, }; - return $exception ? $cache : { %$cache, %$rest }; } 1; @@ -377,6 +373,8 @@ Todd Lipcon Tom Hukins +tonvoon: Ton Voon + triode: Pete Gamache typester: Daisuke Murase