For fairness you should show Moo for the point example,

package Point {
  use Moose;
  has [qw/x y/] => ( isa => 'Int', is => 'rw' );

  sub inverted {
    my $self = shift;
    __PACKAGE__->new( x => $self->y, y => $self->x );
  }
}
[download]

Shy of that, this argument seems to mostly boil down into not core. This seems to be very much a reiteration of Stevan's thinking and work with Moxie. Good luck on it, it's just not very interesting to me. Out of all the problems I've had with Perl the inclusion of Moose in CORE, or a lightweight object system doesn't make the top-10. In my estimation the best thing Perl has going for it is Moose.