view release on metacpan or  search on metacpan

lib/PDF/Builder/NamedDestination.pm  view on Meta::CPAN

    # $page is either 1. a page object (from goto)
    #                 2. a formatted page number (from pdf)
    #                 3. a named destination string (from pdf)
    my %opts = $self->list2hash(@args);  # may be empty!

    my ($location, @arglist, $ptr);

    my %arg_counts = (
	# key = location given by user
	# [0] = required number of arguments, [1] = name for PDF
        'xyz'   => [3, 'XYZ'  ],  # s/b array ref
        'fit'   => [0, 'Fit'  ],  # 1 (scalar) ignored
        'fith'  => [1, 'FitH' ],  # s/b scalar
        'fitv'  => [1, 'FitV' ],  # s/b scalar
        'fitr'  => [4, 'FitR' ],  # s/b array ref
        'fitb'  => [0, 'FitB' ],  # 1 (scalar) ignored
        'fitbh' => [1, 'FitBH'],  # s/b scalar
        'fitbv' => [1, 'FitBV'],  # s/b scalar
    );

lib/PDF/Builder/NamedDestination.pm  view on Meta::CPAN

# assumes possible hash elements already as scalars or arrayrefs
# leading element(s) may be a list, turn it into one name=>[list]
sub list2hash {
    my ($self, @args) = @_;

    # nothing passed in?
    if (!@args) { return @args; }

    my %arg_counts = (
	# key = location given by user
	# value = required number of arguments
        'xyz'   => 3,
        'fit'   => 0,
        'fith'  => 1,
        'fitv'  => 1,
        'fitr'  => 4,
        'fitb'  => 0,
        'fitbh' => 1,
        'fitbv' => 1,
    );
    my $location;