t/GoodTestFont.pm

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