package DBIx::Custom::MySQL; use strict; use warnings; use base 'DBIx::Custom'; __PACKAGE__->attr([qw/database host port/]); sub connect { my $proto = shift; # Create my $self = ref $proto ? $proto : $proto->new(@_); # Create 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; } sub last_insert_id { shift->dbh->{mysql_insertid} } 1; =head1 NAME DBIx::Custom::MySQL - MySQL implementation =head1 SYNOPSYS # Connect to database my $dbi = DBIx::Custom::MySQL->connect(user => 'taro', password => 'kliej&@K', database => 'your_database'); # Get last insert id my $id = $dbi->last_insert_id; =head1 ATTRIBUTES This class is L subclass. You can use all attributes of L =head2 C my $database = $dbi->database; $dbi = $dbi->database('your_database'); Database name. This is used for connect(). =head2 C my $host = $dbi->host; $dbi = $dbi->host('somehost.com'); Database host name. You can also set IP address, instead of host name. This is used for connect(). $dbi->host('127.03.45.12'); =head2 C my $port = $dbi->port; $dbi = $dbi->port(1198); Database port. This is used for connect(). =head1 METHODS This class is L subclass. You can use all methods of L. =head2 C $dbi = DBIx::Custom::MySQL->connect( data_source => "dbi:mysql:database=books;host=somehost;port=2000" ); $dbi = DBIx::Custom::MySQL->connect(user => 'taro', password => 'kliej&@K', database => 'your_database', host => 'somehost', port => 2000); Connect to database. You can also specify database, host, and port (instead of data soruce). =head2 C $last_insert_id = $dbi->last_insert_id; Get last insert id. This is equal to MySQL last_insert_id() function. =cut