Bug #42328 for DBD-Oracle: patch for better embedded objects support in DBD::Oracle

Hi, I am author of this patch, my name is Tomas Pokorny. Example may be something like in added test: databse content: CREATE TYPE Person AS OBJECT ( name VARCHAR2(20), age INTEGER ) NOT FINAL; CREATE TYPE Employee UNDER Person ( salary NUMERIC(8,2) ); CREATE TABLE people (id INTEGER, obj Person); INSERT INTO people VALUES (1, Person('Black', 25)); INSERT INTO people VALUES (2, Employee('Smith', 44, 5000)); perl example: use DBI; my $dbh = DBI->connect('dbi:Oracle:TESTDB', 'test/testpw', '', { ora_objects => 1 }); my $sth = $dbh->prepare("select * from people order by id"); $sth->execute(); # object are fetched as instance of DBD::Oracle::Object my ($id1, $obj1) = $sth->fetchrow(); my ($id2, $obj2) = $sth->fetchrow(); # get full type-name of object print $obj1->type_name; # 'TEST.PERSON' is printed print $obj2->type_name; # 'TEST.EMPLOYEE' is printed # get attribute NAME from object print $obj1->attr('NAME'); # 'Black' is printed print $obj2->attr('NAME'); # 'Smith' is printed # get all atributes as hash reference my $h1 = $obj1->attr; # returns {'NAME' => 'Black', 'AGE' => 25} my $h2 = $obj2->attr; # returns {'NAME' => 'Smith', 'AGE' => 44, # 'SALARY' => 5000 } # get all attributes (names and values) as array my @a1 = $obj1->attributes; # returns ('NAME', 'Black', 'AGE', 25) my @a2 = $obj2->attributes; # returns ('NAME', 'Smith', 'AGE', 44, # 'SALARY', 5000 ) -- On Wed, 2009-01-14 at 10:34 -0500, Pythian Remote DBA via RT wrote: Show quoted text

ok added to trunk will be in the next release