Changes in LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm [12:28]

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

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

@@ -22 +22 @@
 =cut
 
-=head2 new($base, $type, $id, ...)
+=head2 list($base)
 
-Return a new object of type $type having unique identifier
-$id, all remaining arguments are passed to the subclass.
+List object supported by this module existing in base $base
+
+=cut
+
+sub list {
+    my ($class) = @_;
+    return;
+}
+
+=head2 new($base, $id)
+
+Create a new object having $id as uid.
 
 =cut
 
 sub new {
+    my ($class, $base, $id, @args) = @_;
+    # So can be call as $class->SUPER::new()
+    bless {
+        _base => $base,
+        _type => ($class =~ m/[^:]*$/)[0],
+    }, $class;
+}
+
+# _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) = @_;
 
@@ -39 +63 @@
     return $newobj;
 }
+
+=head2 type
+
+Return the type of the object
+
+=cut
 
 sub type {