=head1 VERSION
-Version 0.01
+Version 0.08
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.08';
+
+=head1 SYNOPSIS
+
+ use Bit::MorseSignals::Emitter;
+ use Bit::MorseSignals::Receiver;
+
+ 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);
=head1 DESCRIPTION
=over 4
-=item L<Bit::MorseSignals::Emitter> is a base class for emitters ;
+=item *
+
+L<Bit::MorseSignals::Emitter> is a base class for emitters ;
+
+=item *
-=item L<Bit::MorseSignals::Receiver> is a base class for receivers ;
+L<Bit::MorseSignals::Receiver> is a base class for receivers.
=back
=over 4
-=item - The 2 first ones denotes the data type : a value of 0 is used for a plain string, 1 for an UTF-8 encoded string, and 2 for a L<Storable> object. See also the L</CONSTANTS> sections ;
+=item *
-=item - The third one is reserved. For compatibility reasons, the receiver should for now enforce the message data type to plain when this bit is lit.
+The 2 first ones denote the data type : a value of 0 is used for a plain string, 1 for an UTF-8 encoded string, and 2 for a L<Storable> object. See also the L</CONSTANTS> section ;
+
+=item *
+
+The third one is reserved. For compatibility reasons, the receiver should for now enforce the message data type to plain when this bit is lit.
=back
=over 4
-=item - If m > n, we take n+1 times 1 followed by one 0 ;
+=item *
+
+If m > n, we take n+1 times 1 followed by one 0 ;
-=item - Otherwise, we take m+1 times 0 followed by one 1.
+=item *
+
+Otherwise, we take m+1 times 0 followed by one 1.
=back
=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 ];
=head1 AUTHOR
-Vincent Pit, C<< <perl at profvince.com> >>
+Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
-You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince).
+You can contact me by mail or on C<irc.perl.org> (vincent).
=head1 BUGS
perldoc Bit::MorseSignals
+Tests code coverage report is available at L<http://www.profvince.com/perl/cover/Bit-MorseSignals>.
+
=head1 COPYRIGHT & LICENSE
Copyright 2008 Vincent Pit, all rights reserved.