package DBIx::Custom::MySQL; use warnings; use strict; use base 'DBIx::Custom'; use Carp 'croak'; __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 - a MySQL implementation of DBIx::Custom =head1 SYNOPSYS # Connect my $dbi = DBIx::Custom::MySQL->connect(user => 'taro', password => 'kliej&@K', database => 'your_database'); # Last insert id my $id = $dbi->last_insert_id; =head1 ATTRIBUTES This class is L subclass. You can use all attributes of L =head2 database Database name $dbi = $dbi->database('your_database'); $database = $dbi->database; =head2 host Database host name. $dbi = $dbi->host('somehost.com'); $host = $dbi->host; IP address can be set to host attribute. $dbi->host('127.03.45.12'); =head2 port Database port. $dbi = $dbi->port(1198); $port = $dbi->port; =head1 METHODS This class is L subclass. You can use all methods of L. =head2 connect - overridden Connect to database. # Connect my $dbi = DBIx::Custom::MySQL->connect(user => 'taro', password => 'kliej&@K', database => 'your_database'); =head2 last_insert_id Last insert ID. $last_insert_id = $dbi->last_insert_id; This is equal to MySQL last_insert_id() function. =cut