package DBIx::Custom::MySQL;

use strict;
use warnings;

use base 'DBIx::Custom';

__PACKAGE__->attr([qw/database host port/]);

sub connect {
    my $proto = shift;
    
    # Create a new object
    my $self = ref $proto ? $proto : $proto->new(@_);
    
    # Data source
    if (!$self->data_source) {
        my $database = $self->database;
        my $host     = $self->host;
        my $port     = $self->port;
        my $data_source = "dbi:mysql:";
        $data_source .= "database=$database;" if $database;
        $data_source .= "host=$host;"         if $host;
        $data_source .= "port=$port;"         if $port;
        $self->data_source($data_source);
    }
    
    return $self->SUPER::connect;
}

1;

=head1 NAME

DBIx::Custom::MySQL - MySQL implementation

=head1 CAUTION

B<This module is deprecated now> because This module is not very useful
I expected. Please use DBIx::Custom instead.>

=head1 SYNOPSYS

    # Connect to the database
    my $dbi = DBIx::Custom::MySQL->connect(
        user     => 'taro', 
        password => 'kliej&@K',
        database => 'dbname'
    );
    
    # Get last insert id
    my $last_insert_id = $dbi->last_insert_id;

=head1 ATTRIBUTES

L<DBIx::Custom::MySQL> inherits all attributes from L<DBIx::Custom>
and implements the following new ones.

=head2 C<database>

    my $database = $dbi->database;
    $dbi         = $dbi->database('dbname');

Database name.
C<connect()> method use this value to connect the database
if C<data_source> is not specified.

=head2 C<host>

    my $host = $dbi->host;
    $dbi     = $dbi->host('somehost');

Host name or IP address.
C<connect()> method use this value to connect the database
if C<data_source> is not specified.

=head2 C<port>

    my $port = $dbi->port;
    $dbi     = $dbi->port(1198);

Port number.
C<connect()> method use this value to connect the database
if C<data_source> is not specified.

=head1 METHODS

L<DBIx::Custom::MySQL> inherits all methods from L<DBIx::Custom>
and implements the following new ones.

=head2 C<connect>

    my $dbi = DBIx::Custom::MySQL->connect(
         user     => 'taro', 
         password => 'kliej&@K',
         database => 'dbname',
         host     => 'somehost',
         port     => 2000
    );

Create a new L<DBIx::Custom::MySQL> object and connect to the database.
This method overrides C<DBIx::Custom::connect()> method.
You can specify all attributes of L<DBIx::Custom>
and L<DBIx::Custom::MySQL>, such as C<database>, C<host>, C<port>.

=cut