Permalink
Browse files

Released version 0.20

  • Loading branch information...
1 parent 555c525 commit d8d4e8759399f254afbcfcac559da647b98f1bf3 @ingydotnet committed Sep 11, 2011
Showing with 9 additions and 2 deletions.
  1. +5 −0 Changes
  2. +2 −2 lib/Mo.pm
  3. +2 −0 bin/compress → script/compress.pl
View
@@ -1,4 +1,9 @@
---
+version: 0.20
+date: Sun Sep 11 11:58:51 CEST 2011
+changes:
+- mv bin/compress to script/compress.pl
+---
version: 0.19
date: Sun Sep 11 11:27:14 CEST 2011
changes:
View
@@ -1,2 +1,2 @@
-package Mo;require strict;require warnings;$Mo::VERSION='0.19';
-sub import{strict->import;warnings->import;my$p=caller;@{$p.'::ISA'}=$_[0];*{$p.'::extends'}=sub{@{(caller).'::ISA'}=@_;eval"require($_)"for@_;};*{$p.'::has'}=sub{my($n,%a)=@_;my($d,$b)=@a{qw(default builder)};*{(caller)."::$n"}=$d?sub{$#_?($_[0]{$n}=$_[1]):(exists$_[0]{$n})?$_[0]{$n}:($_[0]{$n}=$d->($_[0]));}:$b?sub{$#_?($_[0]{$n}=$_[1]):(exists$_[0]{$n})?$_[0]{$n}:($_[0]{$n}=$_[0]->$b);}:sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n};}};}my$i;$i=sub{my($a,$c)=@_;for my$p(@{$c."::ISA"}){next if$p eq'Mo';unshift@$a,$p;$i->($a,$p);}@$a;};sub new{my$c=shift;my$s=bless{@_},$c;do{&{$_."::BUILD"}($s)if defined&{$_."::BUILD"};}for($i->([$c],$c));$s;}
+package Mo;require strict;require warnings;$Mo::VERSION='0.20';
+sub import{strict->import;warnings->import;my$p=caller;@{$p.'::ISA'}=$_[0];*{$p.'::extends'}=sub{@{(caller).'::ISA'}=@_;eval"require($_)"for@_};*{$p.'::has'}=sub{my($n,%a)=@_;my($d,$b)=@a{qw(default builder)};*{(caller)."::$n"}=$d?sub{$#_?($_[0]{$n}=$_[1]):(exists$_[0]{$n})?$_[0]{$n}:($_[0]{$n}=$d->($_[0]))}:$b?sub{$#_?($_[0]{$n}=$_[1]):(exists$_[0]{$n})?$_[0]{$n}:($_[0]{$n}=$_[0]->$b)}:sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}}}}my$i;$i=sub{my($a,$c)=@_;for my$p(@{$c."::ISA"}){next if$p eq'Mo';unshift@$a,$p;$i->($a,$p)}@$a};sub new{my$c=shift;my$s=bless{@_},$c;do{&{$_."::BUILD"}($s)if defined&{$_."::BUILD"}}for($i->([$c],$c));$s}
@@ -6,5 +6,7 @@
$text =~ s/(\w)\s+([^\w])/$1$2/g;
$text =~ s/([^\w])\s+/$1/g;
+$text =~ s/;\}/}/g;
+$text =~ s/(VERSION.*?;)/$1\n/;
print $text;

0 comments on commit d8d4e87

Please sign in to comment.