+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Test::Exception;
-
-
-
-{
- package Foo;
- use Mouse;
-
- eval {
- has 'foo' => (
- is => "rw",
- init_arg => undef,
- );
- };
- ::ok(!$@, '... created the attr okay');
-}
-
-{
- my $foo = Foo->new( foo => "bar" );
- isa_ok($foo, 'Foo');
-
- is( $foo->foo, undef, "field is not set via init arg" );
-
- $foo->foo("blah");
-
- is( $foo->foo, "blah", "field is set via setter" );
-}