X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FComponent.pm;h=101f29c19112e8c1c4a8837b4d797f97fb363285;hb=ddcd2fc4728111853841078cc5d9a117b993ea96;hp=28da15562fb6e807019578264cdebb7d7c5b4afb;hpb=f8a54681762e3fa6b09dce9f44ba40f82cacc70a;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Component.pm b/lib/Catalyst/Component.pm index 28da155..101f29c 100644 --- a/lib/Catalyst/Component.pm +++ b/lib/Catalyst/Component.pm @@ -53,7 +53,7 @@ Catalyst::Component - Catalyst Component Base Class This is the universal base class for Catalyst components (Model/View/Controller). -It provides you with a generic new() for instantiation through Catalyst's +It provides you with a generic new() for component construction through Catalyst's component loader with config() support and a process() method placeholder. =cut @@ -127,7 +127,7 @@ sub config { # TODO maybe this should be a ClassData option? my $class = blessed($self) || $self; my $meta = Class::MOP::get_metaclass_by_name($class); - unless ($meta->has_package_symbol('$_config')) { + unless (${ $meta->get_or_add_package_symbol('$_config') }) { # Call merge_hashes to ensure we deep copy the parent # config onto the subclass $self->_config( Catalyst::Utils::merge_hashes($config, {}) ); @@ -180,7 +180,7 @@ The arguments are expected to be a hashref and are merged with the C<< __PACKAGE__->config >> hashref before calling C<< ->new >> to instantiate the component. -You can override it in your components to do custom instantiation, using +You can override it in your components to do custom construction, using something like this: sub COMPONENT {