package DumpPkgs;

use Filter::Util::Call;

sub import {
  my( $type ) = @_;
  filter_add( bless { } );
}

sub filter {
  my $self = shift;
  my $status;

  if( ($status = filter_read()) > 0 ) {
     print "Used $1\n" while /use\s+(\S+)/g
  }

  $status;
}
1;