Select Code to Download

sub joe_method {
    my $self = ref ($_[0] eq 'SCALAR') ? getSessionHashRef(shift) : sh
+ift;
...
    # MyApacheSessionHelper->getSessionHashRef (shift)
    ...
}

sub joe_method {
    my $self = ref (shift eq 'SOAP::Lite') ? getSessionHashRef(shift) 
+: $_;
...
}