Skip to content
This repository
Browse code

Released version 0.81

  • Loading branch information...
commit 7b0772edaea386921ba10d4d78fc5cbd295ea2b1 1 parent 234ca79
Ingy döt Net authored
6 Changes
... ... @@ -1,4 +1,10 @@
1 1 ---
  2 +version: 0.81
  3 +date: Thu Apr 19 11:03:38 PDT 2012
  4 +changes:
  5 +- Patch from https://rt.cpan.org/Public/Bug/Display.html?id=74826
  6 +- YAML::Mo uses Safe Mo https://rt.cpan.org/Public/Bug/Display.html?id=76664
  7 +---
2 8 version: 0.80
3 9 date: Fri Feb 10 12:56:08 PST 2012
4 10 changes:
2  lib/Test/YAML.pm
@@ -3,7 +3,7 @@ package Test::YAML;
3 3 use Test::Base 0.47 -Base;
4 4 use lib 'lib';
5 5
6   -our $VERSION = '0.80';
  6 +our $VERSION = '0.81';
7 7
8 8 our $YAML = 'YAML';
9 9 our @EXPORT = qw(
2  lib/YAML.pm
@@ -2,7 +2,7 @@ use 5.008001;
2 2 package YAML;
3 3 use YAML::Mo;
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use Exporter;
8 8 push @YAML::ISA, 'Exporter';
2  lib/YAML/Any.pm
... ... @@ -1,6 +1,6 @@
1 1 package YAML::Any;
2 2
3   -our $VERSION = '0.80';
  3 +our $VERSION = '0.81';
4 4
5 5 use strict;
6 6 use Exporter ();
2  lib/YAML/Dumper.pm
@@ -2,7 +2,7 @@ package YAML::Dumper;
2 2 use YAML::Mo;
3 3 extends 'YAML::Dumper::Base';
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use YAML::Dumper::Base;
8 8 use YAML::Node;
2  lib/YAML/Dumper/Base.pm
... ... @@ -1,7 +1,7 @@
1 1 package YAML::Dumper::Base;
2 2 use YAML::Mo;
3 3
4   -our $VERSION = '0.80';
  4 +our $VERSION = '0.81';
5 5
6 6 use YAML::Node;
7 7
2  lib/YAML/Error.pm
... ... @@ -1,7 +1,7 @@
1 1 package YAML::Error;
2 2 use YAML::Mo;
3 3
4   -our $VERSION = '0.80';
  4 +our $VERSION = '0.81';
5 5
6 6 has 'code';
7 7 has 'type' => default => sub {'Error'};
2  lib/YAML/Loader.pm
@@ -2,7 +2,7 @@ package YAML::Loader;
2 2 use YAML::Mo;
3 3 extends 'YAML::Loader::Base';
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use YAML::Loader::Base;
8 8 use YAML::Types;
2  lib/YAML/Loader/Base.pm
... ... @@ -1,7 +1,7 @@
1 1 package YAML::Loader::Base;
2 2 use YAML::Mo;
3 3
4   -our $VERSION = '0.80';
  4 +our $VERSION = '0.81';
5 5
6 6 has load_code => default => sub {0};
7 7 has stream => default => sub {''};
2  lib/YAML/Marshall.pm
@@ -2,7 +2,7 @@ use strict;
2 2 use warnings;
3 3 package YAML::Marshall;
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use YAML::Node ();
8 8
6 lib/YAML/Mo.pm
... ... @@ -1,8 +1,8 @@
1   -package YAML::Mo; $VERSION = '0.80';
  1 +package YAML::Mo; $VERSION = '0.81';
2 2 # use Mo qw[builder default import];
3 3 # The following line of code was produced from the previous line by
4   -# Mo::Inline version 0.27
5   -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};*{$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->(@_)}}};*{$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->(@_)}}};my$i=\&import;*{$M.import}=sub{(@_==2 and not $_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i};@f=qw[builder default import];use strict;use warnings;
  4 +# Mo::Inline version 0.31
  5 +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};*{$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->(@_)}}};*{$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->(@_)}}};my$i=\&import;*{$M.import}=sub{(@_==2 and not $_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i};@f=qw[builder default import];use strict;use warnings;
6 6
7 7 our $DumperModule = 'Data::Dumper';
8 8
2  lib/YAML/Node.pm
@@ -2,7 +2,7 @@ use strict;
2 2 use warnings;
3 3 package YAML::Node;
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use YAML::Tag;
8 8 require YAML::Mo;
2  lib/YAML/Tag.pm
@@ -2,7 +2,7 @@ use strict;
2 2 use warnings;
3 3 package YAML::Tag;
4 4
5   -our $VERSION = '0.80';
  5 +our $VERSION = '0.81';
6 6
7 7 use overload '""' => sub { ${$_[0]} };
8 8
2  lib/YAML/Types.pm
... ... @@ -1,7 +1,7 @@
1 1 package YAML::Types;
2 2 use YAML::Mo;
3 3
4   -our $VERSION = '0.80';
  4 +our $VERSION = '0.81';
5 5
6 6 use YAML::Node;
7 7
7 t/dump-code.t
... ... @@ -1,12 +1,13 @@
1 1 use t::TestYAML tests => 7;
  2 +use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
2 3
3 4 use B::Deparse;
4 5 if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
5 6 =~ 'refs') {
6 7 local $/;
7   - (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
8   - if ($B::Deparse::VERSION < 0.71) {
9   - $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
  8 + (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g if $] < 5.015;
  9 + if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
  10 + $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
10 11 }
11 12 open DATA, '<', \$data;
12 13 }
16 t/dump-perl-types.t
@@ -2,6 +2,18 @@ use t::TestYAML tests => 14;
2 2
3 3 filters { perl => ['eval', 'yaml_dump'] };
4 4
  5 +use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
  6 +use B::Deparse;
  7 +if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
  8 + =~ 'refs') {
  9 + local $/;
  10 + (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
  11 + if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
  12 + $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
  13 + }
  14 + open DATA, '<', \$data;
  15 +}
  16 +
5 17 no_diff;
6 18 run_is perl => 'yaml';
7 19
@@ -36,7 +48,7 @@ sub { print "Hello, world\n"; }
36 48 --- !!perl/code |
37 49 {
38 50 use warnings;
39   - use strict 'refs';
  51 + use strict;
40 52 print "Hello, world\n";
41 53 }
42 54
@@ -82,7 +94,7 @@ NAME: var3
82 94 CODE: !!perl/code |
83 95 {
84 96 use warnings;
85   - use strict 'refs';
  97 + use strict;
86 98 print "Hello, world\n";
87 99 }
88 100

0 comments on commit 7b0772e

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