--- trunk/lib/Frey/ClassLoader.pm 2008/11/28 13:26:08 585 +++ trunk/lib/Frey/ClassLoader.pm 2008/11/28 13:27:34 586 @@ -215,23 +215,19 @@ my $instance = $class->new( %$params ); if ( $instance->can('data') && ! $instance->can('as_data') ) { Frey::Role::as_data->meta->apply( $instance ); - $self->TODO("apply as_data role to $class"); + warn "# apply as_data role to $class"; } if ( $instance->can('sponge') && ! $instance->can('as_sponge') ) { Frey::Role::as_sponge->meta->apply( $instance ); - $self->TODO("apply as_sponge role to $class"); + warn "# apply as_sponge role to $class"; } if ( ! $instance->can('add_status') ) { Frey::Web->meta->apply( $instance ); - $self->TODO("apply Frey::Web role to $class"); + warn "# apply Frey::Web role to $class"; } - if ( $self->can('add_status') ) { - $self->add_status({ $class => $params }); - } else { - warn "# class $self can't add_status"; - } + $self->add_status({ $class => $params }); return $instance; }