TT#24097 Allow perl builtin homonyms for method names

These are methods and do not really conflict with the perl builtins
with the same name outside of this package.

Change-Id: If7405ebc6a9e862433e576743ae6c32d7d6ec51e
changes/13/16713/3
Guillem Jover 9 years ago
parent b4d0ff7f39
commit 0012037a32

@ -67,7 +67,7 @@ sub set_cert {
} }
# XXX unify these two # XXX unify these two
sub connect { sub connect { ## no critic: Subroutines::ProhibitBuiltinHomonyms
my ($self) = @_; my ($self) = @_;
$self->{_connected} and return; $self->{_connected} and return;
@ -95,7 +95,7 @@ sub connect {
$self->{_mux}->add($near); $self->{_mux}->add($near);
$self->{_mux}->add($openssl_out); $self->{_mux}->add($openssl_out);
} }
sub accept { sub accept { ## no critic: Subroutines::ProhibitBuiltinHomonyms
my ($self) = @_; my ($self) = @_;
$self->{_connected} and return; $self->{_connected} and return;
@ -303,13 +303,13 @@ sub encode {
my ($self, @rest) = @_; my ($self, @rest) = @_;
return $self->[0]->encode(@rest); return $self->[0]->encode(@rest);
} }
sub connect { sub connect { ## no critic: Subroutines::ProhibitBuiltinHomonyms
my ($self, @rest) = @_; my ($self, @rest) = @_;
for my $cl (@$self) { for my $cl (@$self) {
$cl->accept(@rest); $cl->accept(@rest);
} }
} }
sub accept { sub accept { ## no critic: Subroutines::ProhibitBuiltinHomonyms
my ($self, @rest) = @_; my ($self, @rest) = @_;
for my $cl (@$self) { for my $cl (@$self) {
$cl->accept(@rest); $cl->accept(@rest);

Loading…
Cancel
Save