[gitmo/moose-presentations.git] / moose-class / exercises / answers / 01-classes / Person.pm

package Person;

use Moose;

has first_name => ( is => 'rw' );
has last_name  => ( is => 'rw' );

sub full_name {
    my $self = shift;

    return join q{ }, $self->first_name, $self->last_name;
}

no Moose;

__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
ddd87d75	1	package Person;
	2
	3	use Moose;
	4
	5	has first_name => ( is => 'rw' );
	6	has last_name => ( is => 'rw' );
	7
	8	sub full_name {
	9	my $self = shift;
	10
	11	return join q{ }, $self->first_name, $self->last_name;
	12	}
	13
	14	no Moose;
	15
	16	__PACKAGE__->meta->make_immutable;
	17
	18	1;