package blx::xsdsql::xml::oracle::catalog;
use strict;
use warnings;
use Carp;
use base qw(blx::xsdsql::xml::generic::catalog);
use constant {
DICTIONARY_NAME_MAXSIZE => 30
,DICTIONARY_COMMENT_MAXSIZE => 2048
,BEGIN_COMMENT => '/*'
,END_COMMENT => '*/'
,COMMAND_TERMINATOR => ';'
,MAX_COLUMNS_VIEW => 1000
,MAX_JOINS_VIEW => -1 #unlimited
,MAX_COLUMNS_TABLE => 1000
};
sub new {
my ($class,%params)=@_;
return $class->SUPER::_new(%params);
}
sub get_name_maxsize { return DICTIONARY_NAME_MAXSIZE; }
sub get_comment_maxsize { return DICTIONARY_COMMENT_MAXSIZE; }
sub get_begin_comment { return BEGIN_COMMENT; }
sub get_end_comment { return END_COMMENT; }
sub command_terminator { return COMMAND_TERMINATOR; }
sub get_max_columns_view { return MAX_COLUMNS_VIEW; }
sub get_max_joins_view { return MAX_JOINS_VIEW; }
sub get_max_columns_table { return MAX_COLUMNS_TABLE; }
1;
__END__
=head1 NAME
blx::xsdsql::xml::oracle::catalog - a catalog class for oracle
=cut
=head1 SYNOPSIS
use blx::xsdsql::xml::oracle::catalog
=cut
=head1 DESCRIPTION
this package is a class - instance it with the method new
=head1 FUNCTIONS
see the methods of blx::xsdsql::xml::generic::catalog
=head1 EXPORT
None by default.
=head1 EXPORT_OK
none
=head1 SEE ALSO
See blx::xsdsql::xml::generic::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