Importing Bit-MorseSignals-0.05.tar.gz

diff --git a/Changes b/Changes
index 4fa24df5c2bdfc161a106b73adfb635bd3b8c30e..7dfb54837e423da7f333183772117f63a60b5963 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Bit-MorseSignals
 
+0.05    2008-03-13 23:05 UTC
+        + Add : The len and pos emitter methods.
+        + Fix : The usual set of POD typos.
+        + Fix : Propagate demangler errors as warnings.
+        + Tst : Small improvments.
+
 0.04    2008-03-06 14:55 UTC
         + Doc : POD tweaks.
         + Fix : Correct dependencies listing in META.yml.

diff --git a/META.yml b/META.yml
index 0b4087a36a97920fc6da5f7b3e41d59d1ecd120f..ce749cd5d08c6b93256e217c81f9b7e465d2959c 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,11 +1,11 @@
 --- #YAML:1.0
 name:                Bit-MorseSignals
-version:             0.04
+version:             0.05
 abstract:            The MorseSignals protocol.
 license:             perl
 author:              
     - Vincent Pit <perl@profvince.com>
-generated_by:        ExtUtils::MakeMaker version 6.44
+generated_by:        ExtUtils::MakeMaker version 6.42
 distribution_type:   module
 requires:     
     Carp:                          0

