slideshow.html

   1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   2         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
   3
   4 <html xmlns="http://www.w3.org/1999/xhtml">
   5
   6 <head>
   7 <title>DBIx::Class (aka DBIC)</title>
   8 <!-- metadata -->
   9 <meta name="contributor" content="youcan[64]netzgesta[46]de" />
  10 <meta name="publisher" content="s5.netzgesta.de" />
  11 <meta name="description" content="S5 1.3 is a very flexible and lightweight slide show system available for anyone to use (including transitions and scalable fonts and images)" />
  12 <meta name="keywords" content="S5, version 1.3, slide show, presentation-mode, projection-mode, powerpoint-like, scala-like, keynote-like, incremental display, scalable fonts, scalable images, transitions, notes, osf, xoxo, css, javascript, xhtml, public domain" />
  13
  14 <meta name="generator" content="S5" />
  15 <meta name="version" content="1" />
  16 <meta name="subject" content="DBIx::Class" />
  17 <meta name="author" content="See first slide" />
  18 <meta name="company" content="N/A" />
  19 <meta name="robots" content="index, follow" />
  20 <meta name="revisit-after" content="7 days" />
  21 <!-- meta additionally -->
  22 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  23 <meta http-equiv="Content-Script-Type" content="text/javascript" />
  24 <meta http-equiv="Content-Style-Type" content="text/css" /><!-- configuration parameters -->
  25 <meta name="defaultView" content="slideshow" />
  26 <meta name="controlVis" content="hidden" />
  27 <!-- configuration transition extension -->
  28 <meta name="tranSitions" content="true" />
  29 <meta name="fadeDuration" content="500" />
  30 <meta name="incrDuration" content="250" />
  31 <!-- configuration autoplay extension -->
  32 <meta name="autoMatic" content="false" />
  33 <meta name="playLoop" content="true" />
  34 <meta name="playDelay" content="10" />
  35 <!-- configuration audio extension -->
  36 <meta name="audioSupport" content="false" />
  37 <meta name="audioVolume" content="0" />
  38 <meta name="audioError" content="false" />
  39 <!-- configuration audio debug -->
  40 <meta name="audioDebug" content="false" />
  41 <!-- style sheet links -->
  42 <link rel="stylesheet" href="ui/scala_utf/slides.css" type="text/css" media="projection" id="slideProj" />
  43 <link rel="stylesheet" href="ui/scala_utf/outline.css" type="text/css" media="screen" id="outlineStyle" />
  44 <link rel="stylesheet" href="ui/scala_utf/print.css" type="text/css" media="print" id="slidePrint" />
  45 <link rel="stylesheet" href="ui/scala_utf/opera.css" type="text/css" media="projection" id="operaFix" />
  46 <!-- embedded styles -->
  47 <style type="text/css" media="all">
  48 .imgcon {width: 100%; margin: 0 auto; padding: 0; text-align: center;}
  49 #anim {width: 33%; height: 320px; position: relative;}
  50 #anim img {position: absolute; top: 0px; left: 0px;}
  51 .red {color: red;}
  52 .grey {color: gray;}
  53 </style>
  54 <!-- S5 JS -->
  55 <script src="ui/scala_utf/slides.js" type="text/javascript"></script>
  56 </head>
  57 <body>
  58
  59 <div class="layout">
  60    <div id="controls"><!-- DO NOT EDIT --></div>
  61    <div id="currentSlide"><!-- DO NOT EDIT --></div>
  62    <div id="header"></div>
  63    <div id="footer">
  64       <h1>DBIx::Class Introduction</h1>
  65       <h2>YAPC::NA 2010</h2>
  66    </div>
  67 </div>
  68
  69 <div class="presentation">
  70
  71    <div class="slide">
  72       <h1>DBIX::Class (aka DBIC)</h1>
  73       <h3>for (advanced) beginners</h3>
  74    </div>
  75
  76    <div class="slide">
  77       <h1>Authors</h1>
  78       <h4>Originally Leo Lapworth @ LPW 2009</h4>
  79       <h4>Amiri Barksdale</h4>
  80       <h4>Justin D. Hunter</h4>
  81       <h4>Arthur Axel "fREW" Schmidt</h4>
  82    </div>
  83
  84    <div class="slide">
  85       <h1>What's up guys?</h1>
  86       <div class="notes">
  87          <ul>
  88             <li>How many people have used any ORM?<ul>
  89                <li>In Perl?<ul>
  90                   <li>DBIC?</li>
  91                   <li>Class::DBI?</li>
  92                   <li>Rose::DB?</li>
  93                   <li>Fey?</li>
  94                   <li>Others?</li>
  95                </ul></li>
  96                <li>AR?</li>
  97                <li>DataMapper?</li>
  98                <li>(N)Hibernate?</li>
  99             </ul></li>
 100          </ul>
 101       </div>
 102    </div>
 103
 104    <div class="slide">
 105       <h1>Purpose</h1>
 106       <p>The purpose of this talk is to show you as many features of
 107       DBIx::Class in 40 minutes so that when you need to do something with
 108       it later you will know what's possible</p>
 109    </div>
 110
 111    <div class="slide">
 112       <h1>DBIx::Class?</h1>
 113       <ul>
 114          <li>ORM (object relational mapper)</li>
 115          <li>SQL &lt;-&gt; OO (using objects instead of SQL)</li>
 116          <li>There are many ORMs, DBIx::Class just happens to be the best in Perl (personal opinion)</li>
 117       </ul>
 118    </div>
 119
 120    <div class="slide">
 121       <h1>Meta</h1>
 122       <p>These are reasons that are not technical or inherent to
 123       the code of DBIC, but are totally awesome things about it.</p>
 124    </div>
 125
 126    <div class="slide">
 127       <h1>Large Community</h1>
 128       <p>Currently there are 88 people listed as contributors to DBIC.  That
 129       ranges from documentation help, to test help, to added features,
 130       to entire database support.</p>
 131    </div>
 132
 133    <div class="slide">
 134       <h1>Active Community</h1>
 135       <p>Currently (June 9, 2010) 6 active branches (commited to in the last two weeks) in git.  Last release (0.08122) had 14 new features, and 16 bug fixes.  Of course that <a href="http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git;a=blob;f=Changes">ebbs and flows</a>.</p>
 136    </div>
 137
 138    <div class="slide">
 139       <h1>Responsive Community</h1>
 140       <ul class="incremental">
 141          <li>needed MSSQL Order by support, they helped me add support</li>
 142          <li>generally very welcoming of people willing to help</li>
 143       </ul>
 144    </div>
 145
 146    <div class="slide">
 147       <h1>General ORM</h1>
 148       <p>These are things that are in most other ORMs, but are still reasons
 149       to use DBIC over raw SQL.</p>
 150    </div>
 151
 152    <div class="slide">
 153       <h1>Cross DB</h1>
 154       <p>The vast majority of code should run on all databases without needing tweaking</p>
 155    </div>
 156
 157    <div class="slide">
 158       <h1>Basic CRUD</h1>
 159       <ul class="incremental">
 160          <li><strong>C</strong> - Create</li>
 161          <li><strong>R</strong> - Read</li>
 162          <li><strong>U</strong> - Update</li>
 163          <li><strong>D</strong> - Delete</li>
 164       </ul>
 165    </div>
 166
 167    <div class="slide">
 168       <h1>SQL: Create</h1>
 169 <pre>my $sth = $dbh-&gt;prepare('
 170    INSERT INTO books
 171    (title, author_id)
 172    values (?,?)
 173 ');
 174
 175 $sth-&gt;execute(
 176   'A book title', $author_id
 177 );</pre>
 178    </div>
 179
 180    <div class="slide">
 181       <h1>DBIC: Create</h1>
 182 <pre>my $book = $book_rs-&gt;create({
 183    title     =&gt; 'A book title',
 184    author_id =&gt; $author_id,
 185 });</pre>
 186       <ul class="incremental">
 187          <li>No need to pair placeholders and values</li>
 188          <li>Automatically gets autoincremented id for you</li>
 189          <li>Transparrently uses INSERT ... RETURNING for databases that support it</li>
 190       </ul>
 191    </div>
 192
 193    <div class="slide">
 194       <h1>SQL: Read</h1>
 195 <pre>my $sth = $dbh-&gt;prepare('
 196    SELECT title,
 197    authors.name as author_name
 198    FROM books, authors
 199    WHERE books.author = authors.id
 200 ');</pre>
 201    </div>
 202
 203    <div class="slide">
 204       <h1>SQL: Read</h1>
 205 <pre>while( my $book = $sth-&gt;fetchrow_hashref() ) {
 206   print 'Author of '
 207      . $book-&gt;{title}
 208      . ' is '
 209      . $book-&gt;{author_name}
 210      . "\n";
 211 }</pre>
 212    </div>
 213
 214    <div class="slide">
 215       <h1>DBIC: Read</h1>
 216 <pre>my $book = $book_rs-&gt;find($book_id);
 217
 218 my $book = $book_rs-&gt;search({
 219    title =&gt; 'A book title',
 220 }, { rows =&gt; 1 })-&gt;next;
 221
 222 my @books = $book_rs-&gt;search({
 223    author =&gt; $author_id,
 224 })-&gt;all;</pre>
 225       <ul class="incremental">
 226          <li>TMTOWTDI</li>
 227       </ul>
 228    </div>
 229
 230    <div class="slide">
 231       <h1>DBIC: Read</h1>
 232 <pre>while( my $book = $books_rs-&gt;next ) {
 233  print 'Author of '
 234     . $book-&gt;title
 235     . ' is '
 236     . $book-&gt;author-&gt;name
 237     . "\n";
 238 }</pre>
 239    </div>
 240
 241    <div class="slide">
 242       <h1>SQL: Update</h1>
 243 <pre>my $update = $dbh-&gt;prepare('
 244    UPDATE books
 245    SET title = ?
 246    WHERE id = ?
 247 ');
 248
 249 $update-&gt;execute(
 250   'New title',<strong>$book_id</strong>
 251 );</pre>
 252    </div>
 253
 254    <div class="slide">
 255       <h1>DBIC: Update</h1>
 256 <pre>$book-&gt;update({
 257   title =&gt; 'New title',
 258 });</pre>
 259       <ul class="incremental">
 260          <li>Lazy Update</li>
 261       </ul>
 262    </div>
 263
 264    <div class="slide">
 265       <h1>SQL: Delete</h1>
 266 <pre>my $delete = $dbh-&gt;prepare('
 267    DELETE FROM books
 268    WHERE id = ?
 269 ');
 270
 271 $delete-&gt;execute(<strong>$book_id</strong>);</pre>
 272    </div>
 273
 274    <div class="slide">
 275       <h1>DBIC: Delete</h1>
 276 <pre>$book-&gt;delete;</pre>
 277    </div>
 278
 279    <div class="slide">
 280       <h1>OO Overidability</h1>
 281       <ul class="incremental">
 282          <li>Override new if you want to do validation</li>
 283          <li>Override delete if you want to disable deletion</li>
 284          <li>and on and on</li>
 285       </ul>
 286       <div class="notes">
 287          <p>I got yelled at about this before by people, so
 288          we don't get EVERYTHING from OO, but we do get a lot
 289          so :-P</p>
 290       </div>
 291    </div>
 292
 293    <div class="slide">
 294       <h1>Convenience Methods</h1>
 295       <ul class="incremental">
 296          <li>find_or_create</li>
 297          <li>create_or_update</li>
 298       </ul>
 299    </div>
 300
 301    <div class="slide">
 302       <h1>Non-column methods</h1>
 303       <p>Need a method to get a user's gravatar URL?  Add a
 304       gravatar_url method to their Result class</p>
 305    </div>
 306
 307    <div class="slide">
 308       <h1>RELATIONSHIPS</h1>
 309       <ul class="incremental">
 310          <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#belongs_to">belongs_to</a></li>
 311          <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_many">has_many</a></li>
 312          <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#might_have">might_have</a></li>
 313          <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_one">has_one</a></li>
 314          <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#many_to_many">many_to_many</a> (technically not a relationship)</li>
 315          <li>SET AND FORGET</li>
 316       </ul>
 317    </div>
 318
 319    <div class="slide">
 320       <h1>DBIx::Class Specific Features</h1>
 321       <p>These things may be in other ORM's, but they are very specific, so doubtful</p>
 322    </div>
 323
 324    <div class="slide">
 325       <h1>-&gt;deploy</h1>
 326       <p>Perl -&gt; DB</p>
 327 <pre>my $schema = Foo::Schema-&gt;connect(
 328    $dsn, $user, $pass
 329 );
 330 $schema-&gt;deploy
 331 </pre>
 332 <p>See also: <a href="http://search.cpan.org/perldoc?DBIx::Class::DeploymentHandler">DBIx::Class::DeploymentHandler</a></p>
 333    </div>
 334
 335    <div class="slide">
 336       <h1>Schema::Loader</h1>
 337       <p>DB -&gt; Perl</p>
 338 <pre>package Foo::Schema;
 339 use strict; use warnings;
 340 use base 'DBIx::Class::Schema::Loader';
 341 __PACKAGE__-&gt;loader_options({
 342    naming =&gt; 'v7',
 343    debug  =&gt; $ENV{DBIC_TRACE},
 344 });
 345 1;
 346
 347 # elsewhere...
 348
 349 my $schema = Foo::Schema-&gt;connect(
 350    $dsn, $user, $pass
 351 );
 352 </pre>
 353    </div>
 354
 355    <div class="slide">
 356       <h1>Populate</h1>
 357       <p>Made for inserting lots of rows very quicky into database</p>
 358 <pre>$schema-&gt;populate([ Users =&gt;
 359    [qw( username password )],
 360    [qw( frew     &gt;=4char$ )],
 361    [qw(      ...          )],
 362    [qw(      ...          )],
 363 );
 364 </pre>
 365       <ul class="incremental">
 366          <li>I use this to <a href="http://blog.afoolishmanifesto.com/archives/1255">export our whole (200M~) db to SQLite</a></li>
 367       </ul>
 368    </div>
 369
 370    <div class="slide">
 371       <h1>Multicreate</h1>
 372       <p>Create an object and all of it's related objects all at once</p>
 373 <pre>$schema-&gt;resultset('Author')-&gt;create({
 374    name =&gt; 'Stephen King',
 375    books =&gt; [{ title =&gt; 'The Dark Tower' }],
 376    address =&gt; {
 377       street =&gt; '123 Turtle Back Lane',
 378       state  =&gt; { abbreviation =&gt; 'ME' },
 379       city   =&gt; { name =&gt; 'Lowell'     },
 380    },
 381 });
 382 </pre>
 383       <div class="notes">
 384          <ul>
 385             <li>books is a has_many</li>
 386             <li>address is a belongs_to which in turn belongs to state and city each</li>
 387             <li>for this to work right state and city must mark abbreviation and name as unique</li>
 388          </ul>
 389       </div>
 390    </div>
 391
 392    <div class="slide">
 393       <h1>Extensible</h1>
 394       <p>DBIx::Class helped pioneer fast MI in Perl 5 with Class::C3, so it is made
 395       to allow extensions to nearly every part of it.</p>
 396    </div>
 397
 398    <div class="slide">
 399       <h1>Extensible: DBIC::Helpers</h1>
 400       <ul class="incremental">
 401          <li>DBIC::Helper::ResultSet::IgnoreWantarray</li>
 402          <li>DBIC::Helper::ResultSet::Random</li>
 403          <li>DBIC::Helper::ResultSet::SetOperations</li>
 404          <li>DBIC::Helper::Row::JoinTable</li>
 405          <li>DBIC::Helper::Row::NumifyGet</li>
 406          <li>DBIC::Helper::Row::SubClass</li>
 407          <li>DBIC::Helper::Row::ToJSON</li>
 408       </ul>
 409    </div>
 410
 411    <div class="slide">
 412       <h1>Extensible: DBIC::TimeStamp</h1>
 413       <ul class="incremental">
 414          <li>Cross DB</li>
 415          <li>set_on_create</li>
 416          <li>set_on_update</li>
 417       </ul>
 418    </div>
 419
 420    <div class="slide">
 421       <h1>Extensible: Kioku</h1>
 422       <ul class="incremental">
 423          <li>DBIx::Class::Schema::KiokuDB</li>
 424          <li>Kioku is the new hotness</li>
 425          <li>Mix RDBMS with Object DB</li>
 426          <li>beta ( == sexy )</li>
 427       </ul>
 428    </div>
 429
 430    <div class="slide">
 431       <h1>SQL::Abstract</h1>
 432 <pre>my $resultset = $book_rs-&gt;search({
 433    name =&gt; { -like =&gt; "%$nick%" },
 434 });</pre>
 435       <ul class="incremental">
 436          <li>(kinda) introspectible</li>
 437          <li>Prettier than SQL</li>
 438       </ul>
 439    </div>
 440
 441    <div class="slide">
 442       <h1>Result vs ResultSet</h1>
 443          <ul class="incremental">
 444             <li>Result == Row</li>
 445             <li>ResultSet == Query Plan<ul class="incremental">
 446                <li>Internal Join Optimizer for all DB's (!!!)</li>
 447             </ul></li>
 448             <li>(less important but...)</li>
 449             <li>ResultSource == Table</li>
 450             <li>Storage == Database</li>
 451          </ul>
 452    </div>
 453
 454    <div class="slide">
 455       <h1>ResultSet methods</h1>
 456 <pre>package MyApp::Schema::ResultSet::Book;
 457 use base 'DBIx::Class::ResultSet';
 458 sub good {
 459    my $self = shift;
 460    $self-&gt;search({
 461       $self-&gt;current_source_alias .
 462          '.rating' =&gt; { '&gt;=' =&gt; 4 },
 463    })
 464 };
 465 sub cheap {
 466    my $self = shift;
 467    $self-&gt;search({
 468       $self-&gt;current_source_alias .
 469          '.price' =&gt; { '&lt;=' =&gt; 5}
 470    })
 471 };
 472 # ...
 473 1;
 474       </pre>
 475    </div>
 476
 477    <div class="slide">
 478       <h1>ResultSet method notes</h1>
 479       <ul class="incremental">
 480          <li>All searches should be ResultSet methods</li>
 481          <li>Name has obvious meaning</li>
 482          <li>current_source_alias helps things to work no matter what</li>
 483       </ul>
 484    </div>
 485
 486    <div class="slide">
 487       <h1>ResultSet method in Action</h1>
 488       <pre>$schema-&gt;resultset('Book')-&gt;good</pre>
 489    </div>
 490
 491    <div class="slide">
 492       <h1>ResultSet Chaining</h1>
 493 <pre>$schema-&gt;resultset('Book')
 494    -&gt;good
 495    -&gt;cheap
 496    -&gt;recent
 497 </pre>
 498    </div>
 499
 500    <div class="slide">
 501       <h1>search_related</h1>
 502 <pre>my $score = $schema-&gt;resultset('User')
 503    -&gt;search({'me.userid' =&gt; 'frew'})
 504    -&gt;related_resultset('access')
 505    -&gt;related_resultset('mgmt')
 506    -&gt;related_resultset('orders')
 507    -&gt;telephone
 508    -&gt;search_related( shops =&gt; {
 509       'shops.datecompleted' =&gt; {
 510          -between =&gt; ['2009-10-01','2009-10-08']
 511       }
 512    })-&gt;completed
 513    -&gt;related_resultset('rpt_score')
 514    -&gt;get_column('raw_scores')
 515    -&gt;first;
 516 </pre>
 517    </div>
 518
 519    <div class="slide">
 520       <h1>bonus rel methods</h1>
 521 <pre>my $book = $author-&gt;create_related(
 522    <strong>books</strong> =&gt; {
 523       title =&gt; 'Another Discworld book',
 524    }
 525 );
 526
 527 my $book2 = $pratchett-&gt;add_to_<strong>books</strong>({
 528    title =&gt; 'MOAR Discworld book',
 529 });</pre>
 530       <ul class="incremental">
 531          <li>Automaticaly fills in foreign key for you</li>
 532       </ul>
 533    </div>
 534
 535    <div class="slide">
 536       <h1>Excellent Transaction Support</h1>
 537 <pre>$schema-&gt;txn_do(sub {
 538    ...
 539 });
 540
 541 my $guard = $schema-&gt;txn_scope_guard;
 542 # ...
 543 $guard-&gt;commit;
 544
 545 $schema-&gt;txn_begin; # &lt;-- low level
 546 # ...
 547 $schema-&gt;txn_commit;
 548 </pre>
 549    </div>
 550
 551    <div class="slide">
 552       <h1>InflateColumn</h1>
 553 <pre>package Foo::Schema::Result::Book;
 554 use base 'DBIx::Class::Core';
 555 use DateTime::Format::MySQL;
 556 # Result code here
 557 __PACKAGE__-&gt;load_components('InflateColumn');
 558 __PACKAGE__-&gt;<strong>inflate_column</strong>(
 559    <strong>date_published</strong> =&gt; {
 560       inflate =&gt; sub {
 561          DateTime::Format::MySQL-&gt;parse_date(
 562             shift
 563          )
 564       },
 565       deflate =&gt; sub { shift-&gt;ymd },
 566    },
 567 );
 568 # Automatic see: DBIC::InflateColumn::DateTime</pre>
 569    </div>
 570
 571    <div class="slide">
 572       <h1>InflateColumn: deflation</h1>
 573 <pre>$book-&gt;date_published(DateTime-&gt;now);
 574 $book-&gt;update;</pre>
 575    </div>
 576
 577    <div class="slide">
 578       <h1>InflateColumn: inflation</h1>
 579 <pre>say $book-&gt;date_published-&gt;month_abbr;</pre>
 580
 581 <strong><em>Nov</em></strong>
 582    </div>
 583
 584    <div class="slide">
 585       <h1>FilterColumn</h1>
 586 <pre>package Foo::Schema::Result::Book;
 587 use base 'DBIx::Class::Core';
 588 # Result code here
 589 __PACKAGE__-&gt;load_components('FilterColumn');
 590
 591 __PACKAGE__-&gt;<strong>filter_column</strong>(
 592    <strong>length</strong> =&gt; {
 593       to_storage   =&gt; 'to_metric',
 594       from_storage =&gt; 'to_imperial',
 595    },
 596 );
 597
 598 sub to_metric   { $_[1] * .305 }
 599 sub to_imperial { $_[1] * 3.28 }
 600    </div>
 601
 602    <div class="slide">
 603       <h1>ResultSetColumn</h1>
 604 <pre>my $rsc = $schema-&gt;resultset('Book')
 605    -&gt;get_column('price');
 606 $rsc-&gt;min;
 607 $rsc-&gt;max;
 608 $rsc-&gt;sum;
 609 </pre>
 610    </div>
 611
 612    <div class="slide">
 613       <h1>Aggregates</h1>
 614 <pre>my @res = $rs-&gt;search({}, {
 615    select   =&gt; [
 616       'price',
 617       'genre',
 618       { max =&gt; price },
 619       { avg =&gt; price },
 620    ],
 621    as       =&gt; [
 622       qw(price genre max_price avg_price)
 623    ],
 624    group_by =&gt; [qw(price genre)],
 625 });
 626 for (@res) {
 627    say $_-&gt;price . ' ' . $_-&gt;genre;
 628    say $_-&gt;get_column('max_price');
 629    say $_-&gt;get_column('min_price');
 630 }</pre>
 631    </div>
 632
 633    <div class="slide">
 634       <h1>Aggregates Notes</h1>
 635       <ul class="incremental">
 636          <li>Careful, get_column can basicaly mean THREE things</li>
 637          <li>private for get what you should use an accessor for</li>
 638          <li>public for what there is no accessor for</li>
 639          <li>public for get resultset column (prev slide)</li>
 640       </ul>
 641    </div>
 642
 643    <div class="slide">
 644       <h1>HRI</h1>
 645 <pre>$rs-&gt;search({}, {
 646   result_class =&gt;
 647     'DBIx::Class::ResultClass::HashRefInflator',
 648 });</pre>
 649       <ul class="incremental">
 650          <li>Easy on memory</li>
 651          <li>Mega fast</li>
 652          <li>Great for quick debugging</li>
 653          <li>Great for performance tuning (we went from 2m to &lt; 3s)</li>
 654       </ul>
 655    </div>
 656
 657    <div class="slide">
 658       <h1>Subquery Support</h1>
 659 <pre>my $inside_query = $schema-&gt;resultset('Artist')
 660    -&gt;search({
 661     name =&gt; [ 'Billy Joel', 'Brittany Spears' ],
 662 })-&gt;get_column('id')-&gt;as_query;
 663
 664 my $rs = $schema-&gt;resultset('CD')-&gt;search({
 665     artist_id =&gt; { -in =&gt; $inside_query },
 666 });</pre>
 667    </div>
 668
 669    <div class="slide">
 670       <h1>Bare SQL w/ Placeholders</h1>
 671 <pre>$rs-&gt;update({
 672    # !!! SQL INJECTION VECTOR
 673    price =&gt; \"price + $inc",
 674 });
 675
 676 $rs-&gt;update({
 677    price =&gt; \['price + ?', [inc =&gt; $inc]],
 678 });
 679 </pre>
 680    </div>
 681
 682    <div class="slide">
 683       <h1>Questions?</h1>
 684    </div>
 685
 686    <div class="slide">
 687       <h1>END</h1>
 688    </div>
 689 </div>
 690 </body>
 691 </html>