.\" Automatically generated by Pod::Man 2.25 (Pod::Simple 3.16)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "CPANDB::Distribution 3pm"
.TH CPANDB::Distribution 3pm "2012-09-11" "perl v5.14.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
CPANDB::Distribution \- CPANDB class for the distribution table
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\s-1TO\s0 \s-1BE\s0 \s-1COMPLETED\s0
.SH "METHODS"
.IX Header "METHODS"
.SS "base"
.IX Subsection "base"
.Vb 2
\&  # Returns \*(AqCPANDB\*(Aq
\&  my $namespace = CPANDB::Distribution\->base;
.Ve
.PP
Normally you will only need to work directly with a table class,
and only with one ORLite package.
.PP
However, if for some reason you need to work with multiple ORLite packages
at the same time without hardcoding the root namespace all the time, you
can determine the root namespace from an object or table class with the
\&\f(CW\*(C`base\*(C'\fR method.
.SS "table"
.IX Subsection "table"
.Vb 2
\&  # Returns \*(Aqdistribution\*(Aq
\&  print CPANDB::Distribution\->table;
.Ve
.PP
While you should not need the name of table for any simple operations,
from time to time you may need it programatically. If you do need it,
you can use the \f(CW\*(C`table\*(C'\fR method to get the table name.
.SS "load"
.IX Subsection "load"
.Vb 1
\&  my $object = CPANDB::Distribution\->load( $distribution );
.Ve
.PP
If your table has single column primary key, a \f(CW\*(C`load\*(C'\fR method will be
generated in the class. If there is no primary key, the method is not
created.
.PP
The \f(CW\*(C`load\*(C'\fR method provides a shortcut mechanism for fetching a single
object based on the value of the primary key. However it should only
be used for cases where your code trusts the record to already exists.
.PP
It returns a \f(CW\*(C`CPANDB::Distribution\*(C'\fR object, or throws an exception if the
object does not exist.
.SS "select"
.IX Subsection "select"
.Vb 2
\&  # Get all objects in list context
\&  my @list = CPANDB::Distribution\->select;
\&  
\&  # Get a subset of objects in scalar context
\&  my $array_ref = CPANDB::Distribution\->select(
\&      \*(Aqwhere distribution > ? order by distribution\*(Aq,
\&      1000,
\&  );
.Ve
.PP
The \f(CW\*(C`select\*(C'\fR method executes a typical \s-1SQL\s0 \f(CW\*(C`SELECT\*(C'\fR query on the
distribution table.
.PP
It takes an optional argument of a \s-1SQL\s0 phrase to be added after the
\&\f(CW\*(C`FROM distribution\*(C'\fR section of the query, followed by variables
to be bound to the placeholders in the \s-1SQL\s0 phrase. Any \s-1SQL\s0 that is
compatible with SQLite can be used in the parameter.
.PP
Returns a list of \fBCPANDB::Distribution\fR objects when called in list context, or a
reference to an \f(CW\*(C`ARRAY\*(C'\fR of \fBCPANDB::Distribution\fR objects when called in scalar
context.
.PP
Throws an exception on error, typically directly from the \s-1DBI\s0 layer.
.SS "iterate"
.IX Subsection "iterate"
.Vb 3
\&  CPANDB::Distribution\->iterate( sub {
\&      print $_\->distribution . "\en";
\&  } );
.Ve
.PP
The \f(CW\*(C`iterate\*(C'\fR method enables the processing of large tables one record at
a time without loading having to them all into memory in advance.
.PP
This plays well to the strength of SQLite, allowing it to do the work of
loading arbitrarily large stream of records from disk while retaining the
full power of Perl when processing the records.
.PP
The last argument to \f(CW\*(C`iterate\*(C'\fR must be a subroutine reference that will be
called for each element in the list, with the object provided in the topic
variable \f(CW$_\fR.
.PP
This makes the \f(CW\*(C`iterate\*(C'\fR code fragment above functionally equivalent to the
following, except with an O(1) memory cost instead of O(n).
.PP
.Vb 3
\&  foreach ( CPANDB::Distribution\->select ) {
\&      print $_\->distribution . "\en";
\&  }
.Ve
.PP
You can filter the list via \s-1SQL\s0 in the same way you can with \f(CW\*(C`select\*(C'\fR.
.PP
.Vb 6
\&  CPANDB::Distribution\->iterate(
\&      \*(Aqorder by ?\*(Aq, \*(Aqdistribution\*(Aq,
\&      sub {
\&          print $_\->distribution . "\en";
\&      }
\&  );
.Ve
.PP
You can also use it in raw form from the root namespace for better control.
Using this form also allows for the use of arbitrarily complex queries,
including joins. Instead of being objects, rows are provided as \f(CW\*(C`ARRAY\*(C'\fR
references when used in this form.
.PP
.Vb 6
\&  CPANDB\->iterate(
\&      \*(Aqselect name from distribution order by distribution\*(Aq,
\&      sub {
\&          print $_\->[0] . "\en";
\&      }
\&  );
.Ve
.SS "count"
.IX Subsection "count"
.Vb 2
\&  # How many objects are in the table
\&  my $rows = CPANDB::Distribution\->count;
\&  
\&  # How many objects 
\&  my $small = CPANDB::Distribution\->count(
\&      \*(Aqwhere distribution > ?\*(Aq,
\&      1000,
\&  );
.Ve
.PP
The \f(CW\*(C`count\*(C'\fR method executes a \f(CW\*(C`SELECT COUNT(*)\*(C'\fR query on the
distribution table.
.PP
It takes an optional argument of a \s-1SQL\s0 phrase to be added after the
\&\f(CW\*(C`FROM distribution\*(C'\fR section of the query, followed by variables
to be bound to the placeholders in the \s-1SQL\s0 phrase. Any \s-1SQL\s0 that is
compatible with SQLite can be used in the parameter.
.PP
Returns the number of objects that match the condition.
.PP
Throws an exception on error, typically directly from the \s-1DBI\s0 layer.
.SH "ACCESSORS"
.IX Header "ACCESSORS"
.SS "distribution"
.IX Subsection "distribution"
.Vb 5
\&  if ( $object\->distribution ) {
\&      print "Object has been inserted\en";
\&  } else {
\&      print "Object has not been inserted\en";
\&  }
.Ve
.PP
Returns true, or throws an exception on error.
.PP
\&\s-1REMAINING\s0 \s-1ACCESSORS\s0 \s-1TO\s0 \s-1BE\s0 \s-1COMPLETED\s0
.SH "SQL"
.IX Header "SQL"
The distribution table was originally created with the
following \s-1SQL\s0 command.
.PP
.Vb 10
\&  CREATE TABLE distribution (
\&      distribution TEXT NOT NULL PRIMARY KEY,
\&      version TEXT NULL,
\&      author TEXT NOT NULL,
\&      meta INTEGER NOT NULL,
\&      license TEXT NULL,
\&      release TEXT NOT NULL,
\&      uploaded TEXT NULL,
\&      pass INTEGER NULL,
\&      fail INTEGER NULL,
\&      unknown INTEGER NULL,
\&      na INTEGER NULL,
\&      rating TEXT NULL,
\&      ratings INTEGER NOT NULL,
\&      weight INTEGER NOT NULL,
\&      volatility INTEGER NOT NULL,
\&      FOREIGN KEY (author) REFERENCES author (author)
\&  )
.Ve
.SH "SUPPORT"
.IX Header "SUPPORT"
CPANDB::Distribution is part of the \s-1CPANDB\s0 \s-1API\s0.
.PP
See the documentation for \s-1CPANDB\s0 for more information.
.SH "AUTHOR"
.IX Header "AUTHOR"
Adam Kennedy <adamk@cpan.org>
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright 2009 \- 2012 Adam Kennedy.
.PP
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
.PP
The full text of the license can be found in the
\&\s-1LICENSE\s0 file included with this module.