[p5sagit/Devel-Declare.git] / t / multiline-proto.t

use strict;
use warnings;
use Test::More tests => 1;

sub fun :lvalue { return my $sv; }

sub handle_fun {
  my ($usepack, $use, $inpack, $name, $proto) = @_;
  my $XX = sub (&) {
    my $cr = $_[0];
    return sub {
      return join(': ', $proto, $cr->());
    };
  };
  return (undef, $XX);
}

use Devel::Declare;
use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ];

my $foo = fun ($a,
$b) { "woot" };

is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');
Commit	Line	Data
7e30ce83	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
f283a13f	24	is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');