Perl
- 2 ответа
- 0 вопросов
1
Вклад в тег
package MyClass;
my $private_method = sub {
my $self = shift;
# ...
};
sub public_method {
my $self = shift;
$private_method->($self);
}