[gitmo/moose-website.git] / data / code_samples / point.txt

package Point;
use Moose; # automatically turns on strict and warnings

has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');

sub clear {
    my $self = shift;
    $self->x(0);
    $self->y(0);
}

package Point3D;
use Moose;

extends 'Point';

has 'z' => (is => 'rw', isa => 'Int');

after 'clear' => sub {
    my $self = shift;
    $self->z(0);
};
Commit	Line	Data
7d44d2b1	1	package Point;
	2	use Moose; # automatically turns on strict and warnings
	3
	4	has 'x' => (is => 'rw', isa => 'Int');
	5	has 'y' => (is => 'rw', isa => 'Int');
	6
	7	sub clear {
	8	my $self = shift;
	9	$self->x(0);
	10	$self->y(0);
	11	}
	12
	13	package Point3D;
	14	use Moose;
	15
	16	extends 'Point';
	17
	18	has 'z' => (is => 'rw', isa => 'Int');
	19
	20	after 'clear' => sub {
	21	my $self = shift;
	22	$self->z(0);
	23	};