view release on metacpan or  search on metacpan

lib/DBIO/Oracle/Storage/LOBSupport.pm  view on Meta::CPAN

  # UPDATE inside it. The block hands the real one back in an out bind.
  my $rc;
  $self->{_ora_lob_update_rowcount} = \$rc;
  return (
    "BEGIN $sql; ? := SQL%ROWCOUNT; END;",
    [ @$bind, [ { dbd_attrs => undef, dbd_size => 40 }, \$rc ] ],
  );
}


sub update {
  my $self = shift;

  local $self->{_ora_lob_update_rowcount};
  my $rv = $self->next::method(@_);

  my $rc = $self->{_ora_lob_update_rowcount};
  return $rv unless $rc and defined $$rc;
  return $$rc || '0E0';
}