Ну так через конструкторы и передавай свою константу:
| Код |
my $obj = new MainClass(my_const => "Bla, bla, bla");
package MainClass;
sub new {
my $check = shift;
my $class = ref($check) || $check;
my $self = {
my_const => "default_value", @_
};
return bless($self, $class);
}
sub main_func {
my $main = new MainClass::SubClass1(my_const => $self->{my_const}); # Передаём константу дальше
$main->process_task;
}
sub ua {
my ($self) = shift;
my $ua = new MainClass::Uni::LWP(my_const => $self->{my_constant});
return $ua;
}
package MainClass::SubClass1 {
sub new {
my $check = shift;
my $class = ref($check) || $check;
my $self = {
my_const => "default_value", @_
};
return bless($self, $class);
}
sub process_task {
my $self = shift;
my $process = new MainClass::SubClass2(my_const => $self->{my_const}); # Передаём константу дальше
}
}
package MainClass::SubClass2 {
sub new {
my $check = shift;
my $class = ref($check) || $check;
my $self = {
my_const => "default_value", @_
};
return bless($self, $class);
}
sub parse_page {
my $self = shift;
my $ua = new MainClass::Uni::LWP($self->{my_const}); # Вот как сюда передать константу? ( Передаём константу ещё дальше).
}
}
|
Константу мы передали до места назначения, но код этот глюковатый. Так как над ним можно, а главное нужно, хорошенько подумать. Для этого либо тебе нужно чётко изложить, цель всего, что написано выше, либо перейти на примеры попроще.
Ты помоему сильно увлекаешься созданием методов-фабрик, т.е. в методе ты создаешь новый объект. Вот здесь например:
| Код |
sub main_func {
my $main = new MainClass::SubClass1(my_const => $self->{my_const}); # Передаём константу дальше
$main->process_task;
}
sub ua {
my ($self) = shift;
my $ua = new MainClass::Uni::LWP(my_const => $self->{my_constant});
return $ua;
}
|
Перед тем как создавать такую фабрику объектов, нужно подумать:
А действительно нужно создавать новый объект при каждом вызове метода main_func() или ua()? Или же можно создать этот объект один раз, в конструкторе или методе INIT, при созданнии текущего объекта, сохранить её в тот же анонимный хеш и пользоваться этой ссылкой везде, где объект не обязательно должен быть новым? |
) или передавать эту константу при создании объектов - но это муторно
