dams

--- a/src/Mo.pm
+++ b/src/Mo.pm
@@ -12,8 +12,8 @@ sub Mo'import {
         my $d = $a{default}||$a{builder};
         *{ $p . $n } = $d
           ? sub {
-            return $#_ ? $$_{$n} = pop
-              : ! exists $$_{$n} ? $$_{$n} = $_->$d
+            return $$_{$n} = $#_ ? pop
+              : ! exists $$_{$n} ? $_->$d

dams

sub Mo'import {
    import warnings; $^H |= 0x602;
    my $p = caller."'";
    @_ = ( ISA, extends, has, sub {
        my ( $n, %a ) = @_;
        my $d = $a{default}||$a{builder};
        *{ $p . $n } = $d
          ? sub {
            $#_ ? $_[0]{$n} = $_[1]
              : exists $_[0]{$n} ? $_[0]{$n}

dams

{
    package Person::Child;
    use base 'Person';
    __PACKAGE__->attributes('parent');
}

my $child = Person::Child->new();
ok $child->parent($p), 'setting parent';
ok $child->name('bob'), 'setting child name';
ok $child->age(5), 'setting child age';

dams

$ perl Build.PL

# on linux
$ ./Build hudson_test

# on windows
> Build hudson_test

# the result is in hudson_test_output.xml

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

sub do_tests {
  my $self = shift;

  my $tests = $self->find_test_files;

  if(@$tests) {
    my $args = $self->tap_harness_args;
    if($self->use_tap_harness or ($args and %$args)) {
      $self->run_tap_harness($tests);
    }

dams

$ perl ./Build test merge=1 tap_harness_args=formatter_class=TAP::Formatter::JUnit