Das liest sich bereits wie das Metaobjektprotokoll. Willst du das etwa neu schreiben?
perl -Moose=Foo -E'
has "midi" => (is => "rw");my $f = Foo->new;
say "# has midi" if $f->meta->has_attribute("midi");
$f->meta->remove_attribute("midi");
say "# still has midi" if $f->meta->has_attribute("midi");
'# has midi
Ehrlich gesagt, reichen mir standard Object Methoden.
Ich plage mich schon genug mit Lilypond Syntax und Documakulatur, falls das jemand nachvollziehen kann.
Dennoch interessant, was Moose so bereithält.
mfg Beat
--
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische