package tests::MockAggregator;

use base qw/Lire::Aggregator/;

sub new {
    my $self = bless {}, shift;

    $self->SUPER::init( @_, 'op' => 'mock-aggregator' );

    my %params = @_;
    $self->{'name'} = $params{'name'}
      if defined $params{'name'};

    return $self;
}

sub name {
    return $_[0]{'name'} || 'mockAggregator';
}

sub create_categorical_info {
    my ( $self, $info ) = @_;

    $info->create_column_info( $self->name, 'categorical',
			       'string', 'All records' );
}

1;