r63897 - in /trunk/libstring-formatter-perl: Changes MANIFEST META.json META.yml Makefile.PL README debian/changelog debian/control debian/copyright dist.ini lib/String/Formatter.pm lib/String/Formatter/Cookbook.pm notes.txt

ansgar at users.alioth.debian.org ansgar at users.alioth.debian.org
Sun Oct 17 23:21:40 UTC 2010


Author: ansgar
Date: Sun Oct 17 23:21:28 2010
New Revision: 63897

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63897
Log:
* New upstream release.
* debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
  systems".
* Update my email address.

Removed:
    trunk/libstring-formatter-perl/notes.txt
Modified:
    trunk/libstring-formatter-perl/Changes
    trunk/libstring-formatter-perl/MANIFEST
    trunk/libstring-formatter-perl/META.json
    trunk/libstring-formatter-perl/META.yml
    trunk/libstring-formatter-perl/Makefile.PL
    trunk/libstring-formatter-perl/README
    trunk/libstring-formatter-perl/debian/changelog
    trunk/libstring-formatter-perl/debian/control
    trunk/libstring-formatter-perl/debian/copyright
    trunk/libstring-formatter-perl/dist.ini
    trunk/libstring-formatter-perl/lib/String/Formatter.pm
    trunk/libstring-formatter-perl/lib/String/Formatter/Cookbook.pm

Modified: trunk/libstring-formatter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/Changes?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/Changes (original)
+++ trunk/libstring-formatter-perl/Changes Sun Oct 17 23:21:28 2010
@@ -1,4 +1,9 @@
 Revision history for String-Formatter
+
+0.102081  2010-10-17 13:40:26 America/New_York
+          allow subclasses to provide default_codes
+
+          implement %% in a simpler, but not quite perl-like, way
 
 0.102080  2010-07-27 22:07:11 America/New_York
           input hunkers have been tweaked and more fully documented

Modified: trunk/libstring-formatter-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/MANIFEST?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/MANIFEST (original)
+++ trunk/libstring-formatter-perl/MANIFEST Sun Oct 17 23:21:28 2010
@@ -9,7 +9,6 @@
 dist.ini
 lib/String/Formatter.pm
 lib/String/Formatter/Cookbook.pm
-notes.txt
 t/basic.t
 t/braces.t
 t/method.t

Modified: trunk/libstring-formatter-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/META.json?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/META.json (original)
+++ trunk/libstring-formatter-perl/META.json Sun Oct 17 23:21:28 2010
@@ -5,7 +5,7 @@
       "Darren Chamberlain <darren at cpan.org>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670",
+   "generated_by" : "Dist::Zilla version 4.102342, CPAN::Meta::Converter version 2.102400",
    "license" : [
       "gpl_2"
    ],
@@ -40,174 +40,163 @@
          "url" : "git://git.codesimply.com/String-Formatter.git"
       }
    },
