| Subject: | sub's prototype is not exported |
Here is test to check if prototype (like ($@)) is correctly exported.
Currently it fails.
--
Alexandr Ciornii, http://chorny.net
| Subject: | MyExport.pm |
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 }
sub proto($) : Exportable(proto) { @bar }
1;
| Subject: | 05proto.t |
#!/usr/bin/perl
use warnings;
use strict;
use lib 't/testlib';
use Test::More tests => 1;
use MyExport qw/:proto/;
eval " proto('ert','wert'); ";
ok ($@=~/Too many arguments/i);