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