package LATMOS::Accounts::SynchAccess; use strict; use warnings; use base qw(LATMOS::Accounts::SynchAccess::base); use LATMOS::Accounts::SynchAccess::Objects; our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; sub get_object { my ($self, $otype, $uid) = @_; my @subobj = $self->_return_all('get_object', $otype, $uid); if (scalar(@subobj) != scalar($self->bases)) { return; } return LATMOS::Accounts::SynchAccess::Objects->new( [ @subobj ] ); } 1; __END__