#!/usr/bin/perl -w
 
package CountEntries;
use strict;
 
use lib  qw( extlib lib );
use base qw( MT::Tool );
 
sub help { q{} }
sub usage { q{} }
 
sub main {
    my $class = shift;
    my ($verbose) = $class->SUPER::main(@_);
 
    print count(MT->model('entry'), {}, {}), "\n";
}
 
sub count {
    my ($class, $terms, $args) = @_;
    my $driver = $class->driver;
    my $stmt = $driver->prepare_statement($class, $terms, $args);
 
    # Replace what search() would select with a COUNT(*).
    $stmt->select([]);
    $stmt->select_map({});
    $stmt->select_map_reverse({});
    $stmt->add_select('COUNT(*)');
 
    return $driver->select_one( $stmt->as_sql() );
}
 
__PACKAGE__->main() unless caller;
 
1;