1use strict; 2use warnings; 3package ClassMOPDirty; 4 5use metaclass; 6use Scalar::Util 'refaddr'; 7 8sub stuff {} 9 10use constant CAN => [ qw(stuff refaddr meta) ]; 11use constant CANT => [ ]; 121; 13