36
36
# ----- Call some methods -----
38
40
print "\nHere are some properties of the shapes:\n";
39
41
foreach (array($c,$s) as $o) {
41
43
print " area = " . Shape_area($o) . "\n";
42
44
print " perimeter = " . Shape_perimeter($o) . "\n";
47
47
# ----- Delete everything -----
49
49
print "\nGuess I'll clean up now\n";
51
51
# Note: this invokes the virtual destructor
55
61
print nshapes() . " shapes remain\n";