Point - A simple demo for a one-to-many association (/examples).

	perldoc classgen
	perldoc many
	perldoc Polygon

# --- Generated by classgen 3.03 on Fre Dez 29 21:56:41 MET 2000 ---

$VERSION=1.00;
	package Point;
;
	require 'Point_gs.pm';

sub new {
	my ($self) = @_;

	# instance-variables:
	my $x;	# coordinate
	my $y;	# coordinate
	my $a_belongs_to;	# a 'belong to' association

	$self=bless {
		_x		=>	$x,
		_y		=>	$y,
		_a_belongs_to		=>	$a_belongs_to,
	}, ref($self)||$self;
	#$self->inherit_from($self->your_base::new());	# adapt when inheriting
	return $self;
}

# --- methods specific for this class ---------------------

sub specific {
	my ($self) = @_;
}

# --- inheritance methode -----------------------------------

sub inherit_from {
	my ($self, $base_blessed) = @_;
	my @l = keys %$base_blessed;
	foreach (@l) {
		$self->{$_} = $base_blessed->{$_};
	}
}

1;

__END__