-   "version" : "0.102080",
+   "version" : "0.102081",
    "x_Dist_Zilla" : {
       "plugins" : [
          {
-            "class" : "Dist::Zilla::Plugin::Prereq",
-            "config" : {
-               "Dist::Zilla::Plugin::Prereqs" : {
-                  "phase" : "runtime",
-                  "type" : "requires"
-               }
-            },
-            "name" : "Prereq",
-            "version" : "4.101900"
-         },
-         {
             "class" : "Dist::Zilla::Plugin::GatherDir",
             "name" : "@RJBS/@Basic/GatherDir",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::PruneCruft",
             "name" : "@RJBS/@Basic/PruneCruft",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::ManifestSkip",
             "name" : "@RJBS/@Basic/ManifestSkip",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaYAML",
             "name" : "@RJBS/@Basic/MetaYAML",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::License",
             "name" : "@RJBS/@Basic/License",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::Readme",
             "name" : "@RJBS/@Basic/Readme",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::ExtraTests",
             "name" : "@RJBS/@Basic/ExtraTests",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::ExecDir",
             "name" : "@RJBS/@Basic/ExecDir",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::ShareDir",
             "name" : "@RJBS/@Basic/ShareDir",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::MakeMaker",
             "name" : "@RJBS/@Basic/MakeMaker",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::Manifest",
             "name" : "@RJBS/@Basic/Manifest",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::TestRelease",
             "name" : "@RJBS/@Basic/TestRelease",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::ConfirmRelease",
             "name" : "@RJBS/@Basic/ConfirmRelease",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::UploadToCPAN",
             "name" : "@RJBS/@Basic/UploadToCPAN",
-            "version" : "4.101900"
-         },
-         {
-            "class" : "Dist::Zilla::Plugin::AutoPrereq",
-            "name" : "@RJBS/AutoPrereq",
-            "version" : "4.101900"
-         },
-         {
-            "class" : "Dist::Zilla::Plugin::AutoVersion",
-            "name" : "@RJBS/AutoVersion",
-            "version" : "4.101900"
+            "version" : "4.102342"
+         },
+         {
+            "class" : "Dist::Zilla::Plugin::AutoPrereqs",
+            "name" : "@RJBS/AutoPrereqs",
+            "version" : "4.102342"
+         },
+         {
+            "class" : "Dist::Zilla::Plugin::Git::NextVersion",
+            "name" : "@RJBS/Git::NextVersion",
+            "version" : "1.102810"
          },
          {
             "class" : "Dist::Zilla::Plugin::PkgVersion",
             "name" : "@RJBS/PkgVersion",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaConfig",
             "name" : "@RJBS/MetaConfig",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaJSON",
             "name" : "@RJBS/MetaJSON",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::NextRelease",
             "name" : "@RJBS/NextRelease",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
             "name" : "@RJBS/PodSyntaxTests",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::Repository",
             "name" : "@RJBS/Repository",
-            "version" : "0.13"
+            "version" : "0.14"
          },
          {
             "class" : "Dist::Zilla::Plugin::PodWeaver",
             "name" : "@RJBS/PodWeaver",
-            "version" : "3.101640"
+            "version" : "3.101641"
          },
          {
             "class" : "Dist::Zilla::Plugin::Git::Check",
             "name" : "@RJBS/@Git/Check",
-            "version" : "1.102040"
+            "version" : "1.102810"
          },
          {
             "class" : "Dist::Zilla::Plugin::Git::Commit",
             "name" : "@RJBS/@Git/Commit",
-            "version" : "1.102040"
+            "version" : "1.102810"
          },
          {
             "class" : "Dist::Zilla::Plugin::Git::Tag",
             "name" : "@RJBS/@Git/Tag",
-            "version" : "1.102040"
+            "version" : "1.102810"
          },
          {
             "class" : "Dist::Zilla::Plugin::Git::Push",
             "name" : "@RJBS/@Git/Push",
-            "version" : "1.102040"
+            "version" : "1.102810"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":InstallModules",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":TestFiles",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":ExecFiles",
-            "version" : "4.101900"
+            "version" : "4.102342"
          },
          {
             "class" : "Dist::Zilla::Plugin::FinderCode",
             "name" : ":ShareFiles",
-            "version" : "4.101900"
+            "version" : "4.102342"
          }
       ],
       "zilla" : {
@@ -215,7 +204,7 @@
          "config" : {
             "is_trial" : 0
          },
-         "version" : "4.101900"
+         "version" : "4.102342"
       }
    }
 }

Modified: trunk/libstring-formatter-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/META.yml?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/META.yml (original)
+++ trunk/libstring-formatter-perl/META.yml Sun Oct 17 23:21:28 2010
@@ -8,7 +8,7 @@
 configure_requires:
   ExtUtils::MakeMaker: 6.31
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.102342, CPAN::Meta::Converter version 2.102400'
 license: gpl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,143 +20,135 @@
   perl: 5.006
 resources:
   repository: git://git.codesimply.com/String-Formatter.git
