Changeset 1567 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

12/30/15 14:45:22 (9 years ago)

Author:

nanardon

Message:

Fix returned value and test

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Attributes.pm (modified) (1 diff)
• Objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

@@ -452 +452 @@
             return @{$res} ? $res : undef;
         } elsif ($self->multiple) {
-            return ref $res ? $res : [$res]
+            return (ref $res ? $res : [$res])
         } else {
             return $res;

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -248 +248 @@
     my ($self, $cfield) = @_;
     my $res = $self->get_c_field($cfield);
-    return ref $res ? @{ $res } : ($res);
+    if ($res) {
+        return(ref $res ? @{$res} : $res);
+    } else {
+        return;
+    }
 }
 
@@ -254 +258 @@
     my ($self, $cfield) = @_;
     my $res = $self->_get_c_field($cfield);
-    return ref $res ? @{ $res } : ($res);
+    if ($res) {
+        return(ref $res ? @{$res} : ($res));
+    } else {
+        return;
+    }
 }