return $obj, $fatal, $creating;
}
+=head2 view
+
+This command shows the object using the view factory template.
+
+=cut
+
+sub view : Exported {
+ my ($self, $r) = @_;
+ $r->build_form_elements(0);
+ return;
+}
+
+
=head2 delete
Deprecated method that calls do_delete or a given classes delete method, please
if ($1 ne "Maypole::Model::Base" && $2 ne "delete") {
$self->SUPER::delete(@_);
} else {
- warn "Maypole::Model::CDBI delete method is deprecated\n";
+ warn "Maypole::Model::CDBI::Base delete method is deprecated\n";
$self->do_delete(@_);
}
}
+
sub do_delete {
my ( $self, $r ) = @_;
# FIXME: handle fatal error with exception