X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;h=869d47475459f35083402ebbfb10a8c88eea18bb;hb=b18987fe030c042bea8c545094098a6157e93f11;hp=04a2153803469fa98d4754df785401f057767195;hpb=84cf74e721d712e23a1cbae062a582defb3439ea;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index 04a2153..869d474 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -6,8 +6,8 @@ use Catalyst::Utils; use NEXT; __PACKAGE__->mk_classdata($_) for qw/_attrcache _cache _config/; -__PACKAGE__->_cache( [] ); __PACKAGE__->_attrcache( {} ); +__PACKAGE__->_cache( [] ); # note - see attributes(3pm) sub MODIFY_CODE_ATTRIBUTES { @@ -92,8 +92,8 @@ sub new { sub config { my $self = shift; $self->_config( {} ) unless $self->_config; - if ( $_[0] ) { - my $config = $_[1] ? {@_} : $_[0]; + if ( @_ ) { + my $config = @_ > 1 ? {@_} : $_[0]; while ( my ( $key, $val ) = each %$config ) { $self->_config->{$key} = $val; }