Creating classes

Moose::Meta::Class->create('Cirlce' => (
    version => '0.01',
    superclasses => [ 'Shape' ],
    attributes => [
        Moose::Meta::Attribute->new('radius' => (is => 'rw', isa => 'Int'))
    ],
    methods => {
        'area' => sub { ... }
    }
));