diff --git a/Makefile.PL b/Makefile.PL
index 00a75323ebde8192e6af2a784d5467884a3fcfe8..c1e4b26eb3bf385f64677693213abf63658cee27 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -19,22 +19,22 @@ sub build_req {
 }
 
 WriteMakefile(
-    NAME                => 'Bit::MorseSignals',
-    AUTHOR              => 'Vincent Pit <perl@profvince.com>',
-    LICENSE             => 'perl',
-    VERSION_FROM        => 'lib/Bit/MorseSignals.pm',
-    ABSTRACT_FROM       => 'lib/Bit/MorseSignals.pm',
-    PL_FILES            => {},
-    PREREQ_PM => {
-        'Carp'       => 0,
-        'Encode'     => 0,
-        'Exporter'   => 0,
-        'Storable'   => 0,
+    NAME          => 'Bit::MorseSignals',
+    AUTHOR        => 'Vincent Pit <perl@profvince.com>',
+    LICENSE       => 'perl',
+    VERSION_FROM  => 'lib/Bit/MorseSignals.pm',
+    ABSTRACT_FROM => 'lib/Bit/MorseSignals.pm',
+    PL_FILES      => {},
+    PREREQ_PM     => {
+        'Carp'     => 0,
+        'Encode'   => 0,
+        'Exporter' => 0,
+        'Storable' => 0,
     },
-    dist                => { 
-        PREOP => 'pod2text lib/Bit/MorseSignals.pm > $(DISTVNAME)/README; '
-                 . build_req,
-        COMPRESS => 'gzip -9f', SUFFIX => 'gz'
+    dist          => { 
+        PREOP      => 'pod2text lib/Bit/MorseSignals.pm > $(DISTVNAME)/README; '
+                      . build_req,
+        COMPRESS   => 'gzip -9f', SUFFIX => 'gz'
     },
-    clean               => { FILES => 'Bit-MorseSignals-*' },
+    clean         => { FILES => 'Bit-MorseSignals-*' },
 );

diff --git a/README b/README
index 167f19dace139fe8416666980c27665424a034e0..4f57451e59f91833038f71e1f778dd4b7de2805d 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Bit::MorseSignals - The MorseSignals protocol.
 
 VERSION
-    Version 0.04
+    Version 0.05
 
 SYNOPSIS
         use Bit::MorseSignals::Emitter;
@@ -25,7 +25,7 @@ DESCRIPTION
     An actual implementation is also provided :
 
     Bit::MorseSignals::Emitter is a base class for emitters ;
-    Bit::MorseSignals::Receiver is a base class for receivers ;
+    Bit::MorseSignals::Receiver is a base class for receivers.
 
     Go to those pages if you just want the stuff done and don't care about
     how it gets there.

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index 2f5b1676102c7c351d1acb6ca63c2289bcea3b7c..3add7d6bffdd2892315ae93902fb08714e62b71a 100644 (file)
--- a/lib/Bit/MorseSignals.pm
+++ b/lib/Bit/MorseSignals.pm
@@ -9,11 +9,11 @@ Bit::MorseSignals - The MorseSignals protocol.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 
@@ -36,7 +36,7 @@ An actual implementation is also provided :
 
 =item L<Bit::MorseSignals::Emitter> is a base class for emitters ;
 
-=item L<Bit::MorseSignals::Receiver> is a base class for receivers ;
+=item L<Bit::MorseSignals::Receiver> is a base class for receivers.
 
 =back
 

diff --git a/lib/Bit/MorseSignals/Emitter.pm b/lib/Bit/MorseSignals/Emitter.pm
index 0bf93b06a3538db50a2df23b7cc7b7aecaf3b1de..441e6e4cc5dd5702f3f4aa4d34c3d5589244578a 100644 (file)
--- a/lib/Bit/MorseSignals/Emitter.pm
+++ b/lib/Bit/MorseSignals/Emitter.pm
@@ -15,11 +15,11 @@ Bit::MorseSignals::Emitter - Base class for Bit::MorseSignals emitters.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 
@@ -176,6 +176,30 @@ sub pop {
  return $bit;
 }
 
+=head2 C<len>
+
+The length of the currently posted message.
+
+=cut
+
+sub len {
+ my ($self) = @_;
+ _check_self($self);
+ return $self->{len};
+}
+
+=head2 C<pos>
+
+The number of bits that have already been sent for the current message.
+
+=cut
+
+sub pos {
+ my ($self) = @_;
+ _check_self($self);
+ return $self->{pos};
+}
+
 =head2 C<reset>
 
 Cancels the current transfer, but does not empty the queue.

diff --git a/lib/Bit/MorseSignals/Receiver.pm b/lib/Bit/MorseSignals/Receiver.pm
index 87c0a5b3ad450980dc5087272aead1f40a937545..a829f36645b7166f1c46329a9f1561ef154e5ebe 100644 (file)
--- a/lib/Bit/MorseSignals/Receiver.pm
+++ b/lib/Bit/MorseSignals/Receiver.pm
@@ -15,11 +15,11 @@ Bit::MorseSignals::Receiver - Base class for Bit::MorseSignals receivers.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 
@@ -101,6 +101,7 @@ sub push {
     $self->{msg} = defined $demanglers[$self->{type}]
                     ? do {
                        my $msg = eval {
+                        local $SIG{__DIE__} = sub { warn @_ };
                         $demanglers[$self->{type}]->($self->{buf})
                        };
                        $@ ? undef : $msg;

diff --git a/t/02-can.t b/t/02-can.t
index dc87461819f2a7c80d3753e1482e3958189513cc..f29e6361eb3a1597ee06b3e85fa7c6c76d283e00 100644 (file)
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7 + 5;
+use Test::More tests => 9 + 5;
 
 require Bit::MorseSignals::Emitter;
 
-for (qw/new post pop reset flush busy queued/) {
+for (qw/new post pop len pos reset flush busy queued/) {
  ok(Bit::MorseSignals::Emitter->can($_), 'BME can ' . $_);
 }
 

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index c3c08e2e2b7bf19100fd0eee818d0f312bc1b08a..b4aff527c4f907291247ef15a1da24f56356e07d 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -8,16 +8,14 @@ use Test::More;
 # Ensure a recent version of Test::Pod::Coverage
 my $min_tpc = 1.08;
 eval "use Test::Pod::Coverage $min_tpc";
-plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
-    if $@;
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" if $@;
 
 # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
 # but older versions don't recognize some common documentation styles
 my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
-plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
-    if $@;
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
 all_pod_coverage_ok(
- also_private => [ qr/^_/ ]
+ { also_private => [ qr/^_/ ] }
 );