DB<4> print Dumper \@Program::Plist::Pl::Pattern::ISA
$VAR1 = [
          'Moose::Object'
        ];