[p5sagit/Devel-Declare.git] / t / combi.t

use strict;
use warnings;
use Test::More;

sub method :lvalue {my $sv;}

sub handle_method {
  my ($usepack, $use, $inpack, $name, $proto) = @_;
  my $H = sub (&) { };
  if (defined $proto) {
    return (sub :lvalue {my $sv;}, $H);
  }
  return ($H);
}

use Devel::Declare;
use Devel::Declare method => [ DECLARE_NAME|DECLARE_PROTO, \&handle_method ];

method blah {

};

method () {

};

method wahey () {

};

ok(1, "Survived compilation");

done_testing;
Commit	Line	Data
1eaa87ec	1	use strict;
1eaa87ec	2	use warnings;
b52072dc	3	use Test::More;
1eaa87ec	4
	5	sub method :lvalue {my $sv;}
	6
	7	sub handle_method {
	8	my ($usepack, $use, $inpack, $name, $proto) = @_;
	9	my $H = sub (&) { };
	10	if (defined $proto) {
	11	return (sub :lvalue {my $sv;}, $H);
	12	}
	13	return ($H);
	14	}
	15
	16	use Devel::Declare;
	17	use Devel::Declare method => [ DECLARE_NAME\|DECLARE_PROTO, \&handle_method ];
	18
	19	method blah {
	20
	21	};
	22
	23	method () {
	24
	25	};
	26
	27	method wahey () {
	28
	29	};
	30
	31	ok(1, "Survived compilation");
b52072dc	32
b52072dc	33	done_testing;