#! /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();
[download]

where Local uses Moose.

Uncommenting either the use Local or any of the ->meta lines makes the unimport fail with

Can't disable Moo::sification after inflation has been done
[download]

Thanks to you and Corion. :)

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}

The documentation also mentions no Moo::sification; to prevent interoperability with Moose. Looking in the source code Moo::sification points to Moo::HandleMoose, which likely handles Moose. I did not look into that module.

Once Moose is loaded, you can do this with any Moo class:

my $class = ref($object);
my $meta  = $class->meta;
...;  # do stuff with $meta
[download]

The Moo class will act like any other Moose class. (But it keeps its original inheritance, inheriting from Moo::Object and not Moose::Object.) It will have a metaclass that you can introspect.

Yes, this works even if Moose gets loaded later. (Moo detects Moose being loaded by performing a tie on $Moose::AUTHORITY to an object with a DESTROY method, so it notices when Moose.pm loads and sets $Moose::AUTHORITY.)