t/combi.t

   1 use strict;
   2 use warnings;
   3 use Test::More 0.88;
   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");
  32
  33 done_testing;