File Coverage

blib/lib/Otogiri/Plugin/Count.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	1	0.0
total	34	35	97.1

package Otogiri::Plugin::Count;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Otogiri;
use Otogiri::Plugin;

our @EXPORT = qw(count);

sub count {
    my ($self, $table, $column, $where, $opt) = @_;

    if ( ref $column eq 'HASH' ) {
        $opt = $where;
        $where = $column;
        $column = '*';
    }

    $column ||= '*';

    my ($sql, @binds) = $self->maker->select($table, [\"COUNT($column)"], $where, $opt);

    my ($cnt) = $self->dbh->selectrow_array($sql, {}, @binds);
    return $cnt;
}

1;
__END__