Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

* This be 0.12.

  • Loading branch information...
commit 6c27fdd69f58faf53e449436e16417c41f9a6021 1 parent c56481b
@audreyt authored
Showing with 11 additions and 5 deletions.
  1. +6 −0 Changes
  2. +1 −1  lib/methods.pm
  3. +4 −4 t/01-parse-proto.t
View
6 Changes
@@ -1,3 +1,9 @@
+[Changes for 0.12 - Wed Jan 30 23:20:14 CST 2013]
+
+* Make tests pass on FreeBSD.
+
+ Contributed by: Li-Wen Hsu
+
[Changes for 0.11 - Sun Oct 21 22:02:16 CST 2012]
* Rebuild with up-to-date Module::Install 1.06; no functional changes.
View
2  lib/methods.pm
@@ -1,6 +1,6 @@
package methods;
use 5.008;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
use true;
use namespace::sweep;
View
8 t/01-parse-proto.t
@@ -13,10 +13,10 @@ my $inst = $mss->new(invocant => '$self');
my @tests = (
['' => [ qr'my \$self = shift;' ]],
- ['$class: %opts' => [ qr'my \$class = shift;', qr'my \(\%opts\) = \@_;' ]],
- ['@stuff' => [ qr'my \$self = shift;', qr'my \(\@stuff\) = \@_;' ]],
- ['$foo, $bar' => [ qr'my \$self = shift;', qr'my \(\$foo, \$bar\) = \@_;' ]],
- ["$/foo, $/bar$/" => [ qr'my \$self = shift;', qr'my \(foo,bar\) = \@_;' ]],
+ ['$class: %opts' => [ qr'my \$class = shift;', qr/my \(\%opts\) = \@_;/ ]],
+ ['@stuff' => [ qr'my \$self = shift;', qr/my \(\@stuff\) = \@_;/ ]],
+ ['$foo, $bar' => [ qr'my \$self = shift;', qr/my \(\$foo,\s*\$bar\) = \@_;/]],
+ ["$/foo, $/bar$/" => [ qr'my \$self = shift;', qr/my \(foo,\s?bar\) = \@_;/ ]],
);
for my $t (@tests) {
Please sign in to comment.
Something went wrong with that request. Please try again.