\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("22\n");
document.write("23\n");
document.write("24\n");
document.write("<\/pre>\n");
document.write("			<\/td>\n");
document.write("

\n"); document.write("

#!/usr/bin/env perl<\/span>\n");
document.write("\n");
document.write("use Data<\/span>::Model<\/span><\/span>;\n");
document.write("use Data<\/span>::Model<\/span><\/span>::Driver<\/span><\/span>::DBI<\/span><\/span>;\n");
document.write("\n");
document.write("use MyApp<\/span>::DB<\/span><\/span>;\n");
document.write("use Users<\/span>;\n");
document.write("use Posts<\/span>;\n");
document.write("\n");
document.write("MyApp<\/span>::DB<\/span><\/span>-<\/span>><\/span>make_schema<\/span><\/span>();\n");
document.write("\n");
document.write("$user_model<\/span> =<\/span> Users<\/span>-<\/span>><\/span>new<\/span>;\n");
document.write("my $row<\/span> =<\/span> $user_model<\/span>-<\/span>><\/span>set<\/span><\/span>(\n");
document.write("    users => {<\/span>\n");
document.write("        name => \'shelling\'<\/span>,\n");
document.write("        email => \'shelling@cpan.org\'<\/span>,\n");
document.write("    }\n");
document.write(");\n");
document.write("\n");
document.write("use Data<\/span>::Dumper<\/span><\/span>;\n");
document.write("print Dumper<\/span>($row<\/span>);\n");
document.write("\n");
document.write("$users<\/span> =<\/span> $user_model<\/span>-<\/span>><\/span>lookup<\/span><\/span>( users => 1<\/span> );\n");
document.write("print Dumper<\/span>($users<\/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 #535718<\/a> linked directly from Pastie<\/a>.\n");
document.write("  <\/div><\/div>");