File Coverage

blib/lib/Rose/DBx/Object/Metadata/Column/Xml.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Rose::DBx::Object::Metadata::Column::Xml;
use strict;
use Rose::DB::Object::Metadata::Column::Text;
our @ISA = qw(Rose::DB::Object::Metadata::Column::Text);

use DBD::Oracle qw(:ora_types);

our $VERSION = '0.782';

sub type { 'xml' }

sub dbi_requires_bind_param
{
  my($self, $db) = @_;
  return $db->driver eq 'oracle' ? 1 : 0;
}

sub dbi_bind_param_attrs
{
  my($self, $db) = @_;
  return $db->driver eq 'oracle' ? ORA_XMLTYPE : undef;
}

sub select_sql
{
  my($self, $db, $table) = @_;
  if ($db) {
	  $table = $table ? "$table." : '';
	  return $db->driver eq 'oracle' ? "$table$self->{name}.getClobVal()" : "$table$self->{name}";
  } else {
  	return $self->{name};
  }
}

1;

__END__