Permalink
Browse files

Released version 0.24

  • Loading branch information...
1 parent aed2fb4 commit dd5ed078b6a8f8bb41bcaf6b285945bd61d28afb @ingydotnet committed Sep 25, 2011
Showing with 13 additions and 6 deletions.
  1. +7 −0 Changes
  2. +2 −2 lib/Mo.pm
  3. +2 −2 src/Mo.pm
  4. +2 −2 xt/layout.t
View
7 Changes
@@ -1,4 +1,11 @@
---
+version: 0.24
+date: Sun Sep 25 12:44:29 CEST 2011
+changes:
+- Ensure that Mo.pm ends with semicolon. Needed for inlining.
+- Released from Laurent++ and Emmanuelle++ Parisian porch over a delightful
+ breakfast with they and BooK.
+---
version: 0.23
date: Wed Sep 21 23:53:13 CEST 2011
changes:
View
4 lib/Mo.pm
@@ -1,3 +1,3 @@
package Mo;
-$VERSION=0.23;
-no warnings;my$P=__PACKAGE__.'::';*{$P.import}=sub{import warnings;$^H|=1538;my$p=caller.::;@{$p.ISA}=$P.'Object';*{$p.extends}=sub{eval"no $_[0]()";@{$p.ISA}=$_[0]};*{$p.has}=sub{my($n,%a)=@_;my$d=$a{default}||$a{builder};*{$p.$n}=$d?sub{$#_?$_[0]{$n}=$_[1]:!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$d:$_[0]{$n}}:sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}}}};*{$P.'Object::new'}=sub{$c=shift;my$s=bless{@_},$c;my@c;do{@c=($c.::BUILD,@c)}while($c)=@{$c.::ISA};exists&$_&&&$_($s)for@c;$s}
+$VERSION=0.24;
+no warnings;my$P=__PACKAGE__.'::';*{$P.import}=sub{import warnings;$^H|=1538;my$p=caller.::;@{$p.ISA}=$P.'Object';*{$p.extends}=sub{eval"no $_[0]()";@{$p.ISA}=$_[0]};*{$p.has}=sub{my($n,%a)=@_;my$d=$a{default}||$a{builder};*{$p.$n}=$d?sub{$#_?$_[0]{$n}=$_[1]:!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$d:$_[0]{$n}}:sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}}}};*{$P.'Object::new'}=sub{$c=shift;my$s=bless{@_},$c;my@c;do{@c=($c.::BUILD,@c)}while($c)=@{$c.::ISA};exists&$_&&&$_($s)for@c;$s};
View
4 src/Mo.pm
@@ -1,5 +1,5 @@
package Mo;
-$VERSION = 0.23;
+$VERSION = 0.24;
no warnings;
# Quotes are needed or else bug in Module::Install. :\
@@ -47,4 +47,4 @@ my $P = __PACKAGE__.'::';
for @c;
$s;
-}
+};
View
4 xt/layout.t
@@ -8,6 +8,6 @@ ok (($text =~ /\Apackage\s+Mo;\s*\$VERSION\b\s*=\s*.{4,6};\n/),
'package and VERSION on first line'
);
-ok (($text =~ /\n\z/),
- 'Mo ends with a newline character'
+ok (($text =~ /;\n\z/),
+ 'Mo ends with a semicolon and a newline character'
);

0 comments on commit dd5ed07

Please sign in to comment.