File Coverage

blib/lib/PDF/Make/Page.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package PDF::Make::Page;

use strict;
use warnings;

our $VERSION = '0.03';

# Load the XS code from PDF::Make
use PDF::Make ();

# XS bindings provide:
#   add_font($name, $base_font)    - add a font to the page resources
#   add_std14_font($name, $id)     - add a standard 14 font
#   set_content($bytes)            - set page content stream
#   DESTROY()                      - cleanup (page owned by document)

# Standard 14 font constants
use constant {
    TIMES_ROMAN           => 0,
    TIMES_BOLD            => 1,
    TIMES_ITALIC          => 2,
    TIMES_BOLDITALIC      => 3,
    HELVETICA             => 4,
    HELVETICA_BOLD        => 5,
    HELVETICA_OBLIQUE     => 6,
    HELVETICA_BOLDOBLIQUE => 7,
    COURIER               => 8,
    COURIER_BOLD          => 9,
    COURIER_OBLIQUE       => 10,
    COURIER_BOLDOBLIQUE   => 11,
    SYMBOL                => 12,
    ZAPFDINGBATS          => 13,
};

use Exporter 'import';
our @EXPORT_OK = qw(
    TIMES_ROMAN TIMES_BOLD TIMES_ITALIC TIMES_BOLDITALIC
    HELVETICA HELVETICA_BOLD HELVETICA_OBLIQUE HELVETICA_BOLDOBLIQUE
    COURIER COURIER_BOLD COURIER_OBLIQUE COURIER_BOLDOBLIQUE
    SYMBOL ZAPFDINGBATS
);
our %EXPORT_TAGS = (
    fonts => [qw(
        TIMES_ROMAN TIMES_BOLD TIMES_ITALIC TIMES_BOLDITALIC
        HELVETICA HELVETICA_BOLD HELVETICA_OBLIQUE HELVETICA_BOLDOBLIQUE
        COURIER COURIER_BOLD COURIER_OBLIQUE COURIER_BOLDOBLIQUE
        SYMBOL ZAPFDINGBATS
    )],
);

1;

__END__