-version: 0.102080
+version: 0.102081
 x_Dist_Zilla:
   plugins:
     -
-      class: Dist::Zilla::Plugin::Prereq
-      config:
-        Dist::Zilla::Plugin::Prereqs:
-          phase: runtime
-          type: requires
-      name: Prereq
-      version: 4.101900
-    -
       class: Dist::Zilla::Plugin::GatherDir
       name: '@RJBS/@Basic/GatherDir'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::PruneCruft
       name: '@RJBS/@Basic/PruneCruft'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::ManifestSkip
       name: '@RJBS/@Basic/ManifestSkip'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::MetaYAML
       name: '@RJBS/@Basic/MetaYAML'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::License
       name: '@RJBS/@Basic/License'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::Readme
       name: '@RJBS/@Basic/Readme'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::ExtraTests
       name: '@RJBS/@Basic/ExtraTests'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::ExecDir
       name: '@RJBS/@Basic/ExecDir'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::ShareDir
       name: '@RJBS/@Basic/ShareDir'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::MakeMaker
       name: '@RJBS/@Basic/MakeMaker'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::Manifest
       name: '@RJBS/@Basic/Manifest'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::TestRelease
       name: '@RJBS/@Basic/TestRelease'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::ConfirmRelease
       name: '@RJBS/@Basic/ConfirmRelease'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::UploadToCPAN
       name: '@RJBS/@Basic/UploadToCPAN'
-      version: 4.101900
+      version: 4.102342
     -
-      class: Dist::Zilla::Plugin::AutoPrereq
-      name: '@RJBS/AutoPrereq'
-      version: 4.101900
+      class: Dist::Zilla::Plugin::AutoPrereqs
+      name: '@RJBS/AutoPrereqs'
+      version: 4.102342
     -
-      class: Dist::Zilla::Plugin::AutoVersion
-      name: '@RJBS/AutoVersion'
-      version: 4.101900
+      class: Dist::Zilla::Plugin::Git::NextVersion
+      name: '@RJBS/Git::NextVersion'
+      version: 1.102810
     -
       class: Dist::Zilla::Plugin::PkgVersion
       name: '@RJBS/PkgVersion'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::MetaConfig
       name: '@RJBS/MetaConfig'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::MetaJSON
       name: '@RJBS/MetaJSON'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::NextRelease
       name: '@RJBS/NextRelease'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::PodSyntaxTests
       name: '@RJBS/PodSyntaxTests'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::Repository
       name: '@RJBS/Repository'
-      version: 0.13
+      version: 0.14
     -
       class: Dist::Zilla::Plugin::PodWeaver
       name: '@RJBS/PodWeaver'
-      version: 3.101640
+      version: 3.101641
     -
       class: Dist::Zilla::Plugin::Git::Check
       name: '@RJBS/@Git/Check'
-      version: 1.102040
+      version: 1.102810
     -
       class: Dist::Zilla::Plugin::Git::Commit
       name: '@RJBS/@Git/Commit'
-      version: 1.102040
+      version: 1.102810
     -
       class: Dist::Zilla::Plugin::Git::Tag
       name: '@RJBS/@Git/Tag'
-      version: 1.102040
+      version: 1.102810
     -
       class: Dist::Zilla::Plugin::Git::Push
       name: '@RJBS/@Git/Push'
-      version: 1.102040
+      version: 1.102810
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':InstallModules'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':TestFiles'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':ExecFiles'
-      version: 4.101900
+      version: 4.102342
     -
       class: Dist::Zilla::Plugin::FinderCode
       name: ':ShareFiles'
-      version: 4.101900
+      version: 4.102342
   zilla:
     class: Dist::Zilla::Dist::Builder
     config:
       is_trial: 0
-    version: 4.101900
+    version: 4.102342

Modified: trunk/libstring-formatter-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/Makefile.PL?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/Makefile.PL (original)
+++ trunk/libstring-formatter-perl/Makefile.PL Sun Oct 17 23:21:28 2010
@@ -25,7 +25,7 @@
     'Params::Util' => '0',
     'Sub::Exporter' => '0'
   },
