r68811 - in /branches/upstream/libtest-sharedfork-perl/current: Changes META.yml README.mkdn inc/Pod/Markdown.pm lib/Test/SharedFork.pm

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Wed Feb 16 19:42:55 UTC 2011


Author: periapt-guest
Date: Wed Feb 16 19:42:47 2011
New Revision: 68811

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68811
Log:
[svn-upgrade] new version libtest-sharedfork-perl (0.16)

Modified:
    branches/upstream/libtest-sharedfork-perl/current/Changes
    branches/upstream/libtest-sharedfork-perl/current/META.yml
    branches/upstream/libtest-sharedfork-perl/current/README.mkdn
    branches/upstream/libtest-sharedfork-perl/current/inc/Pod/Markdown.pm
    branches/upstream/libtest-sharedfork-perl/current/lib/Test/SharedFork.pm

Modified: branches/upstream/libtest-sharedfork-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-sharedfork-perl/current/Changes?rev=68811&op=diff
==============================================================================
--- branches/upstream/libtest-sharedfork-perl/current/Changes (original)
+++ branches/upstream/libtest-sharedfork-perl/current/Changes Wed Feb 16 19:42:47 2011
@@ -1,4 +1,8 @@
 Revision history for Perl extension Test::SharedFork
+
+0.16
+
+    - doc tweaks
 
 0.15
 

Modified: branches/upstream/libtest-sharedfork-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-sharedfork-perl/current/META.yml?rev=68811&op=diff
==============================================================================
--- branches/upstream/libtest-sharedfork-perl/current/META.yml (original)
+++ branches/upstream/libtest-sharedfork-perl/current/META.yml Wed Feb 16 19:42:47 2011
@@ -23,4 +23,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.15
+version: 0.16

Modified: branches/upstream/libtest-sharedfork-perl/current/README.mkdn
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-sharedfork-perl/current/README.mkdn?rev=68811&op=diff
==============================================================================
--- branches/upstream/libtest-sharedfork-perl/current/README.mkdn (original)
+++ branches/upstream/libtest-sharedfork-perl/current/README.mkdn Wed Feb 16 19:42:47 2011
@@ -22,7 +22,8 @@
 # DESCRIPTION
 
 Test::SharedFork is utility module for Test::Builder.
-This module makes forking test!
+
+This module makes L<fork(2)> safety in your test case.
 
 This module merges test count with parent process & child process.
 

Modified: branches/upstream/libtest-sharedfork-perl/current/inc/Pod/Markdown.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-sharedfork-perl/current/inc/Pod/Markdown.pm?rev=68811&op=diff
==============================================================================
--- branches/upstream/libtest-sharedfork-perl/current/inc/Pod/Markdown.pm (original)
+++ branches/upstream/libtest-sharedfork-perl/current/inc/Pod/Markdown.pm Wed Feb 16 19:42:47 2011
@@ -4,7 +4,9 @@
 use warnings;
 
 package Pod::Markdown;
-our $VERSION = '1.100860';
+BEGIN {
+  $Pod::Markdown::VERSION = '1.103491';
+}
 # ABSTRACT: Convert POD to Markdown
 use parent qw(Pod::Parser);
 
@@ -73,8 +75,7 @@
 }
 
 sub _clean_text {
-    my $parser  = shift;
-    my $text    = shift;
+    my $text    = $_[1];
     my @trimmed = grep { $_; } split(/\n/, $text);
     return wantarray ? @trimmed : join("\n", @trimmed);
 }
@@ -90,8 +91,10 @@
     if ($command =~ m{head(\d)}xms) {
         my $level = $1;
 
+        $paragraph = $parser->interpolate($paragraph, $line_num);
+
         # the headers never are indented
-        $parser->_save(sprintf '%s %s', '#' x $level, $paragraph);
+        $parser->_save($parser->format_header($level, $paragraph));
         if ($level == 1) {
             if ($paragraph =~ m{NAME}xmsi) {
                 $data->{searching} = 'title';
@@ -124,7 +127,7 @@
 }
 
 sub verbatim {
-    my ($parser, $paragraph, $line_num) = @_;
+    my ($parser, $paragraph) = @_;
     $parser->_save($paragraph);
 }
 
@@ -151,8 +154,7 @@
 }
 
 sub interior_sequence {
-    my ($parser, $seq_command, $seq_argument, $pod_seq) = @_;
-    my $data      = $parser->_private;
+    my ($seq_command, $seq_argument, $pod_seq) = @_[1..3];
     my %interiors = (
         'I' => sub { return '_' . $_[1] . '_' },      # italic
         'B' => sub { return '__' . $_[1] . '__' },    # bold
@@ -160,7 +162,7 @@
         'F' => sub { return '`' . $_[1] . '`' },      # system path
         'S' => sub { return '`' . $_[1] . '`' },      # code
         'E' => sub {
-            my ($seq, $charname) = @_;
+            my $charname = $_[1];
             return '<' if $charname eq 'lt';
             return '>' if $charname eq 'gt';
             return '|' if $charname eq 'verbar';
@@ -178,20 +180,32 @@
 }
 
 sub _resolv_link {
-    my ($cmd, $arg, $pod_seq) = @_;
-    if ($arg =~ m{^http|ftp}xms) {
-
-        # direct link to a URL
-        return sprintf '<%s>', $arg;
-    } elsif ($arg =~ m{^(\w+(::\w+)*)$}) {
-        return "[$1](http://search.cpan.org/perldoc?$1)";
+    my ($cmd, $arg) = @_;
+    my $text = $arg =~ s"^(.+?)\|"" ? $1 : '';
+
+    if ($arg =~ m{^http|ftp}xms) { # direct link to a URL
+        $text ||= $arg;
+        return sprintf '[%s](%s)', $text, $arg;
+    } elsif ($arg =~ m{^/(.*)$}) {
+        $text ||= $1;
+        $text = $1;
+        return "[$text](\#pod_$1)";
+    } elsif ($arg =~ m{^(\w+(?:::\w+)*)$}) {
+        $text ||= $1;
+        return "[$text](http://search.cpan.org/perldoc?$1)";
     } else {
         return sprintf '%s<%s>', $cmd, $arg;
     }
 }
+
+sub format_header {
+    my ($level, $paragraph) = @_[1,2];
+    sprintf '%s %s', '#' x $level, $paragraph;
+}
+
 1;
 
 
 __END__
-#line 282
-
+#line 312
+

Modified: branches/upstream/libtest-sharedfork-perl/current/lib/Test/SharedFork.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-sharedfork-perl/current/lib/Test/SharedFork.pm?rev=68811&op=diff
==============================================================================
--- branches/upstream/libtest-sharedfork-perl/current/lib/Test/SharedFork.pm (original)
+++ branches/upstream/libtest-sharedfork-perl/current/lib/Test/SharedFork.pm Wed Feb 16 19:42:47 2011
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use base 'Test::Builder::Module';
-our $VERSION = '0.15';
+our $VERSION = '0.16';
 use Test::Builder 0.32; # 0.32 or later is needed
 use Test::SharedFork::Scalar;
 use Test::SharedFork::Array;
@@ -151,7 +151,8 @@
 =head1 DESCRIPTION
 
 Test::SharedFork is utility module for Test::Builder.
-This module makes forking test!
+
+This module makes L<fork(2)> safety in your test case.
 
 This module merges test count with parent process & child process.
 




More information about the Pkg-perl-cvs-commits mailing list