view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

      type     => 'Int',
      init_arg => 'size',
    },
    'MooseX::OneArgNew' => {
      type     => 'ArrayRef',
      init_arg => 'nums',
    },
  );

  has size => (is => 'ro', isa => 'Int');
  has nums => (is => 'ro', isa => 'ArrayRef[Int]');
}

{
  my $obj = Object->new(10);
  isa_ok($obj, 'Object');
  is($obj->size, 10, "one-arg-new worked");
}

{
  my $obj = Object->new({ size => 10 });