sub CloseCursor {
    my ($self, $cursor) = @_;
    unless (defined $cursor) {
        warn "No cursor passed to CloseCursor!\n";
        return 0;
    }
    my $sql = __unindent(<<"    SQLEND");
        ~BEGIN 
        ~    close :cur; 
        ~END;
    SQLEND
    my $sth = $self->dbh->prepare($sql);
    print $sth->{'Statement'};
    $sth->bind_param_inout(':cur', \$cursor, 0, { ora_type => ORA_RSET } );
    if ($sth->execute) {
        return 1;
    } else {
        warn "Error closing cursor: ".$sth->errstr."\n";
        return 0;
    }
}