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
 
 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.
 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
 --- #YAML:1.0
 name:                Bit-MorseSignals

-version:             0.04
+version:             0.05

 abstract:            The MorseSignals protocol.
 license:             perl
 author:              
     - Vincent Pit <perl@profvince.com>
 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
 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(
 }
 
 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
     Bit::MorseSignals - The MorseSignals protocol.
 
 VERSION

-    Version 0.04
+    Version 0.05

 
 SYNOPSIS
         use Bit::MorseSignals::Emitter;
 
 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 ;
     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.
 
     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
 
 
 =head1 VERSION
 

-Version 0.04
+Version 0.05

 
 =cut
 
 
 =cut
 

-our $VERSION = '0.04';
+our $VERSION = '0.05';

 
 =head1 SYNOPSIS
 
 
 =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::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
 
 
 =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
 
 
 =head1 VERSION
 

-Version 0.04
+Version 0.05

 
 =cut
 
 
 =cut
 

-our $VERSION = '0.04';
+our $VERSION = '0.05';

 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 


@@ -176,6 +176,30 @@ sub pop {
  return $bit;
 }
 
  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.
 =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
 
 
 =head1 VERSION
 

-Version 0.04
+Version 0.05

 
 =cut
 
 
 =cut
 

-our $VERSION = '0.04';
+our $VERSION = '0.05';

 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 


@@ -101,6 +101,7 @@ sub push {
     $self->{msg} = defined $demanglers[$self->{type}]
                     ? do {
                        my $msg = eval {
     $self->{msg} = defined $demanglers[$self->{type}]
                     ? do {
                        my $msg = eval {

+                        local $SIG{__DIE__} = sub { warn @_ };

                         $demanglers[$self->{type}]->($self->{buf})
                        };
                        $@ ? undef : $msg;
                         $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 strict;
 use warnings;
 

-use Test::More tests => 7 + 5;
+use Test::More tests => 9 + 5;

 
 require Bit::MorseSignals::Emitter;
 
 
 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 ' . $_);
 }
 
  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";
 # 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";
 
 # 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(
 
 all_pod_coverage_ok(

- also_private => [ qr/^_/ ]
+ { also_private => [ qr/^_/ ] }

 );
 );