Changeset 1865 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

12/21/16 15:07:28 (7 years ago)

Author:

nanardon

Message:

Merge branch

File:

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

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

@@ -45 +45 @@
 
 =cut
+
+=head2 listReal($base)
+
+List object supported by this module existing in base $base
+
+Can be override by base driver. The result must exclude specials object such alias.
+
+=cut
+
+sub listReal {
+    my ($class, $base) = @_;
+    $class->list($base);
+}
 
 =head2 list_from_rev($base, $rev)
@@ -68 +81 @@
 }
 
-# _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) = @_;
-
-    # finding perl class:
-    my $pclass = $base->_load_obj_class($otype) or return;
-    my $newobj = "$pclass"->new($base, $id, @args);
-
-    defined($newobj) or do {
-        $base->log(LA_DEBUG, "$pclass->new() returned undef for $otype / %s", $id || '(none)');
-        return;
-    };
-
-    $newobj->{_base} = $base;
-    $newobj->{_type} = lc($otype);
-    $newobj->{_id} ||= $id;
-
-    return $newobj;
-}
-
 =head2 _create($class, $base, $id, %data)
 
@@ -265 +254 @@
 }
 
-=head2 get_state ($state)
-
-Return an on fly computed value
-
-=cut
-
-sub get_state {
-    my ($self, $state) = @_;
-    # hum...
-    if (defined(my $res = $self->_get_state($state))) {
-        return $res;
-    }
-    for ($state) {
-    }
-    return;
-}
-
-sub _get_state {
-    my ($self, $state) = @_;
-    return;
-}
-
 sub _get_c_field {
     my ($self, $cfield) = @_;
@@ -299 +266 @@
     return $attribute->get; 
 }
+
+=head2 GetAttributeValue($cfield)
+
+Return the value to exposed to other base
+
+=cut
+
+sub GetAttributeValue {
+    my ($self, $cfield) = @_;
+
+    return $self->get_c_field($cfield);
+}
+
 
 =head2 queryformat ($fmt)