view release on metacpan or  search on metacpan

lib/Asterisk/Store/Queue.pm  view on Meta::CPAN

=cut

=head2 add_member()

  Add a new member object to the queue. Must be a Asterisk::Queue::Member object
  
  usage:
    $queueobj->add_member($memberobj)

=cut
sub add_member() {
	my $self = shift;
	my $internalobj = shift;
	if ( UNIVERSAL::isa $internalobj, 'Asterisk::Store::Queue::Member' ) {
		push @{$self->{'members'}}, $internalobj;
	} else {
		$base_logger->warn("add_member failed: not a Asterisk::Store::Queue::Member object");
		return undef;
	}
}