From Perl5 and Advanced Perl4 Features Computational Science for Information Age Course CPS616 -- Sept 20 97. byGeoffrey C. Fox,Nancy McCracken,Tom Scavo
# Set up defaults in hash $self which is blessed
my $self = bless {
family => "Times",
mH => mm(40), # mm is local subroutine converting millimetres to points
mW => mm(20),
printpageno => 1,
fontscale => 1,
leading => 0.1,
}, $class; # second argument to bless is class name
$self->papersize($DEFAULT_PAGESIZE); # To be Continued on next foil