/usr/local/CPAN/DBD-Oracle/DBD/Oracle/Object.pm

• package DBD::Oracle::Object
  • type_name
  • attributes
  • attr_hash
  • attr
• EOF

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;