Can I overload Perl =? (And the problem when using Tie)

I want to use a tie and find this:

package Galaxy::IO::INI;
sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {']' => []}; # ini section can never be ']'
    tie %{$self},'INIHash';
    return bless $self, $class;
}

package INIHash;
use Carp;
require Tie::Hash;

@INIHash::ISA = qw(Tie::StdHash);

sub STORE {
    #$_[0]->{$_[1]} = $_[2];
    push @{$_[0]->{']'}},$_[1] unless exists $_[0]->{$_[1]};
    for (keys %{$_[2]}) {
        next if $_ eq '=';
        push @{$_[0]->{$_[1]}->{'='}},$_ unless exists $_[0]->{$_[1]}->{$_};
        $_[0]->{$_[1]}->{$_}=$_[2]->{$_};
    }
    $_[0]->{$_[1]}->{'='};
}

      

        
        
        
      

    

If I remove the last "$ [0] → {$ [1]} → {'='};" it doesn't work properly. Why?

I know the return value is required. But "$ [0] → {$ [1]}; also cannot work correctly, and $ [0] → {$ [1]} → {'='} is not all.

I am writing a package in Perl to parse INI files. Just something based on Config::Tiny

.

I want to preserve the order of sections and keys, so I use an additional array to store the order.

But when I use " $Config->{newsection} = { this => 'that' }; # Add a section

", I need to overload the ' =

' so that "newsection" and "this" are pressed in the array.

Is it possible that " $Config->{newsection} = { this => 'that' };

" works without affecting other parts?

Part of the code:

sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {']' => []}; # ini section can never be ']'
    return bless $self, $class;
}
sub read_string {
    if ( /^\s*\[\s*(.+?)\s*\]\s*$/ ) {
        $self->{$ns = $1} ||= {'=' => []};  # ini key can never be '='
        push @{$$self{']'}},$ns;
        next;
    }
    if ( /^\s*([^=]+?)\s*=\s*(.*?)\s*$/ ) {
        push @{$$self{$ns}{'='}},$1 unless defined $$self{$ns}{$1};
        $self->{$ns}->{$1} = $2;
        next;
    }
}
sub write_string {
    my $self = shift;
    my $contents = '';
    foreach my $section (@{$$self{']'}}) {
}}