1 package DBIx::Class::Schema::Loader::DBObject::Sybase;
5 use base 'DBIx::Class::Schema::Loader::DBObject';
11 DBIx::Class::Schema::Loader::DBObject::Sybase - Class for Database Objects for
12 Sybase ASE and MSSQL Such as Tables and Views in L<DBIx::Class::Schema::Loader>
16 This is a subclass of L<DBIx::Class::Schema::Loader::DBObject> that adds
17 support for fully qualified objects in Sybase ASE and MSSQL including both
18 L</database> and L<schema|DBIx::Class::Schema::Loader::DBObject/schema> of the
21 database.owner.object_name
27 The database name this object belongs to.
30 L<ignore_schema|DBIx::Class::Schema::Loader::DBObject/ignore_schema> is set.
34 __PACKAGE__->mk_group_accessors(simple => qw/
41 my $self = $class->next::method(@_);
43 $self->{_database} = delete $self->{database};
51 return $self->_database(@_) unless $self->ignore_schema;
58 Returns the properly quoted full identifier with L</database>,
59 L<schema|DBIx::Class::Schema::Loader::DBObject/schema> and
60 L<name|DBIx::Class::Schema::Loader::DBObject/name>.
67 my $name_sep = $self->loader->name_sep;
69 if ($self->database) {
70 return $self->_quote($self->database)
72 . $self->_quote($self->schema)
74 . $self->_quote($self->name);
77 return $self->next::method(@_);
83 my $name_sep = $self->loader->name_sep;
85 if ($self->loader->qualify_objects && $self->_database) {
86 if ($self->_database =~ /\W/
87 || $self->_schema =~ /\W/ || $self->name =~ /\W/) {
89 return \ $self->sql_name;
92 return $self->_database . $name_sep . $self->_schema . $name_sep . $self->name;
95 return $self->next::method(@_);
100 L<DBIx::Class::Schema::Loader::Table::Sybase>,
101 L<DBIx::Class::Schema::Loader::DBObject>,
102 L<DBIx::Class::Schema::Loader::Table>, L<DBIx::Class::Schema::Loader>,
103 L<DBIx::Class::Schema::Loader::Base>
107 See L<DBIx::Class::Schema::Loader/AUTHORS>.
111 This library is free software; you can redistribute it and/or modify it under
112 the same terms as Perl itself.
117 # vim:et sts=4 sw=4 tw=0: