count-entries.pl

#!/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;