Drop lots of legacy code. Support Python 3.7-3.11.

[librarian.git] / src / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / LTSH.pm

diff --git a/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/LTSH.pm b/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/LTSH.pm
deleted file mode 100644 (file)
index 2b2dea6..0000000
--- a/src/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/LTSH.pm
+++ /dev/null
@@ -1,88 +0,0 @@
-package Font::TTF::LTSH;
-
-=head1 NAME
-
-Font::TTF::LTSH - Linear Threshold table
-
-=head1 DESCRIPTION
-
-Holds the linear threshold for each glyph. This is the ppem value at which a
-glyph's metrics become linear. The value is set to 1 if a glyph's metrics are
-always linear.
-
-=head1 INSTANCE VARIABLES
-
-=over 4
-
-=item glyphs
-
-An array of ppem values. One value per glyph
-
-=back
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use vars qw(@ISA);
-use Font::TTF::Table;
-
-@ISA = qw(Font::TTF::Table);
-
-=head2 $t->read
-
-Reads the table
-
-=cut
-
-sub read
-{
-    my ($self) = @_;
-    my ($fh) = $self->{' INFILE'};
-    my ($numg, $dat);
-
-    $self->SUPER::read or return $self;
-
-    $fh->read($dat, 4);
-    ($self->{'Version'}, $numg) = unpack("nn", $dat);
-    $self->{'Num'} = $numg;
-
-    $fh->read($dat, $numg);
-    $self->{'glyphs'} = [unpack("C$numg", $dat)];
-    $self;
-}
-
-
-=head2 $t->out($fh)
-
-Outputs the LTSH to the given fh.
-
-=cut
-
-sub out
-{
-    my ($self, $fh) = @_;
-    my ($numg) = $self->{' PARENT'}{'maxp'}{'numGlyphs'};
-
-    return $self->SUPER::out($fh) unless ($self->{' read'});
-
-    $fh->print(pack("nn", 0, $numg));
-    $fh->print(pack("C$numg", @{$self->{'glyphs'}}));
-    $self;
-}
-    
-
-1;
-
-=head1 BUGS
-
-None known
-
-=head1 AUTHOR
-
-Martin Hosken Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
-licensing.
-
-=cut
-