examples/tutorial/62_namespaces.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 Subroutines in a Namespace
   5
   6 Subroutines created in one namespace can be accessed from another
   7 using the C<get_global> opcode, just like global variables. In fact,
   8 since subroutines are really just PMCs, they are variables themselves
   9 and the two operations are actually the same.
  10
  11 Namespaces can be defined in code using the C<.namespace> directive,
  12 followed by the name of the namespace as a hash key. The default root
  13 namespace can be specified with an empty set of brackets such as
  14 C<.namespace []>.
  15
  16
  17 =cut
  18
  19 .sub main :main
  20
  21    $P0 = get_global ["Different"; "Namespace"], "foo"
  22
  23    $S0 = $P0("Zaphod")
  24    say $S0
  25
  26 .end
  27
  28 .namespace ["Different"; "Namespace"]
  29
  30 .sub foo
  31     .param string name
  32
  33     .local string greeting
  34     greeting = "Hello, " . name
  35
  36     .return (greeting)
  37 .end
  38
  39 # Local Variables:
  40 #   mode: pir
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir:
  44