$self->model_class( $mclass );
}
elsif ($self->debug) {
- warn "\n***Warning: No $mclass class appropriate to set as request model : $@***\n"
+ warn "***Warning: No $mclass class appropriate for model. @_";
}
}
sub parse_path
{
my ($self) = @_;
-
+
# Previous versions unconditionally set table, action and args to whatever
# was in @pi (or else to defaults, if @pi is empty).
# Adding preprocess_path(), and then setting table, action and args
# conditionally, broke lots of tests, hence this:
$self->$_(undef) for qw/action table args/;
-
$self->preprocess_path;
$self->path || $self->path('frontpage');