X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FIPC%2FMorseSignals%2FReceiver.pm;h=96d04201a1e0b288fc9a855010c1afad1b6a7ff0;hb=cbd0d5635c26b4203e32f543f4a3b323a6875b41;hp=1d8472f5acd31f74299d85a61b83d8f137e67a15;hpb=042406e3ab0710d6691b95bb344cbb37453d8fdb;p=perl%2Fmodules%2FIPC-MorseSignals.git diff --git a/lib/IPC/MorseSignals/Receiver.pm b/lib/IPC/MorseSignals/Receiver.pm index 1d8472f..96d0420 100644 --- a/lib/IPC/MorseSignals/Receiver.pm +++ b/lib/IPC/MorseSignals/Receiver.pm @@ -3,10 +3,10 @@ package IPC::MorseSignals::Receiver; use strict; use warnings; -use Carp qw/croak/; +use Carp qw; use Bit::MorseSignals::Receiver; -use base qw/Bit::MorseSignals::Receiver/; +use base qw; =head1 NAME @@ -31,7 +31,7 @@ our $VERSION = '0.16'; =head1 DESCRIPTION -This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits received to an underlying L receiver. +This module installs C<< $SIG{qw} >> handlers and forwards the bits received to an underlying L receiver. =head1 METHODS @@ -39,7 +39,8 @@ This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits recei my $imr = IPC::MorseSignals::Receiver->new(%bmr_options); -Creates a new receiver object. Its arguments are passed to L, in particular the C callback. +Creates a new receiver object. +Its arguments are passed to L, in particular the C callback. =cut @@ -50,7 +51,7 @@ sub new { croak 'The first argument must be a hash reference to the %SIG hash' unless $sig and ref $sig eq 'HASH'; my $self = bless $class->SUPER::new(@_), $class; - @{$sig}{qw/USR1 USR2/} = (sub { $self->push(0) }, sub { $self->push(1) }); + @{$sig}{qw} = (sub { $self->push(0) }, sub { $self->push(1) }); return $self; } @@ -86,7 +87,8 @@ You can contact me by mail or on C (vincent). =head1 BUGS -Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. +Please report any bugs or feature requests to C, or through the web interface at L. +I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT