From f90360eab34198a53f341402c13e76ccaf98ee29 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 25 Aug 2022 11:35:50 -0700 Subject: [PATCH] remove unused code --- lib/Perl/Tidy/Formatter.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index c9d62b81..d3fc3ed7 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -8281,19 +8281,6 @@ sub weld_cuddled_blocks { my $K_opening_container = $self->[_K_opening_container_]; my $K_closing_container = $self->[_K_closing_container_]; - my $length_to_opening_seqno = sub { - my ($seqno) = @_; - my $KK = $K_opening_container->{$seqno}; - my $lentot = $KK <= 0 ? 0 : $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_]; - return $lentot; - }; - my $length_to_closing_seqno = sub { - my ($seqno) = @_; - my $KK = $K_closing_container->{$seqno}; - my $lentot = $KK <= 0 ? 0 : $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_]; - return $lentot; - }; - my $is_broken_block = sub { # a block is broken if the input line numbers of the braces differ @@ -9050,22 +9037,6 @@ sub weld_nested_containers { # It may be necessary to include '[' and '{' here in the future. my $one_line_tol = $opening_vertical_tightness{'('} ? 1 : 0; - my $length_to_opening_seqno = sub { - my ($seqno) = @_; - my $KK = $K_opening_container->{$seqno}; - my $lentot = defined($KK) - && $KK > 0 ? $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_] : 0; - return $lentot; - }; - - my $length_to_closing_seqno = sub { - my ($seqno) = @_; - my $KK = $K_closing_container->{$seqno}; - my $lentot = defined($KK) - && $KK > 0 ? $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_] : 0; - return $lentot; - }; - # Abbreviations: # _oo=outer opening, i.e. first of { { # _io=inner opening, i.e. second of { { -- 2.39.5