# This file documents the revision history for Perl extension Catalyst.
+ - Tidy up Catalyst::ClassData to ensure that all components get
+ the correct metaclass (t0m)
- Make MyApp.pm restartable by unsetting setup_finished in
the restarter process (t0m)
- Non-naive implementation of making mutable on restart using
sub setup_component {
my( $class, $component ) = @_;
-
- #warn("Component $component has meta " . $component->meta);
unless ( $component->can( 'COMPONENT' ) ) {
return $component;
}
#this is still not correct for some reason.
my $namespace = $self->action_namespace($c);
my $meta = find_meta($self);
- confess("Wrong metaclass $meta for $self - " . $meta->name)
+ confess("Metaclass for " . ref($meta) ." for " . $meta->name
+ . " cannot support register_actions.")
unless $meta->can('get_all_methods_with_attributes');
my @methods = $meta->get_all_methods_with_attributes;