Permalink
Browse files

Released version 0.31

  • Loading branch information...
1 parent b97869f commit fe174823883afdac9660814499bb3457a92b4799 @ingydotnet committed Apr 19, 2012
View
@@ -1,4 +1,9 @@
---
+version: 0.31
+date: Thu Apr 19 10:59:34 PDT 2012
+changes:
+- dams++ and melo++ fix https://rt.cpan.org/Public/Bug/Display.html?id=76664 and https://rt.cpan.org/Public/Bug/Display.html?id=74487
+---
version: 0.30
date: Tue Oct 11 19:36:07 EDT 2011
changes:
View
@@ -1,3 +1,3 @@
package Mo;
-$VERSION='0.30';
+$VERSION='0.31';
no warnings;my$M=__PACKAGE__.'::';*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.'::';shift;eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;my$m=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}};$m=$o{$_}->($m,$n,@_)for sort keys%o;*{$P.$n}=$m},%e,);*{$P.$_}=$e{$_}for keys%e;@{$P.ISA}=$M.Object};
View
@@ -11,7 +11,7 @@ use strict;
use warnings;
package Mo::Golf;
-our $VERSION = '0.27';
+our $VERSION = '0.31';
use PPI;
View
@@ -10,7 +10,7 @@
package Mo::Inline;
use Mo;
-our $VERSION = 0.27;
+our $VERSION = 0.31;
use IO::All;
View
@@ -1,3 +1,3 @@
package Mo::Moose;$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'Moose::e'}=sub{my($P,$e)=@_;$P=~s/::$//;%$e=(M=>1);require Moose;Moose->import({into=>$P});Moose::Util::MetaRole::apply_metaroles(for=>$P,class_metaroles=>{attribute=>['Attr::Trait']},)};BEGIN{package Attr::Trait;use Moose::Role;around _process_options=>sub{my$orig=shift;my$c=shift;my($n,$o)=@_;$o->{is}||='rw';$o->{lazy}||=1 if defined$o->{default}or defined$o->{builder};$c->$orig(@_)};$INC{'Attr/Trait.pm'}=1}
View
@@ -1,3 +1,3 @@
package Mo::Mouse;$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'Mouse::e'}=sub{my($P,$e)=@_;$P=~s/::$//;%$e=(M=>1);require Mouse;require Mouse::Util::MetaRole;Mouse->import({into=>$P});Mouse::Util::MetaRole::apply_metaroles(for=>$P,class_metaroles=>{attribute=>['Attr::Trait']},)};BEGIN{package Attr::Trait;use Mouse::Role;around _process_options=>sub{my$orig=shift;my$c=shift;my($n,$o)=@_;$o->{is}||='rw';$o->{lazy}||=1 if defined$o->{default}or defined$o->{builder};$c->$orig(@_)};$INC{'Attr/Trait.pm'}=1}
View
@@ -1,3 +1,3 @@
package Mo::build;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'build::e'}=sub{my($P,$e)=@_;$e->{new}=sub{$c=shift;my$s=bless{@_},$c;my@B;do{@B=($c.::BUILD,@B)}while($c)=@{$c.::ISA};exists&$_&&&$_($s)for@B;$s}};
View
@@ -1,3 +1,3 @@
package Mo::builder;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'builder::e'}=sub{my($P,$e,$o)=@_;$o->{builder}=sub{my($m,$n,%a)=@_;my$b=$a{builder}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$b:$m->(@_)}}};
View
@@ -1,3 +1,3 @@
package Mo::chain;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'chain::e'}=sub{my($P,$e,$o)=@_;$o->{chain}=sub{my($m,$n,%a)=@_;$a{chain}or return$m;sub{$#_?($m->(@_),return$_[0]):$m->(@_)}}};
View
@@ -1,3 +1,3 @@
package Mo::coerce;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'coerce::e'}=sub{my($P,$e,$o)=@_;$o->{coerce}=sub{my($m,$n,%a)=@_;$a{coerce}or return$m;sub{$#_?$m->($_[0],$a{coerce}->($_[1])):$m->(@_)}};my$C=$e->{new}||*{$M.Object::new}{CODE};$e->{new}=sub{my$s=$C->(@_);$s->$_($s->{$_})for keys%$s;$s}};
View
@@ -1,3 +1,3 @@
package Mo::default;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'default::e'}=sub{my($P,$e,$o)=@_;$o->{default}=sub{my($m,$n,%a)=@_;$a{default}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$a{default}->(@_):$m->(@_)}}};
View
@@ -1,3 +1,3 @@
package Mo::exporter;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'exporter::e'}=sub{my($P)=@_;if(defined@{$M.EXPORT}){*{$P.$_}=\&{$M.$_}for@{$M.EXPORT}}};
View
@@ -1,3 +1,3 @@
package Mo::import;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
my$i=\&import;*{$M.import}=sub{(@_==2 and not $_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i};
View
@@ -1,3 +1,3 @@
package Mo::importer;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'importer::e'}=sub{my($P,$e,$o,$f)=@_;(my$pkg=$P)=~s/::$//;&{$P.'importer'}($pkg,@$f)if defined&{$P.'importer'}};
View
@@ -1,3 +1,3 @@
package Mo::is;$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'is::e'}=sub{my($P,$e,$o)=@_;$o->{is}=sub{my($m,$n,%a)=@_;$a{is}or return$m;sub{$#_&&$a{is}eq 'ro'&&caller ne 'Mo::coerce'?die$n.' is ro':$m->(@_)}}};
View
@@ -1,3 +1,3 @@
package Mo::option;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'option::e'}=sub{my($P,$e,$o)=@_;$o->{option}=sub{my($m,$n,%a)=@_;$a{option}or return$m;my$n2=$n;*{$P."read_$n2"}=sub{$_[0]->{$n2}};sub{$#_?$m->(@_):$m->(@_,1);$_[0]}}};
View
@@ -1,3 +1,3 @@
package Mo::required;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
*{$M.'required::e'}=sub{my($P,$e,$o)=@_;$o->{required}=sub{my($m,$n,%a)=@_;if($a{required}){my$C=*{$P."new"}{CODE}||*{$M.Object::new}{CODE};no warnings 'redefine';*{$P."new"}=sub{my$s=$C->(@_);my%a=@_[1..$#_];die$n." required"if!$a{$n};$s}}$m}};
View
@@ -1,3 +1,3 @@
package Mo::xs;my$M="Mo::";
-$VERSION=0.30;
+$VERSION=0.31;
require Class::XSAccessor;*{$M.'xs::e'}=sub{my($P,$e,$o,$f)=@_;$P=~s/::$//;$e->{has}=sub{my($n,%a)=@_;Class::XSAccessor->import(class=>$P,accessors=>{$n=>$n})}if!grep!/^xs$/,@$f};
View
@@ -1,6 +1,6 @@
# The first two lines are left alone in the compressed source.
package Mo;
-$VERSION = '0.30';
+$VERSION = '0.31';
# 'no' is a shorter 'use', but we really don't want warnings.
no warnings;
View
@@ -1,5 +1,5 @@
package Mo::Moose;$MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'Moose::e'} = sub {
my ($caller_pkg, $exports) = @_;
View
@@ -1,5 +1,5 @@
package Mo::Mouse;$MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'Mouse::e'} = sub {
my ($caller_pkg, $exports) = @_;
View
@@ -1,6 +1,6 @@
package Mo::build;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'build::e'} = sub {
my ($caller_pkg, $exports) = @_;
View
@@ -1,6 +1,6 @@
package Mo::builder;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'builder::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::chain;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'chain::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::coerce;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'coerce::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::default;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'default::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::exporter;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'exporter::e'} = sub {
my ($caller_pkg) = @_;
View
@@ -1,6 +1,6 @@
package Mo::import;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
my $import = \&import;
*{$MoPKG.import} = sub {
View
@@ -1,6 +1,6 @@
package Mo::importer;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'importer::e'} = sub {
my ($caller_pkg, $exports, $options, $features) = @_;
View
@@ -1,5 +1,5 @@
package Mo::is;$MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'is::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::option;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'option::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::required;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
*{$MoPKG.'required::e'} = sub {
my ($caller_pkg, $exports, $options) = @_;
View
@@ -1,6 +1,6 @@
package Mo::xs;
my $MoPKG = "Mo::";
-$VERSION = 0.30;
+$VERSION = 0.31;
require Class::XSAccessor;

0 comments on commit fe17482

Please sign in to comment.