);
WriteMakefile(
- NAME => 'CtrlO::DBIC::Cursor::RowCountStatistics',
+ NAME => 'DBIx::Class::RowCountStatistics',
VERSION_FROM => 'lib/CtrlO/DBIC/Cursor/RowCountStatistics.pm',
LICENSE => undef,
TEST_REQUIRES => \%_test_req,
use strict;
use warnings;
-package CtrlO::DBIC::Cursor::RowCountStatistics;
+package DBIx::Class::RowCountStatistics;
use Class::Method::Modifiers;
-use CtrlO::DBIC::Cursor::RowCountStatistics::Storage;
+use DBIx::Class::RowCountStatistics::Storage;
use parent 'DBIx::Class::Storage::DBI::Cursor';
return $orig->(
$class,
- CtrlO::DBIC::Cursor::RowCountStatistics::Storage->new($storage),
+ DBIx::Class::RowCountStatistics::Storage->new($storage),
@rest,
);
};
=head1 NAME
-CtrlO::DBIC::Cursor::RowCountStatistics - Provide row-count statistics
+DBIx::Class::RowCountStatistics - Provide row-count statistics
=head1 SYNOPSIS
my $schema = Schema->connect(
$dsn, $username, $password,
{},
- { cursor_class => 'CtrlO::DBIC::Cursor::RowCountStatistics' },
+ { cursor_class => 'DBIx::Class::RowCountStatistics' },
);
=head1 DESCRIPTION
=head1 COPYRIGHT
-Copyright (c) 2015 the CtrlO::DBIC::Cursor::RowCountStatistics L</AUTHOR> and L</CONTRIBUTORS>
+Copyright (c) 2015 the DBIx::Class::RowCountStatistics L</AUTHOR> and L</CONTRIBUTORS>
as listed above.
=cut
use strict;
use warnings;
-package CtrlO::DBIC::Cursor::RowCountStatistics::Storage;
+package DBIx::Class::RowCountStatistics::Storage;
use Class::Method::Modifiers;
sub new {
unless eval { require DBD::SQLite };
use TestSchema;
-use CtrlO::DBIC::Cursor::RowCountStatistics;
+use DBIx::Class::RowCountStatistics;
our @_COMPLETE;
undef, undef,
{},
{
- cursor_class => 'CtrlO::DBIC::Cursor::RowCountStatistics',
+ cursor_class => 'DBIx::Class::RowCountStatistics',
}
);
$schema->deploy();
ok $schema, 'schema created';
is $schema->storage->cursor_class,
- 'CtrlO::DBIC::Cursor::RowCountStatistics',
+ 'DBIx::Class::RowCountStatistics',
'cursor_class set';
my $rs = $schema->resultset('Test');
$rs->create({ id => $_ }) for 1..10;
do {
my $rows = $rs->search_rs;
- is ref($rows->cursor), 'CtrlO::DBIC::Cursor::RowCountStatistics',
+ is ref($rows->cursor), 'DBIx::Class::RowCountStatistics',
'resultset cursor';
1 while $rows->next;
};
$rs->create({ id => $_ }) for 1..10;
do {
my $rows = $rs->search_rs;
- is ref($rows->cursor), 'CtrlO::DBIC::Cursor::RowCountStatistics',
+ is ref($rows->cursor), 'DBIx::Class::RowCountStatistics',
'resultset cursor';
my @all = $rows->all;
};