[dbsrgits/dbix-class-introduction-presentation.git] / slideshow.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<title>DBIx::Class (aka DBIC)</title>
<!-- metadata -->
<meta name="contributor" content="youcan[64]netzgesta[46]de" />
<meta name="publisher" content="s5.netzgesta.de" />
<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)" />
<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" />

<meta name="generator" content="S5" />
<meta name="version" content="1" />
<meta name="subject" content="DBIx::Class" />
<meta name="author" content="See first slide" />
<meta name="company" content="N/A" />
<meta name="robots" content="index, follow" />
<meta name="revisit-after" content="7 days" />
<!-- meta additionally -->
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
<meta http-equiv="Content-Style-Type" content="text/css" /><!-- configuration parameters -->
<meta name="defaultView" content="slideshow" />
<meta name="controlVis" content="hidden" />
<!-- configuration transition extension -->
<meta name="tranSitions" content="true" />
<meta name="fadeDuration" content="500" />
<meta name="incrDuration" content="250" />
<!-- configuration autoplay extension -->
<meta name="autoMatic" content="false" />
<meta name="playLoop" content="true" />
<meta name="playDelay" content="10" />
<!-- configuration audio extension -->
<meta name="audioSupport" content="false" />
<meta name="audioVolume" content="0" />
<meta name="audioError" content="false" />
<!-- configuration audio debug -->
<meta name="audioDebug" content="false" />
<!-- style sheet links -->
<link rel="stylesheet" href="ui/scala_utf/slides.css" type="text/css" media="projection" id="slideProj" />
<link rel="stylesheet" href="ui/scala_utf/outline.css" type="text/css" media="screen" id="outlineStyle" />
<link rel="stylesheet" href="ui/scala_utf/print.css" type="text/css" media="print" id="slidePrint" />
<link rel="stylesheet" href="ui/scala_utf/opera.css" type="text/css" media="projection" id="operaFix" />
<!-- embedded styles -->
<style type="text/css" media="all">
.imgcon {width: 100%; margin: 0 auto; padding: 0; text-align: center;}
#anim {width: 33%; height: 320px; position: relative;}
#anim img {position: absolute; top: 0px; left: 0px;}
.red {color: red;}
.grey {color: gray;}
</style>
<!-- S5 JS -->
<script src="ui/scala_utf/slides.js" type="text/javascript"></script>
</head>
<body>

<div class="layout">
   <div id="controls"><!-- DO NOT EDIT --></div>
   <div id="currentSlide"><!-- DO NOT EDIT --></div>
   <div id="header"></div>
   <div id="footer">
      <h1>DBIx::Class Introduction</h1>
      <h2>YAPC::NA 2010</h2>
   </div>
</div>

<div class="presentation">

   <div class="slide">
      <h1>DBIX::Class (aka DBIC)</h1>
      <h3>for (advanced) beginners</h3>
   </div>

   <div class="slide">
      <h1>Authors</h1>
      <h4>Originally Leo Lapworth @ LPW 2009</h4>
      <h4>Amiri Barksdale</h4>
      <h4>Justin D. Hunter</h4>
      <h4>Arthur Axel "fREW" Schmidt</h4>
   </div>

   <div class="slide">
      <h1>What's up guys?</h1>
      <div class="notes">
         <ul>
            <li>How many people have used any ORM?<ul>
               <li>In Perl?<ul>
                  <li>DBIC?</li>
                  <li>Class::DBI?</li>
                  <li>Rose::DB?</li>
                  <li>Fey?</li>
                  <li>Others?</li>
               </ul></li>
               <li>AR?</li>
               <li>DataMapper?</li>
               <li>(N)Hibernate?</li>
            </ul></li>
         </ul>
      </div>
   </div>

   <div class="slide">
      <h1>Purpose</h1>
      <p>The purpose of this talk is to show you as many features of
      DBIx::Class in 40 minutes so that when you need to do something with
      it later you will know what's possible</p>
   </div>

   <div class="slide">
      <h1>DBIx::Class?</h1>
      <ul>
         <li>ORM (object relational mapper)</li>
         <li>SQL &lt;-&gt; OO (using objects instead of SQL)</li>
         <li>There are many ORMs, DBIx::Class just happens to be the best in Perl (personal opinion)</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Meta</h1>
      <p>These are reasons that are not technical or inherent to
      the code of DBIC, but are totally awesome things about it.</p>
   </div>

   <div class="slide">
      <h1>Large Community</h1>
      <p>Currently there are 88 people listed as contributors to DBIC.  That
      ranges from documentation help, to test help, to added features,
      to entire database support.</p>
   </div>

   <div class="slide">
      <h1>Active Community</h1>
      <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>
   </div>

   <div class="slide">
      <h1>Responsive Community</h1>
      <ul class="incremental">
         <li>needed MSSQL Order by support, they helped me add support</li>
         <li>generally very welcoming of people willing to help</li>
      </ul>
   </div>

   <div class="slide">
      <h1>General ORM</h1>
      <p>These are things that are in most other ORMs, but are still reasons
      to use DBIC over raw SQL.</p>
   </div>

   <div class="slide">
      <h1>Cross DB</h1>
      <p>The vast majority of code should run on all databases without needing tweaking</p>
   </div>

   <div class="slide">
      <h1>Basic CRUD</h1>
      <ul class="incremental">
         <li><strong>C</strong> - Create</li>
         <li><strong>R</strong> - Read</li>
         <li><strong>U</strong> - Update</li>
         <li><strong>D</strong> - Delete</li>
      </ul>
   </div>

   <div class="slide">
      <h1>SQL: Create</h1>
