{
  my %SEEN;
  our @CARP_NOT;

  sub import
  {
    my $caller = caller;

    return if $SEEN{$caller};

    __PACKAGE__->export_to_level(1, @_);

    push @CARP_NOT, $caller;
  }
}