From: Sebastian Willert Date: Wed, 18 Oct 2006 20:40:15 +0000 (+0000) Subject: Cosmetics: Changed DBIx::Class to fit into the global 2-space-indent convention X-Git-Tag: v0.07003~21 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5d2c57ff7daf4602904b0d2972824d2c3dd37d3;p=dbsrgits%2FDBIx-Class.git Cosmetics: Changed DBIx::Class to fit into the global 2-space-indent convention --- diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 2f65081..941739b 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -16,18 +16,18 @@ sub component_base_class { 'DBIx::Class' } $VERSION = '0.07002'; sub MODIFY_CODE_ATTRIBUTES { - my ($class,$code,@attrs) = @_; - $class->mk_classdata('__attr_cache' => {}) - unless $class->can('__attr_cache'); - $class->__attr_cache->{$code} = [@attrs]; - return (); + my ($class,$code,@attrs) = @_; + $class->mk_classdata('__attr_cache' => {}) + unless $class->can('__attr_cache'); + $class->__attr_cache->{$code} = [@attrs]; + return (); } sub _attr_cache { - my $self = shift; - my $cache = $self->can('__attr_cache') ? $self->__attr_cache : {}; - my $rest = eval { $self->next::method }; - return $@ ? $cache : { %$cache, %$rest }; + my $self = shift; + my $cache = $self->can('__attr_cache') ? $self->__attr_cache : {}; + my $rest = eval { $self->next::method }; + return $@ ? $cache : { %$cache, %$rest }; } 1;