1 files changed, 8 insertions, 17 deletions
diff --git a/lib/App/Acmeman/Source.pm b/lib/App/Acmeman/Source.pm
index 391daca..de1a666 100644
--- a/lib/App/Acmeman/Source.pm
+++ b/lib/App/Acmeman/Source.pm
@@ -4,22 +4,6 @@ use strict;
 use warnings;
 use Carp;
 
-sub debug {
-    my $self = shift;
-    if (defined(&::debug)) {
-	::debug(@_);
-    }
-}
-
-sub error {
-    my $self = shift;
-    if (exists($self->{_cfg})) {
-	$self->{_cfg}->error(@_);
-    } else {
-	carp @_;
-    }
-}
-
 sub set {
     my $self = shift;
     croak "improper use of the set method"
@@ -27,6 +11,13 @@ sub set {
     return $self->{_cfg}->set(@_);
 }
 
+sub add {
+    my $self = shift;
+    croak "improper use of the add method"
+	unless exists $self->{_cfg};
+    return $self->{_cfg}->add_value(@_);
+}
+
 sub get {
     my $self = shift;
     croak "improper use of the get method"
@@ -44,7 +35,7 @@ sub define_alias {
     my $self = shift;
     my $cn = shift || croak "domain name must be given";
     foreach my $alias (@_) {
-	$self->set('domain', $cn, 'alt', $alias);
+	$self->add(['domain', $cn, 'alt'], $alias);
     }
 }