t/GoodTestFont.pm

   1 package GoodTestFont;
   2 use strict;
   3 use vars '@ISA';
   4
   5 # this doesn't do enough to be a font
   6
   7 sub new {
   8   my ($class, %opts) = @_;
   9
  10   return bless \%opts, $class; # as long as it's true
  11 }
  12
  13 1;