Changeset 56 for LATMOS-Accounts

Timestamp:

04/26/09 18:00:18 (15 years ago)

Author:

nanardon

Message:

• LATMOS::Accounts::SynchAccess?: perform same action on several base

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/SynchAccess (added)
• lib/LATMOS/Accounts/SynchAccess.pm (added)
• lib/LATMOS/Accounts/SynchAccess/Objects.pm (added)
• lib/LATMOS/Accounts/SynchAccess/base.pm (added)
• t/26_la_synchaccess.t (added)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -7 +7 @@
 use LATMOS::Accounts::Bases;
 use LATMOS::Accounts::Synchro;
+use LATMOS::Accounts::SynchAccess;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -99 +100 @@
 }
 
+sub sync_access {
+    my ($self, $bases) = @_;
+    my @obases = scalar(@{ $bases || []})
+        ? map { $self->base($_) } @{ $bases || []}
+        : (
+            $self->default_base,
+            map { $self->base($_) }
+            $self->config_sync_base($self->default_base_name));
+    LATMOS::Accounts::SynchAccess->new([ @obases ]);
+}
 
 1;