Исходное сообщение
"ооп методы" Отправлено bibi, 23-Апр-09 12:46
спасибо, да, именно это а как управлять лкссамаи, кто как управлял классами? целесобразно ли так писать? ПРИМЕРНО: use MyPr::Form::Bla-bla; use MyPr::Valid::Bla-bla; use MyPr::Session::Bla-bla; use MyPr::Bla-bla::Bla-bla; всего 30-40 ............................... if (defined $param->{form} ) {     my @m = join("",&get_sub_list('MyPr::Form::'.$param->(form)));         if (defined @m) {      my @vm = join("",&get_sub_list('MyPr::Valid::'.$param->(form)));          foreash (@vm) {        my $obj = 'MyPr::Valid::'.$param->(form)->new($param);        $obj->$_();      }    }     foreash (@m) {         my $obj = 'MyPr::Form::'.$param->(form)->new();         $obj->$_(); } else {     if ($param->{global-bla}) {     my @mb = join("",&get_sub_list('MyPr::Bla-bla::'.$param->(form)));     foreash (@mb) {         my $obj = 'MyPr::Bla-bla::'.$param->(form)->new();         $obj->$_();     } }

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> спасибо, да, именно это > а как управлять лкссамаи, кто как управлял классами? > целесобразно ли так писать? > ПРИМЕРНО: > use MyPr::Form::Bla-bla; > use MyPr::Valid::Bla-bla; > use MyPr::Session::Bla-bla; > use MyPr::Bla-bla::Bla-bla; > всего 30-40 > ............................... > if (defined $param->{form} ) { > my @m = join("",&get_sub_list('MyPr::Form::'.$param->(form))); > if (defined @m) { > my @vm = join("",&get_sub_list('MyPr::Valid::'.$param->(form))); > foreash (@vm) { > my $obj = 'MyPr::Valid::'.$param->(form)->new($param); > $obj->$_(); > } > } > foreash (@m) { > my $obj = 'MyPr::Form::'.$param->(form)->new(); > $obj->$_(); > } else { > if ($param->{global-bla}) { > my @mb = join("",&get_sub_list('MyPr::Bla-bla::'.$param->(form))); > foreash (@mb) { > my $obj = 'MyPr::Bla-bla::'.$param->(form)->new(); > $obj->$_(); > } > }
	Введите код, изображенный на картинке: