Changeset 7 for LATMOS-Accounts

Timestamp:

02/27/09 21:07:53 (15 years ago)

Author:

nanardon

Message:

• add function to map canonical field name to internal db name

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)
• t/10_bases.t (modified) (2 diffs)

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

@@ -62 +62 @@
     my ($self, $otype) = @_;
     my $pclass = $self->_load_obj_class($otype) or return;
-    $pclass->canonical_fields;
+    $pclass->_canonical_fields;
+}
+
+=head2 get_field_name($otype, $c_fields)
+
+Return the internal fields name for $otype object for
+canonical fields $c_fields
+
+=cut
+
+sub get_field_name {
+    my ($self, $otype, $c_fields) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->_get_field_name($c_fields);
 }
 

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

@@ -49 +49 @@
 }
 
-=head2 canonical_fields
+=head2 _canonical_fields
 
 Must return the list of field supported by the object.
-
-If exists, _canonicals_fields function is called.
 
 Notice this query will always come from the upstream data base,
@@ -63 +61 @@
 =cut
 
-sub canonical_fields { 
+sub _canonical_fields { 
     my ($self) = @_;
-    if ($self->can('_canonical_fields')) {
-        $self->_canonical_fields;
-    } else { return; }
+    return;
+}
+
+=head2 _get_fields_name($field)
+
+Return the fields name for canonical field $field
+
+=cut
+
+sub _get_field_name {
+    my ($self, $field) = @_;
+    return;
 }
 

LATMOS-Accounts/t/10_bases.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 use_ok('LATMOS::Accounts::Bases');
@@ -17 +17 @@
 
 ok(eq_set([ $dummyb->list_canonicals_fields('user') ], []), "Can get canonicals fields");
+ok(!defined( $dummyb->get_field_name('any') ), "can call get_fields_name");
 ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal');