File: combi.t

package info (click to toggle)
libdevel-declare-perl 0.006000-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 296 kB
  • ctags: 238
  • sloc: perl: 1,605; ansic: 756; makefile: 25
file content (31 lines) | stat: -rw-r--r-- 453 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
use strict;
use warnings;
use Test::More 'no_plan';

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");