--- trunk/Nos.pm	2005/05/16 20:58:44	29
+++ trunk/Nos.pm	2005/05/16 21:54:41	30
@@ -76,6 +76,7 @@
 	$self ? return $self : return undef;
 }
 
+
 =head2 add_member_to_list
 
 Add new member to list
@@ -97,9 +98,11 @@
 
 	my $arg = {@_};
 
-	my $email = $arg->{'email'} || confess "can't add user without e-mail";
+	my $email = $arg->{'email'} || croak "can't add user without e-mail";
 	my $name = $arg->{'name'} || '';
-	confess "need list name" unless ($arg->{'list'});
+	my $list_name = $arg->{'list'} || croak "need list name";
+
+	my $list = $self->_get_list($list_name) || croak "list $list_name doesn't exist";
 
 	if (! Email::Valid->address($email)) {
 		carp "SKIPPING $name <$email>\n" if ($self->{'verbose'});
@@ -108,14 +111,9 @@
 
 	carp "# $name <$email>\n" if ($self->{'verbose'});
 
-	my $lists = $self->{'loader'}->find_class('lists');
 	my $users = $self->{'loader'}->find_class('users');
 	my $user_list = $self->{'loader'}->find_class('user_list');
 
-	my $list = $lists->find_or_create({
-		name => $arg->{'list'},
-	}) || croak "can't add list ",$arg->{'list'},"\n";
-	
 	my $this_user = $users->find_or_create({
 		email => $email,
 		full_name => $name,
@@ -286,6 +284,68 @@
 }
 
 
+=head1 INTERNAL METHODS
+
+Beware of dragons! You shouldn't need to call those methods directly.
+
+=head2 _add_list
+
+Create new list
+
+ my $list_obj = $nos->_add_list(
+ 	list => 'My list',
+	email => 'my-list@example.com',
+ );
+
+Returns C<Class::DBI> object for created list.
+
+=cut
+
+sub _add_list {
+	my $self = shift;
+
+	my $arg = {@_};
+
+	my $name = $arg->{'list'} || confess "can't add list without name";
+	my $email = $arg->{'email'} || confess "can't add list without e-mail";
+
+	my $lists = $self->{'loader'}->find_class('lists');
+
+	my $l = $lists->find_or_create({
+		name => $name,
+		email => $email,
+	});
+	
+	croak "can't add list $name\n" unless ($l);
+
+	$l->dbi_commit;
+
+	return $l;
+
+}
+
+
+=head2 _get_list
+
+Get list C<Class::DBI> object.
+
+ my $list_obj = $nos->check_list('My list');
+
+Returns false on failure.
+
+=cut
+
+sub _get_list {
+	my $self = shift;
+
+	my $name = shift || return;
+
+	my $lists = $self->{'loader'}->find_class('lists');
+
+	return $lists->search({ name => $name });
+}
+
+
 =head1 EXPORT
 
 Nothing.