14 |
|
|
15 |
$soap->on_debug(sub{print "# ",@_}) if ($debug); |
$soap->on_debug(sub{print "# ",@_}) if ($debug); |
16 |
|
|
17 |
my $list_id = $soap->NewList({ |
my $list_id = $soap->CreateList({ |
18 |
list => 'My list', |
list => 'My list', |
19 |
email => 'my-soap@example.com', |
email => 'my-soap@example.com', |
20 |
})->result || die "can't add list"; |
})->result || die "can't add list"; |
61 |
|
|
62 |
print "deleted member\n"; |
print "deleted member\n"; |
63 |
|
|
64 |
$soap->DeleteList({ |
$soap->DropList({ |
65 |
list => 'My list' |
list => 'My list' |
66 |
}); |
}); |
67 |
|
|