6 use Test::More tests => 10 + 7;
8 require IPC::MorseSignals::Emitter;
10 for (qw/new post pop reset flush busy queued/, qw/new send delay speed/) {
11 ok(IPC::MorseSignals::Emitter->can($_), 'IME can ' . $_);
14 require IPC::MorseSignals::Receiver;
16 for (qw/new push reset busy msg/, qw/new/) {
17 ok(IPC::MorseSignals::Receiver->can($_), 'IMR can ' . $_);