gistfile1.txt

my %MM_Options;

my @C_Modules = qw(
    callbacks convert ctor async_base async_callbacks async_events);
my @XS_Modules = qw(Client Client_multi);

foreach (@XS_Modules, @C_Modules) {
    my $obj = $_ . $Config{obj_ext};
    push @{ $MM_Options{OBJECT} }, File::Spec->catfile('xs', $obj);
}

$MM_Options{OBJECT} = join(' ', @{$MM_Options{OBJECT}});

foreach my $xs (@XS_Modules) {
    $xs = File::Spec->catfile('xs', $xs);
    my $c = "$xs.c";
    $xs = "$xs.xs";
    $MM_Options{XS}->{$xs} = $c;
}