NAME

module:

E:\Fayland\chinese-perl-book\eg\DBIx-Class>perl create_sqlite_db.pl
use FindBin qw/$Bin/;
use DBIx::Class::Schema::Loader qw/ make_schema_at /;

my $dbname = "$Bin/db.sqlite";
make_schema_at(
    'TheSchwartz::Schema',
    { debug => 1, dump_directory => './lib' },
    [ "dbi:SQLite:dbname=$dbname" ],
);
#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 1;

use_ok('TheSchwartz::Schema');

1;
E:\Fayland\chinese-perl-book\eg\DBIx-Class>prove -l t/
t\00-load.t .. ok
All tests successful.
Files=1, Tests=1,  2 wallclock secs ( 0.05 usr +  0.02 sys =  0.06 CPU)
Result: PASS
#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 5;
use FindBin qw/$Bin/;
use TheSchwartz::Schema;

my $dbname = "$Bin/../db.sqlite";
my $schema = TheSchwartz::Schema->connect(
    "dbi:SQLite:dbname=$dbname", '', '', {
    RaiseError => 1,
    PrintError => 0,
} );
isa_ok($schema, 'TheSchwartz::Schema');

foreach ('Exitstatus', 'Job', 'Error', 'Funcmap') {
    isa_ok( $schema->resultset($_), 'DBIx::Class::ResultSet' );
}

1;
E:\Fayland\chinese-perl-book\eg\DBIx-Class>prove -l t/
t\00-load.t ... ok
t\01-basic.t .. ok
All tests successful.
Files=2, Tests=10,  1 wallclock secs ( 0.05 usr +  0.05 sys =  0.09 CPU)
Result: PASS
package TheSchwartz::Schema::ResultSet::Error;

use strict;
use warnings;
use base 'DBIx::Class::ResultSet';

sub failure_log {
    my ( $self, $jobid ) = @_;

    my $rs = $self->search( {
        jobid => $jobid
    }, {
        columns => ['message']
    } );

    my @failures;
    while (my $r = $rs->next) {
        push @failures, $r->message;
    }

    return @failures;
}

sub failures {
    return scalar shift->failure_log(@_);
}

1;
#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 5;
use FindBin qw/$Bin/;
use TheSchwartz::Schema;

my $dbname = "$Bin/../db.sqlite";
my $schema = TheSchwartz::Schema->connect(
    "dbi:SQLite:dbname=$dbname", '', '', {
    RaiseError => 1,
    PrintError => 0,
} );

my $dbh = $schema->storage->dbh;
# truncate the table so we can run the tests again and again
$dbh->do("DELETE FROM error");
# insert some faked data
my $sth = $dbh->prepare("INSERT INTO error (error_time, jobid, message, funcid) VALUES (?, ?, ?, ?)");
$sth->execute(time(), 1, 'Message A', 1);
$sth->execute(time(), 2, 'Message B', 1);
$sth->execute(time(), 2, 'Message C', 1);

# test failure_log/failures
my @failures = $schema->resultset('Error')->failure_log( 2 );
is scalar @failures, 2;
ok( grep { $_ eq 'Message B' } @failures );
ok( grep { $_ eq 'Message C' } @failures );

my $failure_num = $schema->resultset('Error')->failures( 1 );
is $failure_num, 1;
$failure_num = $schema->resultset('Error')->failures( 2 );
is $failure_num, 2;

# truncate the table so it wouldn't effect others
$dbh->do("DELETE FROM error");

1;
sub test {
    my ( $self, $args ) = @_;
    
    my $schema = $self->result_source->schema;
    my $dbh = $schema->storage->dbh;
    $schema->resultset('Job')->do_anything();
E:\Fayland\chinese-perl-book\eg\DBIx-Class>prove -l t/02-error.t
t/02-error.t .. ok
All tests successful.
Files=1, Tests=5,  1 wallclock secs ( 0.05 usr +  0.03 sys =  0.08 CPU)
Result: PASS
__PACKAGE__->load_components("Core");
__PACKAGE__->load_components(qw/
  Relationship
  InflateColumn
  PK::Auto
  PK
  Row
  ResultSourceProxy::Table/);
__PACKAGE__->load_components("Row", "ResultSourceProxy::Table");
sub insert {
  my $self = shift;
  # Do stuff with $self, like set default values.
  return $self->next::method( @_ );
}
resultset('Errors')->search( { cond => 'bla' } )->first;
resultset('Errors')->single( { cond => 'bla' } );
->single( { cond => 'bla' }, { order_by => 'rating' } ); # Wrong
->search( { cond => 'bla' }, { order_by => 'rating' } )->single; # Right
->search( { cond => 'bla' }, { rows => 1 } )->single; # Right
resultset('Errors')->search( { cond => 'bla' } )->slice(0);
resultset('XXX')->search( {
    requestor => 'inna',
    worker => ['nwiger', 'rcwe', 'sfz'],
    status => { '!=', 'completed' }
} );
# SQL:
# FROM xxx WHERE
#   ( requestor = ? ) AND ( status != ? )
#   AND ( worker = ? OR worker = ? OR worker = ? )

resultset('XXX')->search( {
    date_entered => { '>' => \["to_date(?, 'MM/DD/YYYY')", "11/26/2008"] },
    date_expires => { '<' => \"now()" }
} );
# SQL:
# FROM xxx WHERE
#   date_entered > "to_date(?, 'MM/DD/YYYY') AND date_expires < now()

resultset('XXX')->search( {
    -or => [
        -and => [a => 1, b => 2],
        -or  => [c => 3, d => 4],
        e    => [-and => {-like => 'foo%'}, {-like => '%bar'} ]
    ],
} );
# SQL:
# FROM xxx WHERE
#   ( (    ( a = ? AND b = ? ) 
#       OR ( c = ? OR d = ? ) 
#       OR ( e LIKE ? AND e LIKE ? ) ) )
$schema->resultset('user')->search( {
  user_id => { 'IN', [1, 2] },
  -or => [
    last_visit => { '>', time() - 86400 },
    last_update => { '>', time() - 86400 },
  ]
}, {
  columns => ['username'],
  rows    => 1,
} )->as_query;

[ '(SELECT me.username FROM user me 
   WHERE ( ( ( last_visit > ?
            OR last_update > ? )
      AND user_id IN ( ?, ? ) ) )
   LIMIT 1)',
  [ 'last_visit', 1242290843 ]
... ]
cpanm Book::Chinese::MasterPerlToday
perl -MCPAN -e shell
install Book::Chinese::MasterPerlToday

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

DESCRIPTION

声明

概念

例子

内部结构介绍

components 组件

FAQ

资源

小结

AUTHOR

COPYRIGHT & LICENSE

NAME

DESCRIPTION

声明

概念

例子

内部结构介绍

components 组件

FAQ

资源

小结

AUTHOR

COPYRIGHT & LICENSE

Module Install Instructions