package blx::xsdsql::xml::oracle::table;

use strict;
use warnings;
use integer;
use Carp;

use base qw( blx::xsdsql::xml::oracle::catalog blx::xsdsql::xml::generic::table   );

my %INVALID_NAMES=();

sub new {
	my ($class,%params)=@_;
	return bless(blx::xsdsql::xml::generic::table->_new(%params),$class)
}

sub _get_attrs_w { return \%blx::xsdsql::xml::generic::table::_ATTRS_W; }
sub _get_attrs_r { return \%blx::xsdsql::xml::generic::table::_ATTRS_R; }


sub _resolve_invalid_name {
	my ($self,$name,%params)=@_;
	if (exists $INVALID_NAMES{uc($name)}) {
		$name=substr($name,0,$self->get_name_maxsize - 1) if length($name) >= $self->get_name_maxsize;
		$name.='_';
	}
	return $name;
}


1;



__END__

=head1  NAME

	blx::xsdsql::xml::oracle::table -  a table class for oracle
 
=cut

=head1 SYNOPSIS

  use blx::xsdsql::xml::oracle::table

=cut


=head1 DESCRIPTION

this package is a class - instance it with the method new


=head1 FUNCTIONS

see the methods of blx::xsdsql::xml::generic::table and blx::xsdsql::xml::oracle::catalog 
 

=head1 EXPORT

None by default.


=head1 EXPORT_OK
	
none 

=head1 SEE ALSO

See blx::xsdsql::xml::generic::table and blx::xsdsql::xml::oracle::catalog  - this class inerith for it 

See blx:.xsdsql::generator for generate the schema of the database and blx::xsdsql::parser  for parse a xsd file (schema file)

=head1 AUTHOR

lorenzo.bellotti, E<lt>pauseblx@gmail.comE<gt>

=head1 COPYRIG 

Copyright (C) 2010 by lorenzo.bellotti

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut