Merge branch 'master' into topic/constructor_rewrite
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / Role / QueryCounter.pm
diff --git a/lib/DBIx/Class/Storage/DBI/Role/QueryCounter.pm b/lib/DBIx/Class/Storage/DBI/Role/QueryCounter.pm
deleted file mode 100644 (file)
index 61d101d..0000000
+++ /dev/null
@@ -1,81 +0,0 @@
-package DBIx::Class::Storage::DBI::Role::QueryCounter;
-
-use Moose::Role;
-requires '_query_start';
-
-=head1 NAME
-
-DBIx::Class::Storage::DBI::Role::QueryCounter - Role to add a query counter
-
-=head1 SYNOPSIS
-
-    my $query_count = $schema->storage->query_count;
-
-=head1 DESCRIPTION
-
-Each time the schema does a query, increment the counter.
-
-=head1 ATTRIBUTES
-
-This package defines the following attributes.
-
-=head2 _query_count
-
-Is the attribute holding the current query count.  It defines a public reader
-called 'query_count' which you can use to access the total number of queries
-that DBIC has run since connection.
-
-=cut
-
-has '_query_count' => (
-  reader=>'query_count',
-  writer=>'_set_query_count',
-  isa=>'Int',
-  required=>1,
-  default=>0,
-);
-
-
-=head1 METHODS
-
-This module defines the following methods.
-
-=head2 _query_start
-
-Override on the method so that we count the queries.
-
-=cut
-
-around '_query_start' => sub {
-  my ($_query_start, $self, @args) = @_;
-  $self->_increment_query_count;
-  return $self->$_query_start(@args);
-};
-
-
-=head2 _increment_query_count
-
-Used internally.  You won't need this unless you enjoy messing with the query
-count.
-
-=cut
-
-sub _increment_query_count {
-  my $self = shift @_;
-  my $current = $self->query_count;
-  $self->_set_query_count(++$current);
-}
-
-
-=head1 AUTHORS
-
-See L<DBIx::Class> for more information regarding authors.
-
-=head1 LICENSE
-
-You may distribute this code under the same terms as Perl itself.
-
-=cut
-
-
-1;