Changeset 27

Timestamp:

04/22/09 12:45:40 (15 years ago)

Author:

nanardon

Message:

• hide false new functions which load any object

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (2 diffs)
• Bases/Objects.pm (modified) (1 diff)

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

@@ -88 +88 @@
     my ($self, $otype, $id) = @_;
 
-    return LATMOS::Accounts::Bases::Objects->new($self, $otype, $id);
+    return LATMOS::Accounts::Bases::Objects->_new($self, $otype, $id);
 }
 
@@ -102 +102 @@
 sub create_object {
     my ($self, $otype, $id, %data) = @_;
-    return;
+    my $pclass = $self->_load_obj_class($otype);
+    $pclass->create($id, %data) or return;
+    $self->get_object($otype, $id);
 }
 

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

@@ -22 +22 @@
 =cut
 
-=head2 new($base, $type, $id, ...)
+=head2 new($base, $id)
 
-Return a new object of type $type having unique identifier
-$id, all remaining arguments are passed to the subclass.
+Create a new object having $id as uid.
 
 =cut
 
-sub new {
+# _new($base, $type, $id, ...)
+
+# Return a new object of type $type having unique identifier
+# $id, all remaining arguments are passed to the subclass.
+
+sub _new {
     my ($class, $base, $otype, $id, @args) = @_;