The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

<!--  Presentation generated by Internet Assistant for Microsoft PowerPoint 97 -->

<HTML>
<HEAD>

<meta name="GENERATOR" content="Microsoft Internet Assistant for Microsoft PowerPoint 97">
 <TITLE>Transactions - Example code</TITLE> 
</HEAD>

<BODY     >

<CENTER>
<TABLE WIDTH=100%> 
     <TR> <TD WIDTH=100% ALIGN=CENTER>
         <A HREF="sld001.htm">First</A>&nbsp;&nbsp;
         <A HREF="sld053.htm">Previous</A>&nbsp;&nbsp;
         <A HREF="sld055.htm">Next</A>&nbsp;&nbsp;
         <A HREF="sld102.htm">Last</A>&nbsp;&nbsp;
&nbsp;&nbsp;         <A HREF="index.htm">Index</A>&nbsp;&nbsp;
         <A HREF="dbi.perl.org">Home</A>&nbsp;&nbsp;
         <A HREF="tsld054.htm">Text</A>&nbsp;&nbsp;
     </TD> </TR>
     <TR> <TD WIDTH=100% ALIGN=CENTER>
         <IMG SRC="img054.gif" usemap="#Objmap" WIDTH=800 HEIGHT=600 BORDER=0>
     </TD> </TR>
</TABLE>
<P>Slide 54 of 102</P>
</CENTER>
<!-- <UL>
<H2>Transactions - Example code</H2>
</UL></P>
<P><UL>
$dbh-&#062{RaiseError} = 1;
<BR>$dbh-&#062begin_work;      # AutoCommit off till commit/rollback
<BR>eval {
<BR>    $dbh-&#062method(…);   # assorted DBI calls
<BR>    foo(...);          # application code
<BR>    $dbh-&#062commit;      # commit the changes
<BR>};
<BR>if ($@) {
<BR>    warn "Transaction aborted because $@";
<BR>    $dbh-&#062rollback;
<BR>    ...
<BR>}
</UL>
<BR>
<BR>.</P>
<P>  -->
</Body>
</HTML>