package Perl::Critic::Use;
use Filter::Util::Call;
use Perl::Critic;

sub import
{ filter_add(bless {}); }

sub filter
{
  my $status;

  if(($status = filter_read()) >0 )
  { print STDERR Perl::Critic->new()->critique($_); }

  return $status;
}

1;