use strict;
use warnings;
use v5.10; # for say() function

use DBI;

say “Perl MySQL Transaction Demo”;

# MySQL database configurations
my $dsn = “DBI:mysql:perlmysqldb”;
my $username = “root”;
my $password = ”;

# connect to MySQL database
my %attr = (RaiseError=>1,  # error handling enabled
AutoCommit=>0); # transaction enabled

my $dbh = DBI->connect($dsn,$username,$password, \%attr);

eval{
# insert a new link
my $sql = “INSERT INTO links(title,url,target)
VALUES(?,?,?)”;
my $sth = $dbh->prepare($sql);
$sth->execute(“Comprehensive Perl Archive Network”,”http://www.cpan.org/”,”_blank”);
# get last insert id of the link
my $link_id = $dbh->{q{mysql_insertid}};

# insert a new tag
$sql = “INSERT INTO tags(tag) VALUES(?)”;
$sth = $dbh->prepare($sql);
$sth->execute(‘Perl’);

# get last insert id of the tag
my $tag_id = $dbh->{q{mysql_insertid}};

# insert a new link and tag relationship
$sql = “INSERT INTO link_tags(link_id,tag_id)
VALUES(?,?)”;
$sth = $dbh->prepare($sql);
$sth->execute($link_id,$tag_id);

# if everything is OK, commit to the database
$dbh->commit();
say “Link and tag has been inserted and associated successfully!”;
};

if($@){
say “Error inserting the link and tag: $@”;
$dbh->rollback();
}

# disconnect from the MySQL database
$dbh->disconnect();