-  'VERSION' => '0.102080',
+  'VERSION' => '0.102081',
   'test' => {
     'TESTS' => 't/*.t'
   }

Modified: trunk/libstring-formatter-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/README?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/README (original)
+++ trunk/libstring-formatter-perl/README Sun Oct 17 23:21:28 2010
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution String-Formatter,
-version 0.102080:
+version 0.102081:
 
   build sprintf-like functions of your own
 

Modified: trunk/libstring-formatter-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/debian/changelog?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/debian/changelog (original)
+++ trunk/libstring-formatter-perl/debian/changelog Sun Oct 17 23:21:28 2010
@@ -1,8 +1,15 @@
-libstring-formatter-perl (0.102080-2) UNRELEASED; urgency=low
+libstring-formatter-perl (0.102081-1) unstable; urgency=low
 
+  [ Salvatore Bonaccorso ]
   * Update my email address.
 
- -- Salvatore Bonaccorso <carnil at debian.org>  Sun, 10 Oct 2010 15:03:37 +0200
+  [ Ansgar Burchardt ]
+  * New upstream release.
+  * debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
+    systems".
+  * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Mon, 18 Oct 2010 01:18:51 +0200
 
 libstring-formatter-perl (0.102080-1) unstable; urgency=low
 

Modified: trunk/libstring-formatter-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/debian/control?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/debian/control (original)
+++ trunk/libstring-formatter-perl/debian/control Sun Oct 17 23:21:28 2010
@@ -7,7 +7,7 @@
  perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
- Ansgar Burchardt <ansgar at 43-1.org>,
+ Ansgar Burchardt <ansgar at debian.org>,
  Salvatore Bonaccorso <carnil at debian.org>
 Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/String-Formatter/

