sub remove {
    my $self   = shift;
    my $type   = shift @_;
    my $target = shift @_;

    $self->{$type} = [ grep { $target ne $_ } @{$self->{$type}} ];
    return;
}