Changeset 949 for LATMOS-Accounts

Timestamp:

04/27/12 11:34:19 (12 years ago)

Author:

nanardon

Message:

• allow to use Attributes object w/o description from base

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm (modified) (1 diff)

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

@@ -25 +25 @@
         : (undef, $base_or_object, $maybe_otype);
 
-    my $attr_info = $base->get_attr_schema($otype, $attributes) or return;
-
-    $attr_info->{_base} = $base;
-    $attr_info->{_object} = $object;
-    $attr_info->{_name} = $attributes;
-    $attr_info->{_otype} = $otype;
-
-    bless($attr_info, $class);
+    if (ref $attributes) {
+        $attributes->{_base} = $base;
+        $attributes->{_object} = $object;
+        $attributes->{_name} = $attributes->{name};
+        $attributes->{_otype} = $otype;
+        return bless($attributes, $class);
+    } else {
+        my $attr_info = $base->get_attr_schema($otype, $attributes) or return;
+
+        $attr_info->{_base} = $base;
+        $attr_info->{_object} = $object;
+        $attr_info->{_name} = $attributes;
+        $attr_info->{_otype} = $otype;
+
+        return bless($attr_info, $class);
+    }
 }