test/lisp/progmodes/cperl-mode-resources/perl-class.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use 5.038;
use feature 'class';
no warnings 'experimental';

class A {
}

class C
  : isa(A)
{
  method with_sig_and_attr
    : lvalue
    ($top,$down)
  {
    return $top-$down;
  }
}

say "done!";