t/multiline-proto.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4
   5 sub fun :lvalue { return my $sv; }
   6
   7 sub handle_fun {
   8   my ($usepack, $use, $inpack, $name, $proto) = @_;
   9   my $XX = sub (&) {
  10     my $cr = $_[0];
  11     return sub {
  12       return join(': ', $proto, $cr->());
  13     };
  14   };
  15   return (undef, $XX);
  16 }
  17
  18 use Devel::Declare;
  19 use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ];
  20
  21 my $foo = fun ($a,
  22 $b) { "woot" };
  23
  24 is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');