package GoodTestFont;
use strict;
use vars '@ISA';
# this doesn't do enough to be a font
sub new {
my ($class, %opts) = @_;
return bless \%opts, $class; # as long as it's true
}
1;
package GoodTestFont;
use strict;
use vars '@ISA';
# this doesn't do enough to be a font
sub new {
my ($class, %opts) = @_;
return bless \%opts, $class; # as long as it's true
}
1;