X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FBit%2FMorseSignals.pm;h=f6475dc2dbff6ed0210420d8adb542890db8185b;hb=7def52117700e2492a107867e95a7ccec38b2df6;hp=3add7d6bffdd2892315ae93902fb08714e62b71a;hpb=8ce9fd9d5f4e6197d1a33a3fd11953cc1dc3b31f;p=perl%2Fmodules%2FBit-MorseSignals.git diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm index 3add7d6..f6475dc 100644 --- a/lib/Bit/MorseSignals.pm +++ b/lib/Bit/MorseSignals.pm @@ -9,19 +9,19 @@ Bit::MorseSignals - The MorseSignals protocol. =head1 VERSION -Version 0.05 +Version 0.07 =cut -our $VERSION = '0.05'; +our $VERSION = '0.07'; =head1 SYNOPSIS use Bit::MorseSignals::Emitter; use Bit::MorseSignals::Receiver; - my $deuce = new Bit::MorseSignals::Emitter; - my $pants = new Bit::MorseSignals::Receiver done => sub { print $_[1], "\n" }; + my $deuce = Bit::MorseSignals::Emitter->new; + my $pants = Bit::MorseSignals::Receiver->new(done => sub { print $_[1], "\n" }); $deuce->post('HLAGH') for 1 .. 3; $pants->push while defined ($_ = $deuce->pop); @@ -106,11 +106,11 @@ The constants L, L, L and L; our @EXPORT = (); our %EXPORT_TAGS = ( - 'consts' => [ qw/BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE/ ] + 'consts' => [ qw ] ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ]; @@ -127,7 +127,7 @@ L, L. Vincent Pit, C<< >>, L. -You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince). +You can contact me by mail or on C (vincent). =head1 BUGS @@ -139,6 +139,8 @@ You can find documentation for this module with the perldoc command. perldoc Bit::MorseSignals +Tests code coverage report is available at L. + =head1 COPYRIGHT & LICENSE Copyright 2008 Vincent Pit, all rights reserved.