#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 21;
+use Test::More;
use Test::Exception;
+use Test::Mouse;
use lib 't/lib';
-use Test::Mouse;
+use MooseCompat;
do {
package Class;
is $object->rw_attr, 100;
is $object->read_attr, 100;
+is $object->write_attr("piyo"), "piyo";
+is $object->rw_attr("yopi"), "yopi";
+
dies_ok {
Class->rw_attr();
};
dies_ok {
Class->write_attr(42);
};
+
+done_testing;