Released version 0.74

Changes

@@ -1,3 +1,11 @@
+---
+version: 0.74
+date:    Sun Sep 25 22:05:05 CEST 2011
+changes:
+- Switch to Module::Package
+- Removed extra $VERSION lines from submodules
+- Released from Liz++ and Wendy++'s Tool Basement!
+
 ---
 version: 0.73
 date:    Tue Apr 19 20:14:59 EST 2011

Makefile.PL

@@ -1,13 +1,2 @@
-use inc::Module::Install 1.00;
-
-name     'YAML';
-author   'Ingy dot Net <ingy@cpan.org>';
-all_from 'lib/YAML.pm';
-readme_from;
-manifest_skip;
-version_check;
-ack_xxx;
-
-use_test_base;
-
-WriteAll;
+BEGIN { $main::PM = 'lib/YAML.pm' }
+use inc::Module::Package 'Ingy:modern 0.17';

lib/Test/YAML.pm

@@ -3,7 +3,7 @@ package Test::YAML;
 use Test::Base 0.47 -Base;
 use lib 'lib';
 
-our $VERSION = '0.72';
+our $VERSION = '0.74';
 our $YAML    = 'YAML';
 our @EXPORT  = qw(
     no_diff

lib/YAML.pm

@@ -1,12 +1,13 @@
-package YAML;
-
 use 5.008001;
 use strict;
 use warnings;
+
+package YAML;
+
 use YAML::Base;
 use YAML::Node; # XXX This is a temp fix for Module::Build
 
-our $VERSION   = '0.73';
+our $VERSION   = '0.74';
 our @ISA       = 'YAML::Base';
 our @EXPORT    = qw{ Dump Load };
 our @EXPORT_OK = qw{ freeze thaw DumpFile LoadFile Bless Blessed };

lib/YAML/Any.pm

@@ -4,7 +4,6 @@ use 5.005003;
 use strict;
 use Exporter ();
 
-$YAML::Any::VERSION   = '0.72';
 @YAML::Any::ISA       = 'Exporter';
 @YAML::Any::EXPORT    = qw(Dump Load);
 @YAML::Any::EXPORT_OK = qw(DumpFile LoadFile);

lib/YAML/Base.pm

@@ -4,7 +4,6 @@ use strict;
 use warnings;
 use Exporter ();
 
-our $VERSION = '0.72';
 our @ISA     = 'Exporter';
 our @EXPORT  = qw(field XXX);
 

lib/YAML/Dumper.pm

@@ -7,7 +7,6 @@ use YAML::Dumper::Base;
 use YAML::Node;
 use YAML::Types;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Dumper::Base';
 
 # Context constants

lib/YAML/Dumper/Base.pm

@@ -5,7 +5,6 @@ use warnings;
 use YAML::Base;
 use YAML::Node;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Base';
 
 # YAML Dumping options

lib/YAML/Error.pm

@@ -4,7 +4,6 @@ use strict;
 use warnings;
 use YAML::Base;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Base';
 
 field 'code';

lib/YAML/Loader.pm

@@ -6,7 +6,6 @@ use YAML::Base;
 use YAML::Loader::Base;
 use YAML::Types;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Loader::Base';
 
 # Context constants

lib/YAML/Loader/Base.pm

@@ -4,7 +4,6 @@ use strict;
 use warnings;
 use YAML::Base;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Base';
 
 field load_code     => 0;

lib/YAML/Marshall.pm

@@ -4,8 +4,6 @@ use strict;
 use warnings;
 use YAML::Node ();
 
-our $VERSION = '0.72';
-
 sub import {
     my $class = shift;
     no strict 'refs';

lib/YAML/Mo.pm

@@ -0,0 +1,35 @@
+##
+# name:      YAML::Mo
+# abstract:  Mo Base Class for YAML
+# author:    Ingy döt Net <ingy@ingy.net>
+# license:   perl
+# copyright: 2011
+
+package YAML::Mo;
+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};
+
+# This code needs to be refactored to be simpler and more precise, and no,
+# Scalar::Util doesn't DWIM.
+#
+# Can't handle:
+# * blessed regexp
+sub node_info {
+    my $self = shift;
+    my $stringify = $_[1] || 0;
+    my ($class, $type, $id) =
+        ref($_[0])
+        ? $stringify
+          ? &$_info("$_[0]")
+          : do {
+              require overload;
+              my @info = &$_info(overload::StrVal($_[0]));
+              if (ref($_[0]) eq 'Regexp') {
+                  @info[0, 1] = (undef, 'REGEXP');
+              }
+              @info;
+          }
+        : &$_scalar_info($_[0]);
+    ($class, $type, $id) = &$_scalar_info("$_[0]")
+        unless $id;
+    return wantarray ? ($class, $type, $id) : $id;
+}

lib/YAML/Node.pm

@@ -6,7 +6,6 @@ use warnings;
 use YAML::Base;
 use YAML::Tag;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Base';
 our @EXPORT  = qw(ynode);
 

lib/YAML/Tag.pm

@@ -3,8 +3,6 @@ package YAML::Tag;
 use strict;
 use warnings;
 
-our $VERSION = '0.72';
-
 use overload '""' => sub { ${$_[0]} };
 
 sub new {

lib/YAML/Types.pm

@@ -5,7 +5,6 @@ use warnings;
 use YAML::Base;
 use YAML::Node;
 
-our $VERSION = '0.72';
 our @ISA     = 'YAML::Base';
 
 # XXX These classes and their APIs could still use some refactoring,