1174 |
my $self = shift; |
my $self = shift; |
1175 |
|
|
1176 |
if ($_[0] !~ m/^HASH/) { |
if ($_[0] !~ m/^HASH/) { |
1177 |
die "need both list and email" unless (scalar @_ < 2); |
die "need at least list or email" unless (scalar @_ < 2); |
1178 |
return $nos->received_messages( |
return $nos->received_messages( |
1179 |
list => $_[0], email => $_[1], |
list => $_[0], email => $_[1], |
1180 |
); |
); |
1181 |
} else { |
} else { |
1182 |
my $arg = {@_}; |
my $arg = shift; |
1183 |
die "need both list and email" unless ($arg->{'list'} && $arg->{'email'}); |
die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'}); |
1184 |
return $nos->received_messages( $arg ); |
return $nos->received_messages( $arg ); |
1185 |
} |
} |
1186 |
} |
} |