Metacat

# subroutine to logout of Metacat

#############################################################

sub logout {

    my $self = shift;

    my %postData = (action => 'logout');

    my $response = $self->sendData(%postData);

    # clear the cookie

    my $cookie_jar = $self->{'cookies'};

    $$cookie_jar->clear();

    return $response->content;

}

#############################################################