Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Released version 0.24

  • Loading branch information...
commit dd5ed078b6a8f8bb41bcaf6b285945bd61d28afb 1 parent aed2fb4
Ingy döt Net authored

Showing 4 changed files with 13 additions and 6 deletions. Show diff stats Hide diff stats

  1. +7 0 Changes
  2. +2 2 lib/Mo.pm
  3. +2 2 src/Mo.pm
  4. +2 2 xt/layout.t
7 Changes
... ... @@ -1,4 +1,11 @@
1 1 ---
  2 +version: 0.24
  3 +date: Sun Sep 25 12:44:29 CEST 2011
  4 +changes:
  5 +- Ensure that Mo.pm ends with semicolon. Needed for inlining.
  6 +- Released from Laurent++ and Emmanuelle++ Parisian porch over a delightful
  7 + breakfast with they and BooK.
  8 +---
2 9 version: 0.23
3 10 date: Wed Sep 21 23:53:13 CEST 2011
4 11 changes:
4 lib/Mo.pm
... ... @@ -1,3 +1,3 @@
1 1 package Mo;
2   -$VERSION=0.23;
3   -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}
  2 +$VERSION=0.24;
  3 +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};
4 src/Mo.pm
... ... @@ -1,5 +1,5 @@
1 1 package Mo;
2   -$VERSION = 0.23;
  2 +$VERSION = 0.24;
3 3
4 4 no warnings;
5 5 # Quotes are needed or else bug in Module::Install. :\
@@ -47,4 +47,4 @@ my $P = __PACKAGE__.'::';
47 47 for @c;
48 48
49 49 $s;
50   -}
  50 +};
4 xt/layout.t
@@ -8,6 +8,6 @@ ok (($text =~ /\Apackage\s+Mo;\s*\$VERSION\b\s*=\s*.{4,6};\n/),
8 8 'package and VERSION on first line'
9 9 );
10 10
11   -ok (($text =~ /\n\z/),
12   - 'Mo ends with a newline character'
  11 +ok (($text =~ /;\n\z/),
  12 + 'Mo ends with a semicolon and a newline character'
13 13 );

0 comments on commit dd5ed07

Please sign in to comment.
Something went wrong with that request. Please try again.