Author: byterock
Date: Wed Jan 14 08:49:23 2009
New Revision: 12440
Added:
dbd-oracle/trunk/lib/DBD/Oracle/Object.pm
Modified:
dbd-oracle/trunk/MANIFEST
dbd-oracle/trunk/Oracle.pm
Log:
Objec.pm was in the wrong spot move and added it
Modified: dbd-oracle/trunk/MANIFEST
==============================================================================
--- dbd-oracle/trunk/MANIFEST (original)
+++ dbd-oracle/trunk/MANIFEST Wed Jan 14 08:49:23 2009
@@ -8,6 +8,7 @@
hints/macos_syms.pl
hints/svr4.pl
lib/DBD/Oracle/GetInfo.pm
+lib/DBD/Oracle/Object.pm
Makefile.PL
MANIFEST
mk.pm
Modified: dbd-oracle/trunk/Oracle.pm
==============================================================================
--- dbd-oracle/trunk/Oracle.pm (original)
+++ dbd-oracle/trunk/Oracle.pm Wed Jan 14 08:49:23 2009
@@ -17,7 +17,7 @@
use DBI ();
use DynaLoader ();
use Exporter ();
- use Object;
+ use DBD::Oracle::Object();
@ISA = qw(DynaLoader Exporter);
%EXPORT_TAGS = (
Added: dbd-oracle/trunk/lib/DBD/Oracle/Object.pm
==============================================================================
--- (empty file)
+++ dbd-oracle/trunk/lib/DBD/Oracle/Object.pm Wed Jan 14 08:49:23 2009
@@ -0,0 +1,24 @@
+package DBD::Oracle::Object;
+
+use strict;
+use warnings;
+
+sub type_name { shift->{type_name} }
+
+sub attributes { @{shift->{attributes}} }
+
+sub attr_hash {
+ my $self = shift;
+ return $self->{attr_hash} ||= { $self->attributes };
+}
+
+sub attr {
+ my $self = shift;
+ if (@_) {
+ my $key = shift;
+ return $self->attr_hash->{$key};
+ }
+ return $self->attr_hash;
+}
+
+1;
\ No newline at end of file
