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
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.