[gitmo/Moose.git] / lib / Moose / Cookbook / Recipe1.pod


=pod

=head1 NAME

Moose::Cookbook::Recipe1

=head1 SYNOPSIS

  package Point;
  use strict;
  use warnings;	
  use Moose;
  	
  has 'x' => (isa => 'Int', is => 'ro');
  has 'y' => (isa => 'Int', is => 'rw');
  
  sub clear {
      my $self = shift;
      $self->{x} = 0;
      $self->y(0);    
  }
  
  package Point3D;
  use strict;
  use warnings;
  use Moose;
  
  extends 'Point';
  
  has 'z' => (isa => 'Int');
  
  after 'clear' => sub {
      my $self = shift;
      $self->{z} = 0;
  };

=head1 DESCRIPTION

=head1 AUTHOR

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2006 by Infinity Interactive, Inc.

L<http://www.iinteractive.com>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
Commit	Line	Data
471c4f09	1
	2	=pod
	3
	4	=head1 NAME
	5
	6	Moose::Cookbook::Recipe1
	7
	8	=head1 SYNOPSIS
	9
	10	package Point;
	11	use strict;
	12	use warnings;
	13	use Moose;
	14
	15	has 'x' => (isa => 'Int', is => 'ro');
	16	has 'y' => (isa => 'Int', is => 'rw');
	17
	18	sub clear {
	19	my $self = shift;
	20	$self->{x} = 0;
	21	$self->y(0);
	22	}
	23
	24	package Point3D;
	25	use strict;
	26	use warnings;
	27	use Moose;
	28
	29	extends 'Point';
	30
	31	has 'z' => (isa => 'Int');
	32
	33	after 'clear' => sub {
	34	my $self = shift;
	35	$self->{z} = 0;
	36	};
	37
	38	=head1 DESCRIPTION
	39
	40	=head1 AUTHOR
	41
	42	Stevan Little E<lt>stevan@iinteractive.comE<gt>
	43
	44	=head1 COPYRIGHT AND LICENSE
	45
	46	Copyright 2006 by Infinity Interactive, Inc.
	47
	48	L<http://www.iinteractive.com>
	49
	50	This library is free software; you can redistribute it and/or modify
	51	it under the same terms as Perl itself.
	52
	53	=cut