File Coverage

blib/lib/PDF/Make/Font.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	4	6	66.6
condition	4	6	66.6
subroutine	6	6	100.0
pod	3	3	100.0
total	35	41	85.3

package PDF::Make::Font;
use strict;
use warnings;

our $VERSION = '0.03';

# Load the XS via PDF::Make
require PDF::Make;

# Font types
use constant {
    TYPE_TYPE1     => 0,
    TYPE_TRUETYPE  => 1,
    TYPE_CID_TRUETYPE => 2,
};

# Standard 14 font names
our @STD14_NAMES = qw(
    Helvetica
    Helvetica-Bold
    Helvetica-Oblique
    Helvetica-BoldOblique
    Times-Roman
    Times-Bold
    Times-Italic
    Times-BoldItalic
    Courier
    Courier-Bold
    Courier-Oblique
    Courier-BoldOblique
    Symbol
    ZapfDingbats
);

sub new {
    my ($class, %opts) = @_;

    if (my $file = $opts{file}) {
        return $class->from_file($file, $opts{arena});
    }
    elsif (my $bytes = $opts{bytes}) {
        return $class->from_bytes($bytes, $opts{arena});
    }
    elsif (my $std14 = $opts{standard14} // $opts{std14}) {
        return $class->standard14($std14, $opts{arena});
    }
    else {
        require Carp;
        Carp::croak("PDF::Make::Font: must specify file, bytes, or standard14");
    }
}

sub is_standard14 {
    my $self = shift;
    return $self->type == TYPE_TYPE1;
}

sub is_truetype {
    my $self = shift;
    return $self->type == TYPE_TRUETYPE || $self->type == TYPE_CID_TRUETYPE;
}

1;

__END__