File Coverage

blib/lib/App/Ack/Filter/Inverse.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	8	37.5
pod	4	5	80.0
total	16	32	50.0

package App::Ack::Filter::Inverse;

=head1 NAME

App::Ack::Filter::Inverse

=head1 DESCRIPTION

The filter class that inverts another filter.

=cut


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

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

    return bless {
        filter => $filter,
    }, $class;
}

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

    return !$self->{filter}->filter( $file );
}

sub invert {
    my $self = shift;

    return $self->{'filter'};
}

sub is_inverted {
    return 1;
}

sub inspect {
    my ( $self ) = @_;

    my $filter = $self->{'filter'};

    return "!$filter";
}

1;