replaced return; with return undef;

This commit is contained in:
JT Smith 2008-01-24 21:58:15 +00:00
parent ffa90c5fbd
commit fa09c41598
113 changed files with 287 additions and 286 deletions

View file

@ -76,9 +76,9 @@ sub create {
my $class = shift;
my $session = shift;
my $properties = shift || {};
return unless $properties->{name};
return undef unless $properties->{name};
my $test = $class->newByName($session, $properties->{name});
return if defined $test;
return undef 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 unless $properties->{adSpaceId};
return undef 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 unless $properties->{adSpaceId};
return undef unless $properties->{adSpaceId};
bless {_session=>$session, _properties=>$properties}, $class;
}