package MyExport;
use warnings;
use strict;
use base 'Exporter::Simple';
our $VERSION = '1.3';
our @bar : Exportable(vars) = (2, 3, 5, 7);
our $foo : Exported(vars) = 42;
our %baz : Exported = (a => 65, b => 66);
sub hello : Exported(greet,uk) { "hello there" }
sub askme : Exportable { "what you will" }
sub hi : Exportable(greet,us) { "hi there" }
sub get_foo : Exported(vars) { $foo }
sub get_bar : Exportable(vars) { @bar }
1;