home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _860ce0bd9e9b4fce4e65d83b4141a2e6 < prev    next >
Encoding:
Text File  |  2004-06-01  |  615 b   |  32 lines
  1. #! /usr/local/bin/perl -w
  2.  
  3. use v5.6.0;
  4. use base Demo;
  5.  
  6. my $y : Demo :This($this) = sub : Demo(1,2,3) {};
  7. sub x : Demo(4, 5, 6) :Multi {}
  8. my %z : Demo(hash) :Multi(method,maybe);
  9. # my %a : NDemo(hash);
  10.  
  11. {
  12.     package Named;
  13.  
  14.     use base Demo;
  15.  
  16.     sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
  17.  
  18.     my $y : Demo :This($this) = sub : Demo(1,2,3) {};
  19.     sub x : ExplMulti :Demo(4,5,6) {}
  20.     my %z : ExplMulti :Demo(hash);
  21.     my Named $q : Demo;
  22. }
  23.  
  24. package Other;
  25.  
  26. my Demo $dother : Demo :This($this) = "okay";
  27. my Named $nother : Demo :This($this) = "okay";
  28.  
  29. # my $unnamed : Demo;
  30.  
  31. # sub foo : Demo();
  32.