X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FBit%2FMorseSignals.pm;h=fa97151500a770baf65226494827396617ba2e52;hb=a6066756b2f156893cc18bb33c4f55af672c588b;hp=8e1a892e799ed16ae018269262c4beadda1fe021;hpb=c897b49aebc38815d86d180f6009b3a480d5e907;p=perl%2Fmodules%2FBit-MorseSignals.git

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index 8e1a892..fa97151 100644
--- a/lib/Bit/MorseSignals.pm
+++ b/lib/Bit/MorseSignals.pm
@@ -9,19 +9,19 @@ Bit::MorseSignals - The MorseSignals protocol.
 
 =head1 VERSION
 
-Version 0.06
+Version 0.08
 
 =cut
 
-our $VERSION = '0.06';
+our $VERSION = '0.08';
 
 =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</BM_DATA_AUTO>, L</BM_DATA_PLAIN>, L</BM_DATA_UTF8> and L</BM_DA
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'consts' => [ qw/BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE/ ]
+ 'consts' => [ qw<BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE> ]
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];