Modified: trunk/libstring-formatter-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/debian/copyright?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/debian/copyright (original)
+++ trunk/libstring-formatter-perl/debian/copyright Sun Oct 17 23:21:28 2010
@@ -11,7 +11,7 @@
 
 Files: debian/*
 Copyright: 2009, gregor herrmann <gregoa at debian.org>
- 2010, Ansgar Burchardt <ansgar at 43-1.org>
+ 2010, Ansgar Burchardt <ansgar at debian.org>
  2010, Jonathan Yu <jawnsy at cpan.org>
  2010, Salvatore Bonaccorso <carnil at debian.org>
 License: Artistic or GPL-1+
@@ -20,8 +20,8 @@
  This program is free software; you can redistribute it and/or modify
  it under the terms of the Artistic License, which comes with Perl.
  .
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'.
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'.
 
 License: GPL-1+
  This program is free software; you can redistribute it and/or modify
@@ -29,13 +29,13 @@
  the Free Software Foundation; either version 1, or (at your option)
  any later version.
  .
- On Debian GNU/Linux systems, the complete text of version 1 of the
- General Public License can be found in `/usr/share/common-licenses/GPL-1'.
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
 
 License: GPL-2
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; version 2 dated June, 1991.
  .
- On Debian GNU/Linux systems, the complete text of version 2 of the GNU
- General Public License can be found in `/usr/share/common-licenses/GPL-2'.
+ On Debian systems, the complete text of version 2 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-2'.

Modified: trunk/libstring-formatter-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/dist.ini?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/dist.ini (original)
+++ trunk/libstring-formatter-perl/dist.ini Sun Oct 17 23:21:28 2010
@@ -4,8 +4,4 @@
 license = GPL_2 ; inherited this from darren at cpan
 copyright_holder = Ricardo Signes <rjbs at cpan.org>
 
-[Prereq]
-Params::Util  = 0
-Sub::Exporter = 0
-
 [@RJBS]

Modified: trunk/libstring-formatter-perl/lib/String/Formatter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/lib/String/Formatter.pm?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/lib/String/Formatter.pm (original)
+++ trunk/libstring-formatter-perl/lib/String/Formatter.pm Sun Oct 17 23:21:28 2010
@@ -2,7 +2,7 @@
 use warnings;
 package String::Formatter;
 BEGIN {
-  $String::Formatter::VERSION = '0.102080';
+  $String::Formatter::VERSION = '0.102081';
 }
 # ABSTRACT: build sprintf-like functions of your own
 
@@ -55,7 +55,7 @@
     string_replacer => 'positional_replace',
     hunk_formatter  => 'format_simply',
   );
-  
+
   no strict 'refs';
   for my $method (keys %METHODS) {
     *$method = sub { $_[0]->{ $method } };
@@ -66,10 +66,19 @@
 }
 
 
+sub default_codes {
+  return {};
+}
+
 sub new {
   my ($class, $arg) = @_;
 
-  my $self = bless { codes => $arg->{codes} } => $class;
+  my $_codes = {
+    %{ $class->default_codes },
+    %{ $arg->{codes} || {} },
+  };
+
+  my $self = bless { codes => $_codes } => $class;
 
   for (keys %METHODS) {
     $self->{ $_ } = $arg->{ $_ } || do {
@@ -81,9 +90,6 @@
   }
 
   my $codes = $self->codes;
-
-  Carp::confess("you must not supply a % format") if defined $codes->{'%'};
-  $codes->{'%'} = '%';
 
   return $self;
 }
@@ -143,6 +149,8 @@
       conversion  => $7,
     };
 
+    $to_fmt[-1] = '%' if $to_fmt[-1]{literal} eq '%%';
+
     $pos = pos $string;
   }
 
@@ -199,7 +207,7 @@
 
 sub __closure_replace {
   my ($closure) = @_;
-  
+
   return sub {
     my ($self, $hunks, $input) = @_;
 
@@ -227,6 +235,7 @@
   };
 }
 
+# $self->$string_replacer($hunks, $input);
 BEGIN {
   *positional_replace = __closure_replace(sub {
     my ($self, $arg) = @_;
@@ -300,7 +309,7 @@
 
 =head1 VERSION
 
-version 0.102080
+version 0.102081
 
 =head1 WARNING
 
@@ -553,6 +562,19 @@
 Even things like C<2$> and C<*> are probably not going to appear in
 String::Formatter's default behavior.
 
+Another subtle difference, introduced intentionally, is in the handling of
+C<%%>.  With the default String::Formatter behavior, string C<%%> is not
+interpreted as a formatting code.  This is different from the behavior of
+Perl's C<sprintf>, which interprets it as a special formatting character that
+doesn't consume input and always acts like the fixed string C<%>.  The upshot
+of this is:
+
+  sprintf "%%";   # ==> returns "%"
+  stringf "%%";   # ==> returns "%%"
+
+  sprintf "%10%"; # ==> returns "         %"
+  stringf "%10%"; # ==> dies: unknown format code %
+
 =for Pod::Coverage codes 
   default_format_hunker
   default_input_processor

Modified: trunk/libstring-formatter-perl/lib/String/Formatter/Cookbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-formatter-perl/lib/String/Formatter/Cookbook.pm?rev=63897&op=diff
==============================================================================
--- trunk/libstring-formatter-perl/lib/String/Formatter/Cookbook.pm (original)
+++ trunk/libstring-formatter-perl/lib/String/Formatter/Cookbook.pm Sun Oct 17 23:21:28 2010
@@ -2,7 +2,7 @@
 use warnings;
 package String::Formatter::Cookbook;
 BEGIN {
-  $String::Formatter::Cookbook::VERSION = '0.102080';
+  $String::Formatter::Cookbook::VERSION = '0.102081';
 }
 # ABSTRACT: ways to put String::Formatter to use
 1;
@@ -17,7 +17,7 @@
 
 =head1 VERSION
 
-version 0.102080
+version 0.102081
 
 =head1 OVERVIEW
 




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