document.write("
\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write("
\n"); document.write(" \n"); document.write(" \n"); document.write("
\n"); document.write(" \n"); document.write(" 
1\n");
document.write("2\n");
document.write("3\n");
document.write("4\n");
document.write("5\n");
document.write("6\n");
document.write("7\n");
document.write("8\n");
document.write("9\n");
document.write("10\n");
document.write("11\n");
document.write("12\n");
document.write("13\n");
document.write("14\n");
document.write("15\n");
document.write("16\n");
document.write("17\n");
document.write("18\n");
document.write("19\n");
document.write("20\n");
document.write("21\n");
document.write("<\/pre>\n");
document.write("			<\/td>\n");
document.write("
\n"); document.write(" 
package MyApp<\/span>::DB<\/span><\/span>;\n");
document.write("\n");
document.write("my $dsn<\/span> =<\/span> "dbi:SQLite:dbname=test.sqlite3"<\/span>;\n");
document.write("\n");
document.write("sub driver {<\/span>\n");
document.write("    my $class<\/span> =<\/span> shift;\n");
document.write("    my $mode<\/span> =<\/span> shift;\n");
document.write("    if<\/span> ($mode<\/span> ==<\/span> "default"<\/span>) {<\/span>\n");
document.write("        Data<\/span>::Model<\/span><\/span>::Driver<\/span><\/span>::DBI<\/span><\/span>-<\/span>><\/span>new<\/span>( dsn => $dsn<\/span> );\n");
document.write("    }\n");
document.write("}\n");
document.write("\n");
document.write("sub make_schema {<\/span>\n");
document.write("    my $dbh<\/span> =<\/span> DBI<\/span>-<\/span>><\/span>connect<\/span><\/span>($dsn<\/span>);\n");
document.write("    for<\/span> (qw<\/span><\/span>(Users<\/span> Posts<\/span>)) {<\/span>\n");
document.write("        $dbh<\/span>-<\/span>><\/span>do<\/span>($_<\/span>-<\/span>><\/span>as_sqls);\n");
document.write("    }\n");
document.write("    $dbh<\/span>-<\/span>><\/span>disconnect<\/span><\/span>();\n");
document.write("}\n");
document.write("\n");
document.write("1<\/span>;\n");
document.write("<\/pre><\/pre>\n");
document.write("		<\/td>\n");
document.write("		<\/tr>\n");
document.write("		<\/table>\n");
document.write("	\n");
document.write("	<\/div>\n");
document.write("\n");
document.write("\n");
document.write("  \n");
document.write("  \n");
document.write("  
\n");
document.write("    
\n");
document.write("      \n");
document.write("      <\/a>\n");
document.write("    <\/div>\n");
document.write("  \n");
document.write("    Pastie #535705<\/a> linked directly from Pastie<\/a>.\n");
document.write("  <\/div><\/div>");