use Test::More tests => 5;

##</code><code>##

  package sample;
  our $value = 0;
  use strict;
  use Exporter;
  use vars qw(@ISA @EXPORT);
  @ISA = qw(Exporter);
  @EXPORT = qw(sub1);

  sub import {
    my @imports;
    while (my $arg = shift) {
      if ($arg eq 'value') {
        $value = shift;
        next;
      }
      push @imports, $arg;
    }
    sample->export_to_level (1, @imports);
  }

  sub sub1 () {$value + 1}
  1;

##</code><code>##

  #! /usr/bin/perl -w
  use strict;
  use sample value => 5;

  print sub1() , "\n";