gistfile1.txt

use Moose;
use Class::MOP::Attribute;
use Class::MOP::Class;
use Data::Dumper;

my $ass = Class::MOP::Class->create(
    'FooBarski' => (
        version => '0.01',
    )
);
print Dumper($ass);
$ass->make_mutable;
print $ass->is_mutable."\n";

$ass->add_attribute(Class::MOP::Attribute->new(
    foo => (
        accessor => 'foo',
        default => 'Hello World'
    )
));

my $foo = $ass->new_object;

print $foo->foo."\n";