[imager.git] / t / GoodTestFont.pm

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;
Commit	Line	Data
9413a3f3 TC	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;