<pre>my $sth = $dbh-&gt;prepare('
   INSERT INTO books
   (title, author_id)
   values (?,?)
');

$sth-&gt;execute(
  'A book title', $author_id
);</pre>
   </div>

   <div class="slide">
      <h1>DBIC: Create</h1>
<pre>my $book = $book_rs-&gt;create({
   title     =&gt; 'A book title',
   author_id =&gt; $author_id,
});</pre>
      <ul class="incremental">
         <li>No need to pair placeholders and values</li>
      </ul>
   </div>

   <div class="slide">
      <h1>SQL: Read</h1>
<pre>my $sth = $dbh-&gt;prepare('
   SELECT title,
   authors.name as author_name
   FROM books, authors
   WHERE books.author = authors.id
');</pre>
   </div>

   <div class="slide">
      <h1>SQL: Read</h1>
<pre>while( my $book = $sth-&gt;fetchrow_hashref() ) {
  print 'Author of '
     . $book-&gt;{title}
     . ' is '
     . $book-&gt;{author_name}
     . "\n";
}</pre>
   </div>

   <div class="slide">
      <h1>DBIC: Read</h1>
<pre>my $book = $book_rs-&gt;find($book_id);

my $book = $book_rs-&gt;search({
   title =&gt; 'A book title',
}, { rows =&gt; 1 })-&gt;single;

my @books = $book_rs-&gt;search({
   author =&gt; $author_id,
})-&gt;all;</pre>
      <ul class="incremental">
         <li>TMTOWTDI</li>
      </ul>
   </div>

   <div class="slide">
      <h1>DBIC: Read</h1>
<pre>while( my $book = $books_rs-&gt;next ) {
 print 'Author of '
    . $book-&gt;title
    . ' is '
    . $book-&gt;author-&gt;name
    . "\n";
}</pre>
   </div>

   <div class="slide">
      <h1>SQL: Update</h1>
<pre>my $update = $dbh-&gt;prepare('
   UPDATE books
   SET title = ?
   WHERE id = ?
');

$update-&gt;execute(
  'New title',<strong>$book_id</strong>
);</pre>
   </div>

   <div class="slide">
      <h1>DBIC: Update</h1>
<pre>$book-&gt;update({
  title =&gt; 'New title',
});</pre>
   </div>

   <div class="slide">
      <h1>SQL: Delete</h1>
<pre>my $delete = $dbh-&gt;prepare('
   DELETE FROM books
   WHERE id = ?
');

$delete-&gt;execute(<strong>$book_id</strong>);</pre>
   </div>

   <div class="slide">
      <h1>DBIC: Delete</h1>
<pre>$book-&gt;delete;</pre>
   </div>

   <div class="slide">
      <h1>OO Overidability</h1>
      <ul class="incremental">
         <li>Override new if you want to do validation</li>
         <li>Override delete if you want to disable deletion</li>
         <li>and on and on</li>
      </ul>
      <div class="notes">
         <p>I got yelled at about this before by people, so
         we don't get EVERYTHING from OO, but we do get a lot
         so :-P</p>
      </div>
   </div>

   <div class="slide">
      <h1>Convenience Methods</h1>
      <ul class="incremental">
         <li>find_or_create</li>
         <li>create_or_update</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Non-column methods</h1>
      <p>Need a method to get a user's gravatar URL?  Add a
      gravatar_url method to their Result class</p>
   </div>

   <div class="slide">
      <h1>RELATIONSHIPS</h1>
      <ul class="incremental">
         <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#belongs_to">belongs_to</a></li>
         <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_many">has_many</a></li>
         <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#might_have">might_have</a></li>
         <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_one">has_one</a></li>
         <li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#many_to_many">many_to_many</a> (technically not a relationship)</li>
         <li>SET AND FORGET</li>
      </ul>
   </div>

   <div class="slide">
      <h1>DBIx::Class Specific Features</h1>
      <p>These things may be in other ORM's, but they are very specific, so doubtful</p>
   </div>

   <div class="slide">
      <h1>-&gt;deploy</h1>
      <p>Perl -&gt; DB</p>
<pre>my $schema = Foo::Schema-&gt;connect($dsn, $user, $pass);
$schema-&gt;deploy
</pre>
<p>See also: <a href="http://search.cpan.org/perldoc?DBIx::Class::DeploymentHandler">DBIx::Class::DeploymentHandler</a></p>
   </div>

   <div class="slide">
      <h1>Schema::Loader</h1>
      <p>DB -&gt; Perl</p>
<pre>package Foo::Schema;
use strict; use warnings;
use base 'DBIx::Class::Schema::Loader';
__PACKAGE__-&gt;loader_options({
   naming =&gt; 'v7',
   debug  =&gt; $ENV{DBIC_TRACE},
});
1;

# elsewhere...

my $schema = Foo::Schema-&gt;connect($dsn, $user, $pass);
</pre>
   </div>

   <div class="slide">
      <h1>Populate</h1>
      <p>Made for inserting lots of rows very quicky into database</p>
<pre>$schema-&gt;populate([ Users =&gt;
   [qw( username password )],
   [qw( frew &gt;=4char$  )],
   [qw(      ...          )],
   [qw(      ...          )],
);
</pre>
      <ul class="incremental">
         <li>I use this to <a href="http://blog.afoolishmanifesto.com/archives/1255">export our whole (200M~) db to SQLite</a></li>
      </ul>
   </div>

   <div class="slide">
      <h1>Multicreate</h1>
      <p>Create an object and all of it's related objects all at once</p>
<pre>$schema-&gt;resultset('Author')-&gt;create({
   name =&gt; 'Stephen King',
   books =&gt; [{ title =&gt; 'The Dark Tower' }],
   address =&gt; {
      street =&gt; '123 Turtle Back Lane',
      state  =&gt; { abbreviation =&gt; 'ME' },
      city   =&gt; { name =&gt; 'Lowell' },
   },
});
</pre>
      <div class="notes">
         <ul>
            <li>books is a has_many</li>
            <li>address is a belongs_to which in turn belongs to state and city each</li>
            <li>for this to work right state and city must mark abbreviation and name as unique</li>
         </ul>
      </div>
   </div>

   <div class="slide">
      <h1>Extensible</h1>
      <p>DBIx::Class helped pioneer fast MI in Perl 5 with Class::C3, so it is made
      to allow extensions to nearly every part of it.</p>
   </div>

   <div class="slide">
      <h1>Extensible: DBIC::Helpers</h1>
      <ul class="incremental">
         <li>DBIx::Class::Helper::ResultSet::IgnoreWantarray</li>
         <li>DBIx::Class::Helper::ResultSet::Random</li>
         <li>DBIx::Class::Helper::ResultSet::SetOperations</li>
         <li>DBIx::Class::Helper::Row::JoinTable</li>
         <li>DBIx::Class::Helper::Row::NumifyGet</li>
         <li>DBIx::Class::Helper::Row::SubClass</li>
         <li>DBIx::Class::Helper::Row::ToJSON</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Extensible: DBIC::TimeStamp</h1>
      <ul class="incremental">
         <li>Cross DB</li>
         <li>set_on_create</li>
         <li>set_on_update</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Extensible: DBIx::Class::Schema::KiokuDB</h1>
      <ul class="incremental">
         <li>Kioku is the new hotness</li>
         <li>Mix RDBMS with Object DB</li>
         <li>beta ( == sexy )</li>
      </ul>
   </div>

   <div class="slide">
      <h1>SQL::Abstract</h1>
<pre>my $resultset = $book_rs-&gt;search({
   name =&gt; { -like =&gt; "%$nick%" },
});</pre>
      <ul class="incremental">
         <li>(kinda) introspectible</li>
         <li>Prettier than SQL</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Result vs ResultSet</h1>
         <ul class="incremental">
            <li>Result == Row</li>
            <li>ResultSet == Query</li>
            <li>(less important but...)</li>
            <li>ResultSource == Table</li>
            <li>Storage == Database</li>
         </ul>
   </div>

   <div class="slide">
      <h1>ResultSet methods</h1>
<pre>package MyApp::Schema::ResultSet::Book;
use base 'DBIx::Class::ResultSet';
sub good {
   $_[0]-&gt;search({
      rating =&gt; { '&gt;=' =&gt; 4 },
   })
};
sub cheap {
   $_[0]-&gt;search({
      price =&gt; { '&lt;=' =&gt; 5}
   })
};
# ...
1;
      </pre>
      <ul class="incremental">
         <li>All searches should be ResultSet methods</li>
         <li>Name has obvious meaning</li>
      </ul>
   </div>

   <div class="slide">
      <h1>ResultSet method in Action</h1>
      <pre>$schema-&gt;resultset('Book')-&gt;good</pre>
   </div>

   <div class="slide">
      <h1>ResultSet Chaining</h1>
<pre>$schema-&gt;resultset('Book')
   -&gt;good
   -&gt;cheap
   -&gt;recent
</pre>
   </div>

   <div class="slide">
      <h1>search_related</h1>
      <pre>*get example from work*</pre>
   </div>

   <div class="slide">
      <h1>bonus rel methods</h1>
<pre>my $book = $author-&gt;create_related(
  <strong>books</strong> =&gt; {
   title =&gt; 'Another Discworld book',
});

my $book2 = $pratchett-&gt;add_to_<strong>books</strong>({
   title =&gt; 'MOAR Discworld book',
});</pre>
      <ul class="incremental">
         <li>Automaticaly fills in foreign key for you</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Excellent Transaction Support</h1>
<pre>$schema-&gt;txn_do(sub {
   ...
});

my $guard = $schema-&gt;txn_scope_guard;
# ...
$guard-&gt;commit;

$schema-&gt;txn_begin; # &lt;-- low level
# ...
$schema-&gt;txn_commit;
</pre>
   </div>

   <div class="slide">
      <h1>InflateColumn</h1>
<pre>package Foo::Schema::Result::Book;
use base 'DBIx::Class::Core';
# Result code here
__PACKAGE__-&gt;load_components('InflateColumn');
use DateTime::Format::MySQL;
__PACKAGE__-&gt;<strong>inflate_column</strong>(
   <strong>date_published</strong> =&gt; {
      inflate =&gt; sub { DateTime::Format::MySQL-&gt;parse_date(shift) },
      deflate =&gt; sub { shift-&gt;ymd},
   },
);
# Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
   </div>

   <div class="slide">
      <h1>InflateColumn: deflation</h1>
<pre>$book-&gt;date_published(DateTime-&gt;now);
$book-&gt;update;</pre>
   </div>

   <div class="slide">
      <h1>InflateColumn: inflation</h1>
<pre>my $date_published = $book-&gt;date_published;
print $date_published-&gt;month_abbr;</pre>

<strong><em>Nov</em></strong>
   </div>

   <div class="slide">
      <h1>FilterColumn</h1>
<pre>package Foo::Schema::Result::Book;
use base 'DBIx::Class::Core';
# Result code here
__PACKAGE__-&gt;load_components('FilterColumn');

__PACKAGE__-&gt;<strong>filter_column</strong>(
   <strong>length</strong> =&gt; {
      to_storage   =&gt; 'to_metric',
      from_storage =&gt; 'to_imperial',
   },
);

sub to_metric   { $_[1] * .305 }
sub to_imperial { $_[1] * 3.28 }
# Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
   </div>

   <div class="slide">
      <h1>ResultSetColumn</h1>
<pre>my $rsc = $schema-&gt;resultset('Book')-&gt;get_column('price');
$rsc-&gt;min;
$rsc-&gt;max;
$rsc-&gt;sum;
</pre>
   </div>

   <div class="slide">
      <h1>Aggregates</h1>
<pre>my @res = $rs-&gt;search({}, {
   select   =&gt; [qw(price genre), { max =&gt; price }, { avg =&gt; price }],
   as       =&gt; [qw(price genre max_price avg_price)],
   group_by =&gt; [qw(price genre)],
});
for (@res) {
   say $_-&gt;price . ' ' . $_-&gt;genre;
   say $_-&gt;get_column('max_price');
   say $_-&gt;get_column('min_price');
}</pre>
      <ul class="incremental">
         <li>Careful, get_column can basicaly mean THREE things</li>
         <li>private for get what you should use an accessor for</li>
         <li>public for what there is no accessor for</li>
         <li>public for get resultset column (prev slide)</li>
      </ul>
   </div>

   <div class="slide">
      <h1>HRI</h1>
<pre>$rs-&gt;search({}, {
   result_class =&gt; 'DBIx::Class::ResultClass::HashRefInflator',
});</pre>
      <ul class="incremental">
         <li>Easy on memory</li>
         <li>Mega fast</li>
         <li>Great for quick debugging</li>
         <li>Great for performance tuning (we went from 2m to &lt; 3s)</li>
      </ul>
   </div>

   <div class="slide">
      <h1>Subquery Support</h1>
<pre>  my $inside_rs = $schema-&gt;resultset('Artist')-&gt;search({
    name =&gt; [ 'Billy Joel', 'Brittany Spears' ],
});

my $rs = $schema-&gt;resultset('CD')-&gt;search({
    artist_id =&gt; { -in =&gt; $inside_rs-&gt;get_column('id')-&gt;as_query },
});</pre>
   </div>

   <div class="slide">
      <h1>Bare SQL w/ Placeholders</h1>
<pre>$rs-&gt;update({
   price =&gt; \"price + $inc", # !!! SQL INJECTION VECTOR
});

$rs-&gt;update({
   price =&gt; \['price + ?', [inc =&gt; $inc]],
});
</pre>
   </div>

   <div class="slide">
      <h1>Questions?</h1>
   </div>

   <div class="slide">
      <h1>END</h1>
   </div>
</div>
</body>
</html>
Commit	Line	Data
52d980cb	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>
0cffcad7	74	</div>
	75
	76	<div class="slide">
	77	<h1>Authors</h1>
	78	<h4>Originally Leo Lapworth @ LPW 2009</h4>
da0b46fd	79	<h4>Amiri Barksdale</h4>
0cffcad7	80	<h4>Justin D. Hunter</h4>
5cac74c7	81	<h4>Arthur Axel "fREW" Schmidt</h4>
52d980cb	82	</div>
	83
	84	<div class="slide">
7365a110	85	<h1>What's up guys?</h1>
0cffcad7	86	<div class="notes">
0cffcad7	87	<ul>
0cffcad7	88	<li>How many people have used any ORM?<ul>
	89	<li>In Perl?<ul>
	90	<li>DBIC?</li>
da0b46fd	91	<li>Class::DBI?</li>
	92	<li>Rose::DB?</li>
	93	<li>Fey?</li>
	94	<li>Others?</li>
0cffcad7	95	</ul></li>
da0b46fd	96	<li>AR?</li>
da0b46fd	97	<li>DataMapper?</li>
0cffcad7	98	<li>(N)Hibernate?</li>
	99	</ul></li>
	100	</ul>
	101	</div>
52d980cb	102	</div>
	103
	104	<div class="slide">
da0b46fd	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">
52d980cb	112	<h1>DBIx::Class?</h1>
	113	<ul>
	114	<li>ORM (object relational mapper)</li>
	115	<li>SQL <-> OO (using objects instead of SQL)</li>
52d980cb	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">
da0b46fd	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>
52d980cb	155	</div>
	156
	157	<div class="slide">
7365a110	158	<h1>Basic CRUD</h1>
da0b46fd	159	<ul class="incremental">
52d980cb	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">
5cac74c7	168	<h1>SQL: Create</h1>
52d980cb	169	<pre>my $sth = $dbh->prepare('
52d980cb	170	INSERT INTO books
01b7b88c	171	(title, author_id)
52d980cb	172	values (?,?)
	173	');
	174
	175	$sth->execute(
	176	'A book title', $author_id
	177	);</pre>
	178	</div>
	179
	180	<div class="slide">
5cac74c7	181	<h1>DBIC: Create</h1>
01b7b88c	182	<pre>my $book = $book_rs->create({
	183	title => 'A book title',
	184	author_id => $author_id,
52d980cb	185	});</pre>
da0b46fd	186	<ul class="incremental">
	187	<li>No need to pair placeholders and values</li>
	188	</ul>
52d980cb	189	</div>
	190
	191	<div class="slide">
7365a110	192	<h1>SQL: Read</h1>
	193	<pre>my $sth = $dbh->prepare('
	194	SELECT title,
	195	authors.name as author_name
	196	FROM books, authors
	197	WHERE books.author = authors.id
	198	');</pre>
	199	</div>
	200
	201	<div class="slide">
	202	<h1>SQL: Read</h1>
	203	<pre>while( my $book = $sth->fetchrow_hashref() ) {
	204	print 'Author of '
	205	. $book->{title}
	206	. ' is '
	207	. $book->{author_name}
	208	. "\n";
	209	}</pre>
52d980cb	210	</div>
	211
	212	<div class="slide">
5cac74c7	213	<h1>DBIC: Read</h1>
01b7b88c	214	<pre>my $book = $book_rs->find($book_id);
52d980cb	215
01b7b88c	216	my $book = $book_rs->search({
52d980cb	217	title => 'A book title',
5cac74c7	218	}, { rows => 1 })->single;
52d980cb	219
01b7b88c	220	my @books = $book_rs->search({
52d980cb	221	author => $author_id,
52d980cb	222	})->all;</pre>
da0b46fd	223	<ul class="incremental">
	224	<li>TMTOWTDI</li>
	225	</ul>
52d980cb	226	</div>
	227
	228	<div class="slide">
5cac74c7	229	<h1>DBIC: Read</h1>
5cac74c7	230	<pre>while( my $book = $books_rs->next ) {
52d980cb	231	print 'Author of '
	232	. $book->title
	233	. ' is '
	234	. $book->author->name
	235	. "\n";
	236	}</pre>
	237	</div>
	238
	239	<div class="slide">
7365a110	240	<h1>SQL: Update</h1>
	241	<pre>my $update = $dbh->prepare('
	242	UPDATE books
	243	SET title = ?
	244	WHERE id = ?
	245	');
	246
	247	$update->execute(
	248	'New title',<strong>$book_id</strong>
	249	);</pre>
	250	</div>
	251
	252	<div class="slide">
5cac74c7	253	<h1>DBIC: Update</h1>
52d980cb	254	<pre>$book->update({
	255	title => 'New title',
	256	});</pre>
	257	</div>
	258
	259	<div class="slide">
7365a110	260	<h1>SQL: Delete</h1>
	261	<pre>my $delete = $dbh->prepare('
	262	DELETE FROM books
	263	WHERE id = ?
	264	');
	265
	266	$delete->execute(<strong>$book_id</strong>);</pre>
	267	</div>
	268
	269	<div class="slide">
5cac74c7	270	<h1>DBIC: Delete</h1>
52d980cb	271	<pre>$book->delete;</pre>
	272	</div>
	273
	274	<div class="slide">
da0b46fd	275	<h1>OO Overidability</h1>
	276	<ul class="incremental">
	277	<li>Override new if you want to do validation</li>
	278	<li>Override delete if you want to disable deletion</li>
	279	<li>and on and on</li>
	280	</ul>
	281	<div class="notes">
	282	<p>I got yelled at about this before by people, so
	283	we don't get EVERYTHING from OO, but we do get a lot
	284	so :-P</p>
	285	</div>
52d980cb	286	</div>
	287
	288	<div class="slide">
da0b46fd	289	<h1>Convenience Methods</h1>
	290	<ul class="incremental">
	291	<li>find_or_create</li>
	292	<li>create_or_update</li>
	293	</ul>
492be2ae	294	</div>
	295
	296	<div class="slide">
da0b46fd	297	<h1>Non-column methods</h1>
	298	<p>Need a method to get a user's gravatar URL? Add a
	299	gravatar_url method to their Result class</p>
	300	</div>
	301
	302	<div class="slide">
	303	<h1>RELATIONSHIPS</h1>
	304	<ul class="incremental">
	305	<li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#belongs_to">belongs_to</a></li>
	306	<li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_many">has_many</a></li>
	307	<li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#might_have">might_have</a></li>
	308	<li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#has_one">has_one</a></li>
	309	<li><a href="http://search.cpan.org/perldoc?DBIx::Class::Relationship#many_to_many">many_to_many</a> (technically not a relationship)</li>
	310	<li>SET AND FORGET</li>
	311	</ul>
	312	</div>
	313
	314	<div class="slide">
	315	<h1>DBIx::Class Specific Features</h1>
	316	<p>These things may be in other ORM's, but they are very specific, so doubtful</p>
52d980cb	317	</div>
	318
	319	<div class="slide">
9158dee5	320	<h1>->deploy</h1>
	321	<p>Perl -> DB</p>
	322	<pre>my $schema = Foo::Schema->connect($dsn, $user, $pass);
	323	$schema->deploy
	324	</pre>
	325	<p>See also: <a href="http://search.cpan.org/perldoc?DBIx::Class::DeploymentHandler">DBIx::Class::DeploymentHandler</a></p>
	326	</div>
	327
	328	<div class="slide">
52d980cb	329	<h1>Schema::Loader</h1>
9158dee5	330	<p>DB -> Perl</p>
451b57c2	331	<pre>package Foo::Schema;
c7321880	332	use strict; use warnings;
	333	use base 'DBIx::Class::Schema::Loader';
	334	__PACKAGE__->loader_options({
	335	naming => 'v7',
	336	debug => $ENV{DBIC_TRACE},
	337	});
	338	1;
	339
	340	# elsewhere...
	341
451b57c2	342	my $schema = Foo::Schema->connect($dsn, $user, $pass);
c7321880	343	</pre>
52d980cb	344	</div>
	345
	346	<div class="slide">
da0b46fd	347	<h1>Populate</h1>
	348	<p>Made for inserting lots of rows very quicky into database</p>
	349	<pre>$schema->populate([ Users =>
	350	[qw( username password )],
	351	[qw( frew >=4char$ )],
	352	[qw( ... )],
	353	[qw( ... )],
	354	);
	355	</pre>
	356	<ul class="incremental">
	357	<li>I use this to <a href="http://blog.afoolishmanifesto.com/archives/1255">export our whole (200M~) db to SQLite</a></li>
	358	</ul>
52d980cb	359	</div>
	360
	361	<div class="slide">
da0b46fd	362	<h1>Multicreate</h1>
	363	<p>Create an object and all of it's related objects all at once</p>
	364	<pre>$schema->resultset('Author')->create({
	365	name => 'Stephen King',
	366	books => [{ title => 'The Dark Tower' }],
	367	address => {
	368	street => '123 Turtle Back Lane',
	369	state => { abbreviation => 'ME' },
	370	city => { name => 'Lowell' },
	371	},
7e77ca11	372	});
da0b46fd	373	</pre>
	374	<div class="notes">
	375	<ul>
	376	<li>books is a has_many</li>
	377	<li>address is a belongs_to which in turn belongs to state and city each</li>
	378	<li>for this to work right state and city must mark abbreviation and name as unique</li>
	379	</ul>
	380	</div>
	381	</div>
	382
	383	<div class="slide">
	384	<h1>Extensible</h1>
	385	<p>DBIx::Class helped pioneer fast MI in Perl 5 with Class::C3, so it is made
	386	to allow extensions to nearly every part of it.</p>
	387	</div>
	388
	389	<div class="slide">
	390	<h1>Extensible: DBIC::Helpers</h1>
	391	<ul class="incremental">
	392	<li>DBIx::Class::Helper::ResultSet::IgnoreWantarray</li>
	393	<li>DBIx::Class::Helper::ResultSet::Random</li>
	394	<li>DBIx::Class::Helper::ResultSet::SetOperations</li>
	395	<li>DBIx::Class::Helper::Row::JoinTable</li>
	396	<li>DBIx::Class::Helper::Row::NumifyGet</li>
	397	<li>DBIx::Class::Helper::Row::SubClass</li>
	398	<li>DBIx::Class::Helper::Row::ToJSON</li>
	399	</ul>
	400	</div>
	401
	402	<div class="slide">
	403	<h1>Extensible: DBIC::TimeStamp</h1>
	404	<ul class="incremental">
	405	<li>Cross DB</li>
	406	<li>set_on_create</li>
	407	<li>set_on_update</li>
	408	</ul>
	409	</div>
	410
	411	<div class="slide">
	412	<h1>Extensible: DBIx::Class::Schema::KiokuDB</h1>
	413	<ul class="incremental">
	414	<li>Kioku is the new hotness</li>
	415	<li>Mix RDBMS with Object DB</li>
	416	<li>beta ( == sexy )</li>
	417	</ul>
	418	</div>
	419
	420	<div class="slide">
	421	<h1>SQL::Abstract</h1>
7e77ca11	422	<pre>my $resultset = $book_rs->search({
	423	name => { -like => "%$nick%" },
	424	});</pre>
da0b46fd	425	<ul class="incremental">
	426	<li>(kinda) introspectible</li>
	427	<li>Prettier than SQL</li>
	428	</ul>
	429	</div>
	430
	431	<div class="slide">
	432	<h1>Result vs ResultSet</h1>
	433	<ul class="incremental">
	434	<li>Result == Row</li>
	435	<li>ResultSet == Query</li>
	436	<li>(less important but...)</li>
	437	<li>ResultSource == Table</li>
	438	<li>Storage == Database</li>
	439	</ul>
	440	</div>
	441
	442	<div class="slide">
	443	<h1>ResultSet methods</h1>
	444	<pre>package MyApp::Schema::ResultSet::Book;
	445	use base 'DBIx::Class::ResultSet';
	446	sub good {
7e77ca11	447	$_[0]->search({
da0b46fd	448	rating => { '>=' => 4 },
	449	})
	450	};
	451	sub cheap {
7e77ca11	452	$_[0]->search({
da0b46fd	453	price => { '<=' => 5}
	454	})
	455	};
	456	# ...
	457	1;
	458	</pre>
	459	<ul class="incremental">
	460	<li>All searches should be ResultSet methods</li>
	461	<li>Name has obvious meaning</li>
	462	</ul>
	463	</div>
	464
	465	<div class="slide">
	466	<h1>ResultSet method in Action</h1>
	467	<pre>$schema->resultset('Book')->good</pre>
	468	</div>
	469
	470	<div class="slide">
	471	<h1>ResultSet Chaining</h1>
	472	<pre>$schema->resultset('Book')
	473	->good
	474	->cheap
	475	->recent
6e5edefe	476	</pre>
52d980cb	477	</div>
	478
	479	<div class="slide">
7e77ca11	480	<h1>search_related</h1>
7e77ca11	481	<pre>get example from work</pre>
52d980cb	482	</div>
	483
	484	<div class="slide">
7e77ca11	485	<h1>bonus rel methods</h1>
	486	<pre>my $book = $author->create_related(
	487	<strong>books</strong> => {
	488	title => 'Another Discworld book',
	489	});
52d980cb	490
7e77ca11	491	my $book2 = $pratchett->add_to_<strong>books</strong>({
	492	title => 'MOAR Discworld book',
	493	});</pre>
	494	<ul class="incremental">
	495	<li>Automaticaly fills in foreign key for you</li>
	496	</ul>
52d980cb	497	</div>
	498
	499	<div class="slide">
7e77ca11	500	<h1>Excellent Transaction Support</h1>
	501	<pre>$schema->txn_do(sub {
	502	...
	503	});
52d980cb	504
7e77ca11	505	my $guard = $schema->txn_scope_guard;
	506	# ...
	507	$guard->commit;
52d980cb	508
7e77ca11	509	$schema->txn_begin; # <-- low level
	510	# ...
	511	$schema->txn_commit;
	512	</pre>
52d980cb	513	</div>
	514
	515	<div class="slide">
7e77ca11	516	<h1>InflateColumn</h1>
2a65778d	517	<pre>package Foo::Schema::Result::Book;
2a65778d	518	use base 'DBIx::Class::Core';
451b57c2	519	# Result code here
451b57c2	520	__PACKAGE__->load_components('InflateColumn');
52d980cb	521	use DateTime::Format::MySQL;
52d980cb	522	__PACKAGE__-><strong>inflate_column</strong>(
	523	<strong>date_published</strong> => {
	524	inflate => sub { DateTime::Format::MySQL->parse_date(shift) },
	525	deflate => sub { shift->ymd},
451b57c2	526	},
52d980cb	527	);
	528	# Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
	529	</div>
	530
	531	<div class="slide">
7e77ca11	532	<h1>InflateColumn: deflation</h1>
52d980cb	533	<pre>$book->date_published(DateTime->now);
	534	$book->update;</pre>
	535	</div>
	536
	537	<div class="slide">
7e77ca11	538	<h1>InflateColumn: inflation</h1>
52d980cb	539	<pre>my $date_published = $book->date_published;
	540	print $date_published->month_abbr;</pre>
	541
	542	<strong><em>Nov</em></strong>
	543	</div>
	544
	545	<div class="slide">
7e77ca11	546	<h1>FilterColumn</h1>
7e77ca11	547	<pre>package Foo::Schema::Result::Book;
2a65778d	548	use base 'DBIx::Class::Core';
7e77ca11	549	# Result code here
7e77ca11	550	__PACKAGE__->load_components('FilterColumn');
52d980cb	551
7e77ca11	552	__PACKAGE__-><strong>filter_column</strong>(
	553	<strong>length</strong> => {
	554	to_storage => 'to_metric',
	555	from_storage => 'to_imperial',
	556	},
52d980cb	557	);
52d980cb	558
7e77ca11	559	sub to_metric { $_[1] * .305 }
	560	sub to_imperial { $_[1] * 3.28 }
	561	# Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
52d980cb	562	</div>
	563
	564	<div class="slide">
7e77ca11	565	<h1>ResultSetColumn</h1>
	566	<pre>my $rsc = $schema->resultset('Book')->get_column('price');
	567	$rsc->min;
	568	$rsc->max;
	569	$rsc->sum;
6548782a	570	</pre>
52d980cb	571	</div>
	572
	573	<div class="slide">
7e77ca11	574	<h1>Aggregates</h1>
	575	<pre>my @res = $rs->search({}, {
	576	select => [qw(price genre), { max => price }, { avg => price }],
	577	as => [qw(price genre max_price avg_price)],
	578	group_by => [qw(price genre)],
	579	});
	580	for (@res) {
	581	say $_->price . ' ' . $_->genre;
	582	say $_->get_column('max_price');
	583	say $_->get_column('min_price');
	584	}</pre>
	585	<ul class="incremental">
	586	<li>Careful, get_column can basicaly mean THREE things</li>
	587	<li>private for get what you should use an accessor for</li>
	588	<li>public for what there is no accessor for</li>
	589	<li>public for get resultset column (prev slide)</li>
	590	</ul>
52d980cb	591	</div>
	592
	593	<div class="slide">
7e77ca11	594	<h1>HRI</h1>
	595	<pre>$rs->search({}, {
	596	result_class => 'DBIx::Class::ResultClass::HashRefInflator',
52d980cb	597	});</pre>
7e77ca11	598	<ul class="incremental">
	599	<li>Easy on memory</li>
	600	<li>Mega fast</li>
	601	<li>Great for quick debugging</li>
	602	<li>Great for performance tuning (we went from 2m to < 3s)</li>
52d980cb	603	</ul>
	604	</div>
	605
	606	<div class="slide">
7e77ca11	607	<h1>Subquery Support</h1>
	608	<pre> my $inside_rs = $schema->resultset('Artist')->search({
	609	name => [ 'Billy Joel', 'Brittany Spears' ],
	610	});
9158dee5	611
7e77ca11	612	my $rs = $schema->resultset('CD')->search({
	613	artist_id => { -in => $inside_rs->get_column('id')->as_query },
	614	});</pre>
52d980cb	615	</div>
	616
	617	<div class="slide">
7e77ca11	618	<h1>Bare SQL w/ Placeholders</h1>
	619	<pre>$rs->update({
	620	price => \"price + $inc", # !!! SQL INJECTION VECTOR
	621	});
	622
	623	$rs->update({
	624	price => \['price + ?', [inc => $inc]],
	625	});
	626	</pre>
52d980cb	627	</div>
	628
	629	<div class="slide">
7e77ca11	630	<h1>Questions?</h1>
52d980cb	631	</div>
	632
	633	<div class="slide">
7e77ca11	634	<h1>END</h1>
52d980cb	635	</div>
52d980cb	636	</div>
	637	</body>
	638	</html>