1#! /usr/local/bin/perl -w
2
3use v5.6.0;
4use Demo;
5use base Demo;
6
7my $y :Demo :This($this) = sub :Demo(1,2,3) {};
8sub x :Demo(4, 5, 6) :Multi {}
9local %z :Demo('hash') :Multi(method,maybe);
10