File Coverage

blib/lib/NoSQL/PL2SQL/DBI/MySQL.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package NoSQL::PL2SQL::DBI::MySQL ;
use base qw( NoSQL::PL2SQL::DBI ) ;

## The following methods construct SQL messages and may need to be modified
## for different implementations

# sub fetch {}
# sub update {}
# sub delete {}
# sub lastinsertid {}

###############################################################################
##
##  Schema:		NoSQL::PL2SQL::DBI::MySQL
##  Base Schema:	NoSQL::PL2SQL::DBI
##  Schema Node:	NoSQL::PL2SQL::DBI::MySQL::table::column
##  Base Schema Node:	NoSQL::PL2SQL::DBI::table::column
##
##  The schema method is called for every node in the XML definition.  The
##  base schema class is called on the top node, and any node without a
##  schema class definition.
##
##  If a Schema Node class is undefined altogether, the inheritance order is
##  as follows:
##	Base Schema Node
##	Schema
##	Base Schema
##
##  If a Schema Node class is defined, but the schema() method is not,
##  inheritance drops immediately to the Base Schema.  The default schema()
##  method, defined in the Base Schema, returns the schema results of its
##  child nodes.  Therefore, definitions are only required from the lowest
##  level nodes containing the relevant data.
##
###############################################################################


package NoSQL::PL2SQL::DBI::MySQL::Schema ;
use base qw( NoSQL::PL2SQL::DBI::Schema ) ;

## A Schema class must be defined although the base methods should always
## be adequate.

## No need to override.
# sub schema {
#	my $self = shift ;
#	}

package NoSQL::PL2SQL::DBI::MySQL::Schema::table ;
use base qw( NoSQL::PL2SQL::DBI::Schema ) ;

sub schema {
	my $self = shift ;
	return $self->command
			|| NoSQL::PL2SQL::DBI::Schema->schema( $self ) ;
	}

sub CREATE {
	my $self = shift ;
	my $elements = {} ;

	my @terms = () ;
	push @terms, $self->getattributes->{command}, 'TABLE' ;
	push @terms, $self->getattributes->{table} ;
	push @terms, sprintf '( %s )', join ', ',
			NoSQL::PL2SQL::DBI::Schema->schema( $self ) ;

	return join ' ', @terms ;
	}

package NoSQL::PL2SQL::DBI::MySQL::Schema::table::column ;
use base qw( NoSQL::PL2SQL::DBI::Schema ) ;

sub schema {
	my $self = shift ;

	my @terms = () ;
	my $attribs = $self->getattributes ;

	push @terms, $attribs->{name} ;
	push @terms, $attribs->{type} if exists $attribs->{type} ;
	$terms[-1] .= sprintf '(%d)', $attribs->{length}
			if exists $attribs->{length} ;

	push @terms, $self->taglist ;
	return join ' ', @terms ;
	}

package NoSQL::PL2SQL::DBI::MySQL::Schema::index ;
use base qw( NoSQL::PL2SQL::DBI::Schema ) ;

sub schema {
	my $self = shift ;
	return $self->command
			|| NoSQL::PL2SQL::DBI::Schema->schema( $self ) ;
	}

sub CREATE {
	my $self = shift ;

	my @terms = () ;
	push @terms, $self->getattributes->{command}, 'INDEX' ;
	push @terms, $self->getattributes->{name} ;
	return () unless $self->getattributes->{table} ;
	push @terms, ( ON => $self->getattributes->{table} ) ;
	push @terms, sprintf '( %s )', join ', ',
			NoSQL::PL2SQL::DBI::Schema->schema( $self ) ;

	return join ' ', @terms ;
	}

package NoSQL::PL2SQL::DBI::MySQL::Schema::index::column ;
use base qw( NoSQL::PL2SQL::DBI::MySQL::Schema::table::column ) ;

1;
__END__