Changeset 28 for LATMOS-Accounts
- Timestamp:
- 04/22/09 15:45:25 (15 years ago)
- Location:
- LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm
r27 r28 76 76 my $pclass = $self->_load_obj_class($otype) or return; 77 77 $pclass->_get_field_name($c_fields); 78 } 79 80 =head2 list_objects($otype) 81 82 Return the list of UID for object of $otype. 83 84 =cut 85 86 sub list_objects { 87 my ($self, $otype) = @_; 88 my $pclass = $self->_load_obj_class($otype) or return; 89 $pclass->list($self); 78 90 } 79 91 -
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r27 r28 22 22 =cut 23 23 24 =head2 list($base) 25 26 List object supported by this module existing in base $base 27 28 =cut 29 30 sub list { 31 my ($class) = @_; 32 return; 33 } 34 24 35 =head2 new($base, $id) 25 36 … … 27 38 28 39 =cut 40 41 sub new { 42 my ($class, $base, $id, @args) = @_; 43 # So can be call as $class->SUPER::new() 44 bless { 45 _base => $base, 46 _type => ($class =~ m/[^:]*$/)[0], 47 }, $class; 48 } 29 49 30 50 # _new($base, $type, $id, ...) … … 43 63 return $newobj; 44 64 } 65 66 =head2 type 67 68 Return the type of the object 69 70 =cut 45 71 46 72 sub type {
Note: See TracChangeset
for help on using the changeset viewer.