my ($_username, $_password);

sub new {
    my ($username, $password) = @_;
    $_username = $username;
    $_password = $password;
    my $self = {};
    # ...
    bless $self;
}

##</code><code>##

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
    return $_username => $_password;
}