No need for a ref HASH check.
This commit is contained in:
parent
298cc41562
commit
eb96c07d19
2 changed files with 0 additions and 6 deletions
|
|
@ -64,9 +64,6 @@ around BUILDARGS => sub {
|
|||
my $className = shift;
|
||||
|
||||
##Original arguments start here.
|
||||
if (ref $_[0] eq 'HASH') {
|
||||
return $className->$orig(@_);
|
||||
}
|
||||
my $protoSession = $_[0];
|
||||
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
||||
return $className->$orig(session => $protoSession);
|
||||
|
|
|
|||
|
|
@ -39,9 +39,6 @@ around BUILDARGS => sub {
|
|||
my $className = shift;
|
||||
|
||||
##Original arguments start here.
|
||||
if (ref $_[0] eq 'HASH') {
|
||||
return $className->$orig(@_);
|
||||
}
|
||||
my $protoSession = $_[0];
|
||||
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
||||
return $className->$orig(session => $protoSession);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue