Polygon - A simple demo for a one-to-many association (/examples).
1.00
This example is taken from Rumbaughs book, chapter 3.
A Polygon consist of at least 3 Points (many). In this simple demo there is no checking on the minimum number of Points implemented.
The purpose is to show, how the one-to-many direction could be implemented in Perl. It turns out that there is no need to have an explicit variable $a_has, like in the one-to-one case (cf ../one-to-one).
Instead, the internal list @points takes this functionality. Each index of this array is a unique identifier of an individual Point-instance. See Polygon->add() for details.
You may think of further extensions of this simple Polygon class. E.g. the Polygon could have a name. It could calculate its perimeter, area etc.
perldoc classgen
perldoc many
perldoc Point
Name: Michael Schlueter
email: mschlue@cpan.org
Copyright (c) 2000, Michael Schlueter. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
