@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb011 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
usr
/
local
/
lib
/
perl5
/
5.8.7
/
Attribute
/
Handlers
/
demo
/
Path :
Upload File :
New :
File
Dir
//usr/local/lib/perl5/5.8.7/Attribute/Handlers/demo/demo.pl
#! /usr/local/bin/perl -w use v5.6.0; use base Demo; my $y : Demo :This($this) = sub : Demo(1,2,3) {}; sub x : Demo(4, 5, 6) :Multi {} my %z : Demo(hash) :Multi(method,maybe); # my %a : NDemo(hash); { package Named; use base Demo; sub Demo :ATTR(SCALAR) { print STDERR "tada\n" } my $y : Demo :This($this) = sub : Demo(1,2,3) {}; sub x : ExplMulti :Demo(4,5,6) {} my %z : ExplMulti :Demo(hash); my Named $q : Demo; } package Other; my Demo $dother : Demo :This($this) = "okay"; my Named $nother : Demo :This($this) = "okay"; # my $unnamed : Demo; # sub foo : Demo();