0000:00:14
. li~d
j"Tz,lJbѿ
_I|+Ji
false
pixelsize
pixelsize
false
false
true
pixelsizefixupfactor
1.2
pixelsizefixupfactor
0.8
true
1.0
false
1.0
matrix
pixelsizefixupfactor 0
0 pixelsizefixupfactor
size
pixelsizefixupfactor
0 l4( ڔʁf Ӫbѿ
^q_ ub
&=LV[( ? #############################################################################
# Pod/ParseUtils.pm -- helpers for POD parsing and conversion
#
# Copyright (C) 1999-2000 by Marek Rouchal. All rights reserved.
# This file is part of "PodParser". PodParser is free software;
# you can redistribute it and/or modify it under the same terms
# as Perl itself.
#############################################################################
package Pod::ParseUtils;
use strict;
use vars qw($VERSION);
$VERSION = '1.61'; ## Current version of this package
require 5.005; ## requires this Perl version or later
=head1 NAME
Pod::ParseUtils - helpers for POD parsing and conversion
=head1 SYNOPSIS
use Pod::ParseUtils;
my $list = new Pod::List;
my $link = Pod::Hyperlink->new('Pod::Parser');
=head1 DESCRIPTION
B contains a few object-oriented helper packages for
POD parsing and processing (i.e. in POD formatters and translators).
=cut
#-----------------------------------------------------------------------------
# Pod::List
#
# class to hold POD list info (=over, =item, =back)
#-----------------------------------------------------------------------------
package Pod::List;
use Carp;
=head2 Pod::List
B can be used to hold information about POD lists
(written as =over ... =item ... =back) for further processing.
The following methods are available:
=over 4
=item Pod::List-Enew()
Create a new list object. Properties may be specified through a hash
reference like this:
my $list = Pod::List->new({ -start => $., -indent => 4 });
See the individual methods/properties for details.
=cut
sub new {
my $this = shift;
my $class = ref($this) || $this;
my %params = @_;
my $self = {%params};
bless $self, $class;
$self->initialize();
return $self;
}
sub initialize {
my $self = shift;