summaryrefslogtreecommitdiffstats
path: root/static/talks/bread_board_yapc_na_2012/003.pl.html
diff options
context:
space:
mode:
Diffstat (limited to 'static/talks/bread_board_yapc_na_2012/003.pl.html')
-rw-r--r--static/talks/bread_board_yapc_na_2012/003.pl.html52
1 files changed, 52 insertions, 0 deletions
diff --git a/static/talks/bread_board_yapc_na_2012/003.pl.html b/static/talks/bread_board_yapc_na_2012/003.pl.html
new file mode 100644
index 0000000..d68c9c3
--- /dev/null
+++ b/static/talks/bread_board_yapc_na_2012/003.pl.html
@@ -0,0 +1,52 @@
+<html>
+<head>
+<title>003.pl</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<script>
+function navigate(e) {
+ var keynum = (window.event) // IE
+ ? e.keyCode
+ : e.which;
+ if (keynum == 8) {
+ window.location = "002" + ".html";
+ return false;
+ }
+ if (keynum == 13 || keynum == 32) {
+ window.location = "004.pl" + ".html";
+ return false;
+ }
+ if (keynum == 73 || keynum == 105) {
+ window.location = "index.html";
+ return false;
+ }
+ return true;
+}
+</script>
+</head>
+<body onkeypress="return navigate(event)">
+<pre>
+
+
+
+package MyApp;
+use MyFramework;
+
+sub call {
+ my $self = shift;
+
+ my $dbh = DBI-&gt;connect('dbi:mysql:myapp_db');
+ my $hello = $dbh-&gt;selectall_arrayref('SELECT * FROM my_table')-&gt;[0][0];
+
+ my $template = Template-&gt;new(INCLUDE_PATH =&gt; 'root/template');
+ $template-&gt;process('hello.tt', { hello =&gt; $hello }, \(my $output));
+
+ return $output;
+}
+
+
+
+
+
+
+</pre>
+</body>