package Exim::Runtest;
+use 5.010;
use strict;
use warnings;
use IO::Socket::INET;
use Carp;
+use parent 'Exporter';
+our @EXPORT_OK = qw(mailgroup dynamic_socket);
+our %EXPORT_TAGS = (
+ all => \@EXPORT_OK,
+);
+
use List::Util qw'shuffle';
=head1 NAME
=cut
sub mailgroup {
- my $group = shift;
+ my $group = shift // croak "Need a default group name.";
croak "Need a group *name*, not a numeric group id."
if $group =~ /^\d+$/;