1
  )   ˆl–Ðz¾”*ClÊq@‚àCq§Å£Á‚Z_†I|¥+ÁÀ  Ö    /* Compatible <termio.h> for old `struct termio' ioctl interface.
   This is obsolete; use the POSIX.1 `struct termios' interface
   defined in <termios.h> instead.  */

#include <termios.h>
#include <sys/ioctl.h>
  "   ˆl–Ým_J*j"Tâ‚Æ…pO©‹FÿÃƒh¹ÂÁ      auto
  1   ˆl–Ým_Jµ!®Å8 ¸Èn 
bÑ¿Ä649_uÐb&=LyZof¯ÄÃ ‰    ‹     uTMoÛ0½ëW>µX#¬Ý¥‡aXÚx¨¤	âtØ°ƒ,Ó‰V}’Ü4ÿ~”6é¶"‡($õÞã#¾ºbq?š-çw«.!;ÿ ”pñþü"ƒLµÞuÓqªl÷”1^Þ@v;žåSíÈôi¸étTR„)¤ì¤#¬X£A‡«å÷Ûù¢,JB
-ã¢Í¸²ðî’ñ¨`D_WËD{ì°q[¢‡ôÉ†$D)ô3Š%,–ù—â[j ïÌ[9¥š>5É¿×ùq*ŠJcŸ[¯¦ù¯b²géµOòòzY,VÅü6ú˜«~£Œ„Ç7M î½Â Ò£ˆXCµ]@?Òøˆš™çòZ qNŽ<q´ÊÔÌù]ÍN9c““‘ µ2*Š¨œàš>$;ï‰”è!_jÿ‘ÇÐ®•Å3PT@™Ö… ÈƒtCn„]ãÿ:­²*DO´¤~wÁÁ–x…gõjZ-v‰ÓpXmú “m•ÖP!xjõ‘Ì á'qM;O]“Õ%¼?Œè>©Þ‡^yJõ«‰,†¥x÷I ~OYo=6ê	jê ‚5:÷¢Ž¬uí1š&Z~  Í!èaûÂÁa‚Øn”ÜµB>à~1<J$¯ê#¬´¡/‚³·U²·óÄqP¶ôëyâx¿È„þ¼ÆþUõ_˜¾€CûYVØ?7í¤Ðœ4¬þ´wwø!h 8OKm;S¡çûSæ9Œ§åœñÊ÷X4×“ËÓ!9¾[ÝÌ—lîí 1Ì„mé¯"=Ž9)”†©Šâ>©>»­æ®E»%6.ùÄþ ¤5ˆ‹½    F   	ˆl–ß=¿JÅ4Å º q¶î61hßÆƒeà¹_‹uÐb&=LV[(a–Ým_J*j"Tâ‚Æ™¸Û*bÑ¿Æ è    	package Pod::Perldoc::ToTerm;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '3.28';

use parent qw(Pod::Perldoc::BaseTo);

sub is_pageable        { 1 }
sub write_with_binmode { 0 }
sub output_extension   { 'txt' }

use Pod::Text::Termcap ();

sub alt       { shift->_perldoc_elem('alt'     , @_) }
sub indent    { shift->_perldoc_elem('indent'  , @_) }
sub loose     { shift->_perldoc_elem('loose'   , @_) }
sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
sub sentence  { shift->_perldoc_elem('sentence', @_) }
sub width     { 
    my $self = shift;
    $self->_perldoc_elem('width' , @_) ||
    $self->_get_columns_from_manwidth  ||
	$self->_get_columns_from_stty      ||
	$self->_get_default_width;
}

sub pager_configuration {
  my($self, $pager, $perldoc) = @_;

  # do not modify anything on Windows or DOS
  return if ( $perldoc->is_mswin32 || $perldoc->is_dos );

  if ( $pager =~ /less/ ) {
    $self->_maybe_modify_environment('LESS');
  }
  elsif ( $pager =~ /more/ ) {
    $self->_maybe_modify_environment('MORE');
  }

  return;
}

sub _maybe_modify_environment {
  my($self, $name) = @_;

  if ( ! defined $ENV{$name} ) {
    $ENV{$name} = "-R";
  }

  # if the environment is set, don't modify
  # anything

}

sub _get_stty { `stty -a` }

sub _get_columns_from_stty {
	my $output = $_[0]->_get_stty;

	if(    $output =~ /\bcolumns\s+(\d+)/ )    { return $1; }
	elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1; }
	else                                       { return  0 }
	}

sub _get_columns_from_manwidth {
	my( $self ) = @_;

	return 0 unless defined $ENV{MANWIDTH};

	unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
		$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
		return 0;
		}

	if( $ENV{MANWIDTH} == 0 ) {
		$self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" );
		return 0;
		}

	if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 }

	return 0;
	}

sub _get_default_width {
	76
	}


sub new { return bless {}, ref($_[0]) || $_[0] }

sub parse_from_file {
  my $self = shift;

  $self->{width} = $self->width();

  my @options =
    map {; $_, $self->{$_} }
      grep !m/^_/s,
        keys %$self
  ;

  defined(&Pod::Perldoc::DEBUG)
   and Pod::Perldoc::DEBUG()
   and print "About to call new Pod::Text::Termcap ",
    $Pod::Text::VERSION ? "(v$Pod::Text::Termcap::VERSION) " : '',
    "with options: ",
    @options ? "[@options]" : "(nil)", "\n";
  ;

  Pod::Text::Termcap->new(@options)->parse_from_file(@_);
}

1;

=head1 NAME

Pod::Perldoc::ToTerm - render Pod with terminal escapes

=head1 SYNOPSIS

  perldoc -o term Some::Modulename

=head1 DESCRIPTION

This is a "plug-in" class that allows Perldoc to use
Pod::Text as a formatter class.

It supports the following options, which are explained in
L<Pod::Text>: alt, indent, loose, quotes, sentence, width

For example:

  perldoc -o term -w indent:5 Some::Modulename

=head1 PAGER FORMATTING

Depending on the