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

first round of Perl::Critic cleanups. Do not use return undef, use a bare return instead

Browse source
This commit is contained in:
Colin Kuskie 2007-12-05 00:30:43 +00:00
parent 75041656ee
commit 96178fd70c
92 changed files with 209 additions and 209 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/AdSpace.pm
View file

@ -76,9 +76,9 @@ sub create {
my $class = shift;
my $session = shift;
my $properties = shift || {};
return undef unless $properties->{name};
return unless $properties->{name};
my $test = $class->newByName($session, $properties->{name});
return undef if defined $test;
return if defined $test;
my $id = $session->db->setRow("adSpace","adSpaceId",{adSpaceId=>"new"});
my $self = $class->new($session, $id);
$self->set($properties);
@ -236,7 +236,7 @@ sub new {
my $session = shift;
my $id = shift;
my $properties = $session->db->getRow("adSpace","adSpaceId",$id);
return undef unless $properties->{adSpaceId};
return unless $properties->{adSpaceId};
bless {_session=>$session, _properties=>$properties}, $class;
}
@ -261,7 +261,7 @@ sub newByName {
my $session = shift;
my $name = shift;
my $properties = $session->db->getRow("adSpace","name",$name);
return undef unless $properties->{adSpaceId};
return unless $properties->{adSpaceId};
bless {_session=>$session, _properties=>$properties}, $class;
}