Changeset 28

Timestamp:

04/22/09 15:45:25 (15 years ago)

Author:

nanardon

Message:

• add list_objects() functions

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

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

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

@@ -76 +76 @@
     my $pclass = $self->_load_obj_class($otype) or return;
     $pclass->_get_field_name($c_fields);
+}
+
+=head2 list_objects($otype)
+
+Return the list of UID for object of $otype.
+
+=cut
+
+sub list_objects {
+    my ($self, $otype) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->list($self);
 }
 

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

@@ -22 +22 @@
 =cut
 
+=head2 list($base)
+
+List object supported by this module existing in base $base
+
+=cut
+
+sub list {
+    my ($class) = @_;
+    return;
+}
+
 =head2 new($base, $id)
 
@@ -27 +38 @@
 
 =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, ...)
@@ -43 +63 @@
     return $newobj;
 }
+
+=head2 type
+
+Return the type of the object
+
+=cut
 
 sub type {