Changeset 6 for LATMOS-Accounts

Timestamp:

02/27/09 19:00:29 (15 years ago)

Author:

nanardon

Message:

• can list canonicals fields, eg fixed name to data over all data bases

Location:

LATMOS-Accounts

Files:

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

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

@@ -40 +40 @@
     if ($@) { return } # error message ?
     return "LATMOS::Accounts::Bases::$pclass"->new(%options);
+}
+
+sub _load_obj_class {
+    my ($self, $otype) = @_;
+
+    # finding perl class:
+    my $pclass = ref $self;
+    $pclass .= '::' . ucfirst(lc($otype));
+    eval "require $pclass;";
+    if ($@) { return } # error message ?
+    return $pclass;
+}
+
+=head2 list_canonicals_fields($otype)
+
+Return the list of supported fields by the database for object type $otype.
+
+=cut
+
+sub list_canonicals_fields {
+    my ($self, $otype) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->canonical_fields;
 }
 

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

@@ -33 +33 @@
 
     # finding perl class:
-    my $pclass = ref $base;
-    $pclass .= '::' . ucfirst(lc($otype));
-    eval "require $pclass;";
-    if ($@) { return } # error message ?
+    my $pclass = $base->_load_obj_class($otype) or return;
     my $newobj = "$pclass"->new($base, $id, @args);
     $newobj->{_base} = $base;
@@ -52 +49 @@
 }
 
-# Preloaded methods go here.
+=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,
+this function is just a ficility to store data in the module, but the
+underling database can reply themself.
+
+See list_canonical_fields().
+
+=cut
+
+sub canonical_fields { 
+    my ($self) = @_;
+    if ($self->can('_canonical_fields')) {
+        $self->_canonical_fields;
+    } else { return; }
+}
 
 1;
 
 __END__
+
+=head1 CANICALS FIELDS
+
+=head2 User class
+
+=head2 Group class
 
 =head1 SEE ALSO

LATMOS-Accounts/t/10_bases.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 11;
+use Test::More tests => 12;
 
 use_ok('LATMOS::Accounts::Bases');
@@ -16 +16 @@
 isa_ok($user, 'LATMOS::Accounts::Bases::Dummy::User');
 
+ok(eq_set([ $dummyb->list_canonicals_fields('user') ], []), "Can get canonicals fields");
 ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal');