This is 0.08

diff --git a/Changes b/Changes
index d72082c0314d5b8fdf1fbb451c594493f934cfd5..5fe0225bcd906992643148d42001135070ec9e20 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,19 @@
+0.08    2009-08-29 16:55 UTC - Vincent Pit
+        + Add : The new ->callbacks method to the regexp object let you specify
+                the 'exec' callback on an individual basis.
+        + Chg : Perl 5.10 is now required (instead of 5.9.5).
+        + Fix : The pragma was leaking into required scopes on 5.10.0.
+        + Fix : If you specified a different re::engine::Plugin between the
+                compilation and the execution of a regular expression, the
+                'exec' callback invoked used to be the one for the second
+                engine. Worse, if the original engine wasn't in scope at the
+                time of execution, nothing happened. This is now fixed.
+        + Fix : The reference count of the callbacks stored wasn't properly
+                decremented.
+        + Fix : Incomplete MANIFEST.
+        + Tst : Subdirectories are now ordered.
+        + Tst : Author tests.
+
 0.07    2009-08-23 09:30 UTC - Vincent Pit
         + Fix : [perl #38684]: test failures in t/method/mod.t
         + Fix : Building with blead.

diff --git a/META.yml b/META.yml
index e57f990d3d5c947bee00c3ae495e0beff7bcc135..9f2555d1b925c0bda164010e5083936d5607fb0c 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               re-engine-Plugin
-version:            0.07
+version:            0.08
 abstract:           API to write custom regex engines
 author:
     - Vincent Pit <perl@profvince.com>
@@ -12,7 +12,7 @@ build_requires:
     ExtUtils::MakeMaker:  0
     Test::More:           0
 requires:
-    perl:      5.009005
+    perl:      5.01
     XSLoader:  0
 resources:
     bugtracker:  http://rt.cpan.org/NoAuth/ReportBug.html?Queue=re-engine-Plugin

diff --git a/Plugin.pm b/Plugin.pm
index a641a8116faef34360ee64d57910b1f02e1f5b66..df2a9f61fcb251818845411a34386164ecf6e73e 100644 (file)
--- a/Plugin.pm
+++ b/Plugin.pm
@@ -6,7 +6,7 @@ use strict;
 our ($VERSION, @ISA);
 
 BEGIN {
- $VERSION = '0.07';
+ $VERSION = '0.08';
  # All engines should subclass the core Regexp package
  @ISA = 'Regexp';
  require XSLoader;

diff --git a/Plugin.pod b/Plugin.pod
index 227dca36d88994a9fa4a219f3faeaeaee3bc070e..7b30d980da64a0e39d0053627d7dda24d8fa08bd 100644 (file)
--- a/Plugin.pod
+++ b/Plugin.pod
@@ -4,7 +4,7 @@ re::engine::Plugin - API to write custom regex engines
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =head1 DESCRIPTION
 

diff --git a/README b/README
index 9da0ecf52406a10dfc133c87339060e5d39465a5..7ab77850665cef35661fba766b742adad4730be5 100644 (file)
--- a/README
+++ b/README
@@ -1,6 +1,9 @@
 NAME
     re::engine::Plugin - API to write custom regex engines
 
+VERSION
+    Version 0.08
+
 DESCRIPTION
     As of perl 5.9.5 it's possible to lexically replace perl's built-in
     regular expression engine with your own (see perlreapi and perlpragma).
@@ -113,6 +116,9 @@ CALLBACKS
     routine should return a true value if the match was successful, and a
     false one if it wasn't.
 
+    This callback can also be specified on an individual basis with the
+    "callbacks" method.
+
 METHODS
   str
         "str" ~~ /pattern/;
@@ -167,6 +173,31 @@ METHODS
     The length specified will be used as a a byte length (using SvPV), not a
     character length.
 
+  nparens
+  gofs
+  callbacks
+        # A dumb regexp engine that just tests string equality
+        use re::engine::Plugin comp => sub {
+            my ($re) = @_;
+
+            my $pat = $re->pattern;
+
+            $re->callbacks(
+                exec => sub {
+                    my ($re, $str) = @_;
+                    return $pat eq $str;
+                },
+            );
+        };
+
+    Takes a list of key-value pairs of names and subroutines, and replace
+    the callback currently attached to the regular expression for the type
+    given as the key by the code reference passed as the corresponding
+    value.
+
+    The only valid key is currently "exec". See "exec" for more details
+    about this callback.
+
   num_captures
         $re->num_captures(
             FETCH => sub {