@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb012 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_chain.pl
#! /usr/local/bin/perl -w use Attribute::Handlers; sub Prefix : ATTR { my ($glob, $sub) = @_[1,2]; no warnings 'redefine'; *$glob = sub { print "This happens first\n"; $sub->(@_); }; } sub Postfix : ATTR { my ($glob, $sub) = @_[1,2]; no warnings 'redefine'; *$glob = sub { $sub->(@_); print "This happens last\n"; }; } sub test : Postfix Prefix { print "Hello World\n"; } test();