fix for new perl (redundant defined)
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / lib / Font / TTF / Mort / Noncontextual.pm
1 package Font::TTF::Mort::Noncontextual;
2
3 =head1 NAME
4
5 Font::TTF::Mort::Noncontextual - Noncontextual Mort subtable for AAT
6
7 =head1 METHODS
8
9 =cut
10
11 use strict;
12 use vars qw(@ISA);
13 use Font::TTF::Utils;
14 use Font::TTF::AATutils;
15
16 @ISA = qw(Font::TTF::Mort::Subtable);
17
18 sub new
19 {
20     my ($class, $direction, $orientation, $subFeatureFlags) = @_;
21     my ($self) = {
22                     'direction'            => $direction,
23                     'orientation'        => $orientation,
24                     'subFeatureFlags'    => $subFeatureFlags
25                 };
26
27     $class = ref($class) || $class;
28     bless $self, $class;
29 }
30
31 =head2 $t->read
32
33 Reads the table into memory
34
35 =cut
36
37 sub read
38 {
39     my ($self, $fh) = @_;
40     my ($dat);
41     
42     my ($format, $lookup) = AAT_read_lookup($fh, 2, $self->{'length'} - 8, undef);
43     $self->{'format'} = $format;
44     $self->{'lookup'} = $lookup;
45
46     $self;
47 }
48
49 =head2 $t->pack_sub($fh)
50
51 =cut
52
53 sub pack_sub
54 {
55     my ($self) = @_;
56     
57     return AAT_pack_lookup($self->{'format'}, $self->{'lookup'}, 2, undef);
58 }
59
60 =head2 $t->print($fh)
61
62 Prints a human-readable representation of the table
63
64 =cut
65
66 sub print
67 {
68     my ($self, $fh) = @_;
69     
70     my $post = $self->post();
71     
72     $fh = 'STDOUT' unless defined $fh;
73
74     my $lookup = $self->{'lookup'};
75     $fh->printf("\t\tLookup format %d\n", $self->{'format'});
76     if (defined $lookup) {
77         foreach (sort { $a <=> $b } keys %$lookup) {
78             $fh->printf("\t\t\t%d [%s] -> %d [%s])\n", $_, $post->{'VAL'}[$_], $lookup->{$_}, $post->{'VAL'}[$lookup->{$_}]);
79         }
80     }
81 }
82
83 1;
84
85 =head1 BUGS
86
87 None known
88
89 =head1 AUTHOR
90
91 Jonathan Kew L<Jonathan_Kew@sil.org>. See L<Font::TTF::Font> for copyright and
92 licensing.
93
94 =cut
95