package Notify;

=pod

A Notify object is a list of objects to be told about a change - used to
implement the observer/observable pattern and object distribution.

=cut

sub new {
	my $self = bless [], shift;
	return $self;
}

sub add {
	my $self = shift;
	push @$self, shift;
}

sub remove {
	my $self = shift;
	my $to_remove = shift;
	@$self = grep {$_ ne $to_remove} @$self;
}

1
