oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Colin Kuskie 2007-12-03 02:00:28 +00:00
parent ad661f2a70
commit ba1f686920
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Session.pm
View file

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