source: LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess/base.pm @ 178

package LATMOS::Accounts::SynchAccess::base;

use strict;
use warnings;
use vars qw($AUTOLOAD);
use Carp;

our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];

sub AUTOLOAD {
    my ($self, @args) = @_;
    my ($constname, $sub) = $AUTOLOAD =~ m/(.*)::([^:]+)/;
    $self->_trap_false($sub, @args);
}

sub new {
    my ($class, $bases) = @_;
    bless {
        bases => [ @{ $bases} ],
    }, $class;
}

sub bases {
    my ($self) = @_;
    @{ $self->{bases} || []}
}

sub _return_all {
    my ($self, $sub, @args) = @_;
    map { $_->$sub(@args) } $self->bases
}

sub _trap_false {
    my ($self, $sub, @args) = @_;
    my $failure = 0;
    foreach ($self->bases) {
        $_->$sub(@args) or $failure = 1;
    }
    $failure ? 0 : 1;
}

sub _trap_true {
    my ($self, $sub, @args) = @_;
    my $failure = 0;
    foreach ($self->bases) {
        $_->$sub(@args) and $failure = 1;
    }
    $failure ? 0 : 1;
}

sub DESTROY {}

1;

__END__