ran perlcritic -stern on Session.pm. Fixed a few things that it recommends. Session.pm was clean for -gentle

This commit is contained in:
Colin Kuskie 2007-12-03 02:00:28 +00:00
parent ad661f2a70
commit ba1f686920

View file

@ -183,7 +183,7 @@ sub db {
}
else {
if ($skipFatal) {
return undef
return;
}
else {
$self->errorHandler->fatal("Couldn't connect to WebGUI database, and can't continue without it.");
@ -580,7 +580,7 @@ sub url {
unless (exists $self->{_url}) {
$self->{_url} = WebGUI::Session::Url->new($self);
}
$self->{_url};
return $self->{_url};
}
#-------------------------------------------------------------------
@ -619,7 +619,7 @@ sub user {
$self->{_user} = WebGUI::User->new($self, $self->var->get('userId'));
$self->request->user($self->{_user}->username) if $self->request;
}
return $self->{_user};
return $self->{_user};
}