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;
|
my $className = shift;
|
||||||
|
|
||||||
##Original arguments start here.
|
##Original arguments start here.
|
||||||
if (ref $_[0] eq 'HASH') {
|
|
||||||
return $className->$orig(@_);
|
|
||||||
}
|
|
||||||
my $protoSession = $_[0];
|
my $protoSession = $_[0];
|
||||||
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
||||||
return $className->$orig(session => $protoSession);
|
return $className->$orig(session => $protoSession);
|
||||||
|
|
|
||||||
|
|
@ -39,9 +39,6 @@ around BUILDARGS => sub {
|
||||||
my $className = shift;
|
my $className = shift;
|
||||||
|
|
||||||
##Original arguments start here.
|
##Original arguments start here.
|
||||||
if (ref $_[0] eq 'HASH') {
|
|
||||||
return $className->$orig(@_);
|
|
||||||
}
|
|
||||||
my $protoSession = $_[0];
|
my $protoSession = $_[0];
|
||||||
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
|
||||||
return $className->$orig(session => $protoSession);
|
return $className->$orig(session => $protoSession);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue