Hatena::Groupcatalyst

dann@catalyst このページをアンテナに追加 RSSフィード

2008-05-04

make_immutable

make_immutable - dann@catalyst を含むブックマーク はてなブックマーク - make_immutable - dann@catalyst make_immutable - dann@catalyst のブックマークコメント

わかった。

use strict;
use warnings;
use Class::MOP;
use Perl6::Say;

my $yappo_meta = Class::MOP::Class->create(
    'Yappo' => (
        version => 0.01,
        methods => {
            holygrail => sub { say 'horygrail' }
        },
    ),
);
say '$yappo_meta : ' => $yappo_meta; # => Class::MOP::Class=HASH(0x882a70)
my $yappo_class = $yappo_meta->construct_instance;
say '$yappo_class->meta : ' => $yappo_class->meta; # => Class::MOP::Class=HASH(0x882a70)

$yappo_class->meta->make_immutable;

$yappo_class->meta->remove_method('holygrail');