package Perl::Analysis::Static::Filter;

=head2 NAME

Perl::Analysis::Static::Filter --

=head2 DESCRIPTION

=cut

use Moose;
use Carp;
use English qw( -no_match_vars );    # Avoids regex performance penalty

=head2 set_arguments ($arguments)

=cut

sub set_arguments {
    my ($self, $arguments)=@_;

	my @args=split(/:/, $arguments);
	$self->_set_arguments(\@args);
}

=head2 filter ($elements)


=cut

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

	my @e = grep { $self->_filter($_) } @$elements;
	return unless @e;
	return \@e;
}

sub _filter {
	my ( $self, $element ) = @_;
	die 'implement me';
}

sub _set_arguments {
	my ( $self, $arguments) = @_;
	die 'implement me';
}

1;