Наследование переменных в Perl

package Class;
our $a = 5;
 
1;

package Class1;
use Class;
@Class1::ISA = ('Class');
 
1;

package Class2;
use Class1;
@Class2::ISA = ('Class1');
 
print $a;
 
1;

# ...
use Exporter 'import';
@EXPORT = qw/ $a /;
# ...

#!perl
 
{
    package Class;
    our $a = 5;
    sub new {
        bless [ ], shift;
    }
    sub get_a {
        return $a;
    }
    1;
}
 
{
    package Class1;
    our @ISA = qw(Class);
    1;
}
 
{
    package Class2;
    our @ISA = qw(Class1);
    1;
}
 
package Main;
 
use strict;
use warnings;
 
my $obj = Class2->new();
print $obj->get_a();

#!perl
 
{
    package Class;
    use Moose;
    has 'a' => (
        is => 'rw',
        default => 5,
    );
    1;
}
 
{
    package Class1;
    use Moose;
    extends 'Class';
    1;
}
 
{
    package Class2;
    use Moose;
    extends 'Class1';
    1;
}
 
package Main;
use Moose;
use strict;
use warnings;
 
my $obj = Class2->new();
print $obj->a, "\n"; # здесь выводиться по умолчанию
$obj->a(15); # задаётся новое значение
print $obj->a, "\n";

package Class;
    use Moose;
    has 'a' => (
        is => 'rw',
        default => 5,
    );
    sub a {
    ...
    }
    1;

#!perl
 
{
    package Class;
    use Moose;
    has 'a' => (
        is => 'rw',
        reader => 'get_a', 
        writer => 'set_a',
        default => 5,
    );
    1;
}
 
{
    package Class1;
    use Moose;
    extends 'Class';
    1;
}
 
{
    package Class2;
    use Moose;
    extends 'Class1';
    1;
}
 
package Main;
use Moose;
use strict;
use warnings;
 
my $obj = Class2->new();
print $obj->get_a(), "\n"; # здесь выводиться по умолчанию
$obj->set_a(15); # задаётся новое значение
print $obj->get_a, "\n";

#!perl
 
{
    package Class;
    our $a = 5;
    sub new {
        bless { }, shift;
    }
    sub get_a {
        return $a;
    }
    sub set_a {
        my $self = shift;
        $a = shift;
    }
    1;
}
 
{
    package Class1;
    our @ISA = qw(Class);
    1;
}
 
{
    package Class2;
    our @ISA = qw(Class1);
    1;
}
 
package Main;
 
use strict;
use warnings;
 
my $obj = Class2->new();
print $obj->get_a(), "\n";
$obj->set_a(28);
print $obj->get_a(), "\n";

package main;
use strict;
use warnings;
 
use Class2;
 
my $object = Class2->new;
print $object->get_a; # возвращалась $a из пакета Class1 , а не из Class.

#!perl
 
{
    package Class;
    sub new {
        bless { }, shift;
    }
    1;
}
 
{
    package Class1;
    our @ISA = qw(Class);
    our $a = 8;
    sub get_a {
        return $a;
    }
    sub set_a {
        my $self = shift;
        $a = shift;
    }
    1;
}
 
{
    package Class2;
    our @ISA = qw(Class1);
    1;
}
 
package Main;
 
use strict;
use warnings;
 
my $obj = Class2->new();
print $obj->get_a(), "\n";
$obj->set_a(20);
print $obj->get_a(), "\n";

package Class;
 
sub new
{
   my $class = shift;
   my $temp = shift;
   if (defined($temp)) {}
   else {$temp = 5}
   my $self = {
      a => $temp,
   };
   bless $self, $class;
   return $self;
}
 
sub a
{
   my ( $self ) = shift;
   if (defined (my $temp = shift)) {
      $self->{a} = $temp;
   }
   return $self->{a};
}
 
1;

package Class1;
use Class;
our @ISA = qw(Class);
 
sub a {
   my ($self) = shift;
   if (defined(my $temp = shift)) {
      $self->{a} = $temp;
   }
   return $self->{a}*2;
}
 
1;

package Class2;
use Class1
our @ISA = qw(Class1);
 
#sub a {
#   my ($self) = shift;
#   if (defined(my $temp = shift)) {
#      $self->{a} = $temp;
#   }
#   return $self->{a}*3;
#}
 
1;

#!/usr/bin/perl
use v5.14;
use warnings;
use Class2;
 
 
my $obj  = new Class2();
say $obj ->a();
print $obj->a(2),"\n";