Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
VerticalAligner	[ DIR ]	drwxrwxrwx
Debugger.pm	3.5 KB	-rw-rw-rw-
DevNull.pm	391 B	-rw-rw-rw-
Diagnostics.pm	1.92 KB	-rw-rw-rw-
FileWriter.pm	6.84 KB	-rw-rw-rw-
Formatter.pm	672.95 KB	-rw-rw-rw-
HtmlWriter.pm	48.41 KB	-rw-rw-rw-
IOScalar.pm	2.61 KB	-rw-rw-rw-
IOScalarArray.pm	2.16 KB	-rw-rw-rw-
IndentationItem.pm	6.87 KB	-rw-rw-rw-
LineBuffer.pm	1.48 KB	-rw-rw-rw-
LineSink.pm	2.58 KB	-rw-rw-rw-
LineSource.pm	2.81 KB	-rw-rw-rw-
Logger.pm	17.13 KB	-rw-rw-rw-
Tokenizer.pm	286.9 KB	-rw-rw-rw-
VerticalAligner.pm	149.48 KB	-rw-rw-rw-

Code Editor : LineSource.pm

#####################################################################
#
# the Perl::Tidy::LineSource class supplies an object with a 'get_line()' method
# which returns the next line to be parsed
#
#####################################################################

package Perl::Tidy::LineSource;
use strict;
use warnings;
our $VERSION = '20200619';

sub new {

my ( $class, @args ) = @_;

my %defaults = (
        input_file               => undef,
        rOpts                    => undef,
        rpending_logfile_message => undef,
    );

my %args = ( %defaults, @args );

my $input_file               = $args{input_file};
    my $rOpts                    = $args{rOpts};
    my $rpending_logfile_message = $args{rpending_logfile_message};

my $input_line_ending;
    if ( $rOpts->{'preserve-line-endings'} ) {
        $input_line_ending = Perl::Tidy::find_input_line_ending($input_file);
    }

( my $fh, $input_file ) = Perl::Tidy::streamhandle( $input_file, 'r' );
    return unless $fh;

# in order to check output syntax when standard output is used,
    # or when it is an object, we have to make a copy of the file
    if ( ( $input_file eq '-' || ref $input_file ) && $rOpts->{'check-syntax'} )
    {

# Turning off syntax check when input output is used.
        # The reason is that temporary files cause problems on
        # on many systems.
        $rOpts->{'check-syntax'} = 0;

${$rpending_logfile_message} .= <<EOM;
Note: --syntax check will be skipped because standard input is used
EOM

}

return bless {
        _fh                => $fh,
        _filename          => $input_file,
        _input_line_ending => $input_line_ending,
        _rinput_buffer     => [],
        _started           => 0,
    }, $class;
}

sub close_input_file {
    my $self = shift;

# Only close physical files, not STDIN and other objects
    my $filename = $self->{_filename};
    if ( $filename ne '-' && !ref $filename ) {
        eval { $self->{_fh}->close() };
    }
    return;
}

sub get_line {
    my $self          = shift;
    my $line          = undef;
    my $fh            = $self->{_fh};
    my $rinput_buffer = $self->{_rinput_buffer};

if ( scalar( @{$rinput_buffer} ) ) {
        $line = shift @{$rinput_buffer};
    }
    else {
        $line = $fh->getline();

# patch to read raw mac files under unix, dos
        # see if the first line has embedded \r's
        if ( $line && !$self->{_started} ) {
            if ( $line =~ /[\015][^\015\012]/ ) {

# found one -- break the line up and store in a buffer
                @{$rinput_buffer} = map { $_ . "\n" } split /\015/, $line;
                my $count = @{$rinput_buffer};
                $line = shift @{$rinput_buffer};
            }
            $self->{_started}++;
        }
    }
    return $line;
}
1;

${this.title}

Code Editor : LineSource.pm