# returns true if close works, false if not
# failure probably means there is no close method
return eval { $object->close(); 1 };
# returns true if close works, false if not
# failure probably means there is no close method
return eval { $object->close(); 1 };
my @identifier = qw< i t U C Y Z G :: CORE::>;
@token_short_names{@identifier} = ('i') x scalar(@identifier);
my @identifier = qw< i t U C Y Z G :: CORE::>;
@token_short_names{@identifier} = ('i') x scalar(@identifier);
# my @list = qw" .. -> <> ... \ ? ";
# @token_long_names{@list} = ('misc-operators') x scalar(@list);
# my @list = qw" .. -> <> ... \ ? ";
# @token_long_names{@list} = ('misc-operators') x scalar(@list);
sub make_getopt_long_names {
my ( $class, $rgetopt_names ) = @_;
sub make_getopt_long_names {
my ( $class, $rgetopt_names ) = @_;
push @{$rgetopt_names}, "podheader!";
push @{$rgetopt_names}, "podindex!";
return;
push @{$rgetopt_names}, "podheader!";
push @{$rgetopt_names}, "podindex!";
return;
sub set_default_properties {
my ( $short_name, $color, $bold, $italic ) = @_;
sub set_default_properties {
my ( $short_name, $color, $bold, $italic ) = @_;
$key = "html-italic-$short_to_long_names{$short_name}";
$rOpts->{$key} = ( defined $rOpts->{$key} ) ? $rOpts->{$key} : $italic;
return;
$key = "html-italic-$short_to_long_names{$short_name}";
$rOpts->{$key} = ( defined $rOpts->{$key} ) ? $rOpts->{$key} : $italic;
return;
# this error shouldn't happen ... we just used this filename
Perl::Tidy::Warn(
"unable to open temporary file $tmpfile; cannot use pod2html\n");
# this error shouldn't happen ... we just used this filename
Perl::Tidy::Warn(
"unable to open temporary file $tmpfile; cannot use pod2html\n");
sub markup_tokens {
my ( $self, $rtokens, $rtoken_type, $rlevels ) = @_;
sub markup_tokens {
my ( $self, $rtokens, $rtoken_type, $rlevels ) = @_;
push @colored_tokens, $token;
}
return ( \@colored_tokens );
push @colored_tokens, $token;
}
return ( \@colored_tokens );
sub markup_html_element {
my ( $self, $token, $type ) = @_;
sub markup_html_element {
my ( $self, $token, $type ) = @_;