source: LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess.pm @ 137

Last change on this file since 137 was 56, checked in by nanardon, 15 years ago
  • LATMOS::Accounts::SynchAccess?: perform same action on several base
  • Property svn:keywords set to Id Rev
File size: 496 bytes
Line 
1package LATMOS::Accounts::SynchAccess;
2
3use strict;
4use warnings;
5use base qw(LATMOS::Accounts::SynchAccess::base);
6use LATMOS::Accounts::SynchAccess::Objects;
7
8our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
9
10sub get_object {
11    my ($self, $otype, $uid) = @_;
12    my @subobj = $self->_return_all('get_object', $otype, $uid);
13    if (scalar(@subobj) != scalar($self->bases)) {
14        return;
15    }
16    return LATMOS::Accounts::SynchAccess::Objects->new(
17        [ @subobj ]
18    );
19}
20
211;
22
23__END__
Note: See TracBrowser for help on using the repository browser.