class.pl

package Person;

use Class::MOP;
use Class::MOP::Class;
use Class::MOP::Attribute;

Class::MOP::Class->create(
    'Person' => (
        version      => '0.01',
        attributes   => [
            Class::MOP::Attribute->new(
                firstname => (
                    accessor  => 'firstname',
                    predicate => 'has_firstname',
                    init_arg  => 'firstname',
                    default   => 'Luke'
                )
            ),
            Class::MOP::Attribute->new(
                lastname => (
                    accessor  => 'lastname', 
                    predicate => 'has_lastname',
                    init_arg  => 'lastname',
                    default   => 'Luke'
                )
            )
        ],
        methods => {
            fullname => sub {
                my $self = shift;
                return $self->firstname . " " . $self->lastname;
            }
        }
    )
);

sub new {
    my ($class, $args) = @_;
    return bless $args, $class;
};