Group
Extension

Matches 4

DBIx-MoCo ( J/JK/JKONDO/DBIx-MoCo-0.18.tar.gz, JKONDO, 2008; MetaCPAN )
DBIx-MoCo/t/16-instance-cache.t ( view source; MetaCPAN )
 many count');
    is ($c2+2, $cs->{has_many_icache_count}, 'icache count');
    sleep(2);
    isnt ($bs, $e->bookmarks, 'same instance');
    is ($c1+3, $cs->{has_many_count}, 'has many count');
s->{has_many_icache_count}, 'icache count');

    my $bs10 = $e->bookmarks(0,10);
    isnt ($bs, $bs10, 'isnt in offset cond');
    is ($c1+4, $cs->{has_many_count}, 'has many count');
    is ($c
 many count');
    is ($c2+4, $cs->{has_many_icache_count}, 'icache count');
    sleep(2);
    isnt ($bs10, $e->bookmarks(0,10), 'cache bs10');
    is ($c1+6, $cs->{has_many_count}, 'has many coun
DBIx-MoCo ( J/JK/JKONDO/DBIx-MoCo-0.18.tar.gz, JKONDO, 2008; MetaCPAN )
DBIx-MoCo/t/10-moco.t ( view source; MetaCPAN )
$bs3->size, 'same size');
    isnt $bs4, $bs;
    my $b = Blog::Bookmark->create(
        user_id => 2,
        entry_id => 3,
    );
    my $bs5 = $u->bookmarks;
    isnt $bs5, $bs;
    is $bs5->size
, $bs->size + 1;
    my $bs6 = $e->bookmarks;
    isnt $bs6, $bs3;
    is $bs6->size, $bs3->size + 1;
}

sub list_methods : Tests {
    my $es = Blog::User->retrieve(1)->entries;
    my $e = $es->pop;
DBIx-MoCo ( J/JK/JKONDO/DBIx-MoCo-0.18.tar.gz, JKONDO, 2008; MetaCPAN )
DBIx-MoCo/t/12-moco-session.t ( view source; MetaCPAN )
e, 'jkontan';
    isnt $u->name, $name;
    ok ($u->{to_be_updated});
    my ($u2) = Blog::User->search(where => {user_id => 1});
    ok $u2;
    is $u2->name, $name;
    isnt $u2->name, $u->nam
DBIx-MoCo ( J/JK/JKONDO/DBIx-MoCo-0.18.tar.gz, JKONDO, 2008; MetaCPAN )
DBIx-MoCo/t/19-with.t ( view source; MetaCPAN )
entry->bookmarks({ with => 'user' });

    my $cnt_before = $DBIx::MoCo::DataBase::SQL_COUNT;
    isnt $cnt_before, 0;
    ok $bookmarks->first->user;
    isa_ok $bookmarks->first->user, 'Blog::User';
{ with => [qw/user entry/] })->first;

    my $cnt_before = $DBIx::MoCo::DataBase::SQL_COUNT;
    isnt $cnt_before, 0;

    isa_ok $bookmark->user,  'Blog::User';
    isa_ok $bookmark->entry, 'Blog::E

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.