home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / demo.pl < prev    next >
Perl Script  |  2003-11-07  |  584b  |  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.