Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Released version 0.81

  • Loading branch information...
commit 7b0772edaea386921ba10d4d78fc5cbd295ea2b1 1 parent 234ca79
Ingy döt Net authored
6 Changes
View
@@ -1,4 +1,10 @@
---
+version: 0.81
+date: Thu Apr 19 11:03:38 PDT 2012
+changes:
+- Patch from https://rt.cpan.org/Public/Bug/Display.html?id=74826
+- YAML::Mo uses Safe Mo https://rt.cpan.org/Public/Bug/Display.html?id=76664
+---
version: 0.80
date: Fri Feb 10 12:56:08 PST 2012
changes:
2  lib/Test/YAML.pm
View
@@ -3,7 +3,7 @@ package Test::YAML;
use Test::Base 0.47 -Base;
use lib 'lib';
-our $VERSION = '0.80';
+our $VERSION = '0.81';
our $YAML = 'YAML';
our @EXPORT = qw(
2  lib/YAML.pm
View
@@ -2,7 +2,7 @@ use 5.008001;
package YAML;
use YAML::Mo;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use Exporter;
push @YAML::ISA, 'Exporter';
2  lib/YAML/Any.pm
View
@@ -1,6 +1,6 @@
package YAML::Any;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use strict;
use Exporter ();
2  lib/YAML/Dumper.pm
View
@@ -2,7 +2,7 @@ package YAML::Dumper;
use YAML::Mo;
extends 'YAML::Dumper::Base';
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Dumper::Base;
use YAML::Node;
2  lib/YAML/Dumper/Base.pm
View
@@ -1,7 +1,7 @@
package YAML::Dumper::Base;
use YAML::Mo;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Node;
2  lib/YAML/Error.pm
View
@@ -1,7 +1,7 @@
package YAML::Error;
use YAML::Mo;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
has 'code';
has 'type' => default => sub {'Error'};
2  lib/YAML/Loader.pm
View
@@ -2,7 +2,7 @@ package YAML::Loader;
use YAML::Mo;
extends 'YAML::Loader::Base';
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Loader::Base;
use YAML::Types;
2  lib/YAML/Loader/Base.pm
View
@@ -1,7 +1,7 @@
package YAML::Loader::Base;
use YAML::Mo;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
has load_code => default => sub {0};
has stream => default => sub {''};
2  lib/YAML/Marshall.pm
View
@@ -2,7 +2,7 @@ use strict;
use warnings;
package YAML::Marshall;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Node ();
6 lib/YAML/Mo.pm
View
@@ -1,8 +1,8 @@
-package YAML::Mo; $VERSION = '0.80';
+package YAML::Mo; $VERSION = '0.81';
# use Mo qw[builder default import];
# The following line of code was produced from the previous line by
-# Mo::Inline version 0.27
-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;
+# Mo::Inline 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};*{$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;
our $DumperModule = 'Data::Dumper';
2  lib/YAML/Node.pm
View
@@ -2,7 +2,7 @@ use strict;
use warnings;
package YAML::Node;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Tag;
require YAML::Mo;
2  lib/YAML/Tag.pm
View
@@ -2,7 +2,7 @@ use strict;
use warnings;
package YAML::Tag;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use overload '""' => sub { ${$_[0]} };
2  lib/YAML/Types.pm
View
@@ -1,7 +1,7 @@
package YAML::Types;
use YAML::Mo;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
use YAML::Node;
7 t/dump-code.t
View
@@ -1,12 +1,13 @@
use t::TestYAML tests => 7;
+use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
use B::Deparse;
if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
=~ 'refs') {
local $/;
- (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
- if ($B::Deparse::VERSION < 0.71) {
- $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
+ (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g if $] < 5.015;
+ if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
+ $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
}
open DATA, '<', \$data;
}
16 t/dump-perl-types.t
View
@@ -2,6 +2,18 @@ use t::TestYAML tests => 14;
filters { perl => ['eval', 'yaml_dump'] };
+use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
+use B::Deparse;
+if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
+ =~ 'refs') {
+ local $/;
+ (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
+ if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
+ $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
+ }
+ open DATA, '<', \$data;
+}
+
no_diff;
run_is perl => 'yaml';
@@ -36,7 +48,7 @@ sub { print "Hello, world\n"; }
--- !!perl/code |
{
use warnings;
- use strict 'refs';
+ use strict;
print "Hello, world\n";
}
@@ -82,7 +94,7 @@ NAME: var3
CODE: !!perl/code |
{
use warnings;
- use strict 'refs';
+ use strict;
print "Hello, world\n";
}
Please sign in to comment.
Something went wrong with that request. Please try again.