Mouse won't warn when overwriting a method with an accessor

In Moose
``` perl
package Foo {
  use Moose;
  has hello => ( is => 'ro' );
  sub hello { }
}
```
=> You are overwriting a locally defined method (hello) with an accessor 

In Mouse
``` perl
package Foo {
  use Mouse;
  has hello => ( is => 'ro' );
  sub hello { }
}
```
=> No warning and error

I guess Mouse should warn in such case.