The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package App::Ack::Filter::Default;

=head1 NAME

App::Ack::Filter::Default

=head1 DESCRIPTION

The class that implements the filter that ack uses by
default if you don't specify any filters on the command line.

=cut

use strict;
use warnings;
use base 'App::Ack::Filter';

sub new {
    my ( $class ) = @_;

    return bless {}, $class;
}

sub filter {
    my ( $self, $resource ) = @_;

    return -T $resource->name;
}

1;