On Fri, Mar 09, 2007 at 11:16:00AM -0400, Brian Cassidy wrote:
> http://dev.catalystframework.org/browser/trunk/Catalyst-Runtime/lib/Catalyst/Utils.pm#L263
>
> for reference, the config() routine:
>
> http://dev.catalystframework.org/browser/trunk/Catalyst-Runtime/lib/Catalyst/Component.pm#L88
Oops, I looked at an old version of Component.pm that does (did) this:
sub config {
my $self = shift;
$self->_config( {} ) unless $self->_config;
if (@_) {
my $config = @_ > 1 ? [EMAIL PROTECTED] : $_[0];
while ( my ( $key, $val ) = each %$config ) {
$self->_config->{$key} = $val;
}
}
return $self->_config;
}
--
Bill Moseley
[EMAIL PROTECTED]
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
