in reply to "Moo detecting Moose" mechanics?
#! /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();
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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: "Moo detecting Moose" mechanics?
by LanX (Saint) on Apr 18, 2019 at 17:40 UTC |