# in cgi: (have loaded the correct order into $order)
$order->submit;

# in order module.
sub submit {
    my $self = shift;
    return 1 if $self->submitted;
    ...
}