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 : IOScalarArray.pm

#####################################################################
#
# This is a stripped down version of IO::ScalarArray
# Given a reference to an array, it supplies either:
# a getline method which reads lines (mode='r'), or
# a print method which reads lines (mode='w')
#
# NOTE: this routine assumes that there aren't any embedded
# newlines within any of the array elements.  There are no checks
# for that.
#
#####################################################################
package Perl::Tidy::IOScalarArray;
use strict;
use warnings;
use Carp;
our $VERSION = '20200619';

sub new {
    my ( $package, $rarray, $mode ) = @_;
    my $ref = ref $rarray;
    if ( $ref ne 'ARRAY' ) {
        confess <<EOM;
------------------------------------------------------------------------
expecting ref to ARRAY but got ref to ($ref); trace follows:
------------------------------------------------------------------------
EOM

}
    if ( $mode eq 'w' ) {
        @{$rarray} = ();
        return bless [ $rarray, $mode ], $package;
    }
    elsif ( $mode eq 'r' ) {
        my $i_next = 0;
        return bless [ $rarray, $mode, $i_next ], $package;
    }
    else {
        confess <<EOM;
------------------------------------------------------------------------
expecting mode = 'r' or 'w' but got mode ($mode); trace follows:
------------------------------------------------------------------------
EOM
    }
}

sub getline {
    my $self = shift;
    my $mode = $self->[1];
    if ( $mode ne 'r' ) {
        confess <<EOM;
------------------------------------------------------------------------
getline requires mode = 'r' but mode = ($mode); trace follows:
------------------------------------------------------------------------
EOM
    }
    my $i = $self->[2]++;
    return $self->[0]->[$i];
}

sub print {
    my ( $self, $msg ) = @_;
    my $mode = $self->[1];
    if ( $mode ne 'w' ) {
        confess <<EOM;
------------------------------------------------------------------------
print requires mode = 'w' but mode = ($mode); trace follows:
------------------------------------------------------------------------
EOM
    }
    push @{ $self->[0] }, $msg;
    return;
}
sub close { return }
1;

${this.title}

Code Editor : IOScalarArray.pm