"Fossies" - the Fresh Open Source Software Archive

Member "Perl-Tidy-20210717/lib/Perl/Tidy/VerticalAligner/Alignment.pm" (14 Jul 2021, 1941 Bytes) of package /linux/misc/Perl-Tidy-20210717.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "Alignment.pm" see the Fossies "Dox" file reference documentation and the latest Fossies "Diffs" side-by-side code changes report: 20210402_vs_20210717.

    1 #####################################################################
    2 #
    3 # the Perl::Tidy::VerticalAligner::Alignment class holds information
    4 # on a single column being aligned
    5 #
    6 #####################################################################
    7 package Perl::Tidy::VerticalAligner::Alignment;
    8 use strict;
    9 use warnings;
   10 
   11 { #<<< A non-indenting brace
   12 
   13 our $VERSION = '20210717';
   14 
   15 #    _column_          # the current column number
   16 #    _saved_column_    # a place for temporary storage
   17 my $i = 0;
   18 use constant {
   19     _column_       => $i++,
   20     _saved_column_ => $i++,
   21 };
   22 
   23 sub new {
   24     my ( $class, $rarg ) = @_;
   25     my $self = bless [], $class;
   26     $self->[_column_]       = $rarg->{column};
   27     $self->[_saved_column_] = $rarg->{saved_column};
   28     return $self;
   29 }
   30 
   31 sub AUTOLOAD {
   32 
   33     # Catch any undefined sub calls so that we are sure to get
   34     # some diagnostic information.  This sub should never be called
   35     # except for a programming error.
   36     our $AUTOLOAD;
   37     return if ( $AUTOLOAD =~ /\bDESTROY$/ );
   38     my ( $pkg, $fname, $lno ) = caller();
   39     my $my_package = __PACKAGE__;
   40     print STDERR <<EOM;
   41 ======================================================================
   42 Error detected in package '$my_package', version $VERSION
   43 Received unexpected AUTOLOAD call for sub '$AUTOLOAD'
   44 Called from package: '$pkg'  
   45 Called from File '$fname'  at line '$lno'
   46 This error is probably due to a recent programming change
   47 ======================================================================
   48 EOM
   49     exit 1;
   50 }
   51 
   52 sub DESTROY {
   53 
   54     # required to avoid call to AUTOLOAD in some versions of perl
   55 }
   56 
   57 sub get_column {
   58     return $_[0]->[_column_];
   59 }
   60 
   61 sub increment_column {
   62     $_[0]->[_column_] += $_[1];
   63     return;
   64 }
   65 
   66 sub save_column {
   67     $_[0]->[_saved_column_] = $_[0]->[_column_];
   68     return;
   69 }
   70 
   71 sub restore_column {
   72     $_[0]->[_column_] = $_[0]->[_saved_column_];
   73     return;
   74 }
   75 } ## end of package VerticalAligner::Alignment
   76 1;
   77