#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
#use Local;

{   package My;
    use Moo;
    has x => (is => 'rw');
}
my $o = 'My'->new(x => 12);

#say for $o->meta->get_method_list;
#say $o->meta->isa('Moose::Meta::Class');
require Moo::sification;
Moo::sification->unimport();