examples/streams/SubHello.pir

   1 # $Id$
   2
   3 =head1 Hello Example
   4
   5 This example shows the usage of C<Stream::Sub>.
   6
   7 =head1 FUNCTIONS
   8
   9 =over 4
  10
  11 =item _main
  12
  13 Creates a C<Stream::Sub> and dumps it.
  14
  15 =cut
  16
  17 .sub _main :main
  18     .local pmc stream
  19
  20     load_bytecode 'Stream/Sub.pbc'
  21
  22     stream = new ['Stream'; 'Sub']
  23
  24     # set the stream's source sub
  25     .const 'Sub' temp = "_hello"
  26     assign stream, temp
  27
  28     # dump the stream
  29     stream."dump"()
  30
  31     end
  32 .end
  33
  34 =item _hello
  35
  36 This sub is used as the source for the stream.
  37
  38 It just writes some text to the stream.
  39
  40 =cut
  41
  42 .sub _hello :method
  43     self."write"( "hello" )
  44     self."write"( "world!" )
  45     self."write"( "parrot" )
  46     self."write"( "is cool" )
  47 .end
  48
  49 =back
  50
  51 =head1 AUTHOR
  52
  53 Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
  54 and maintainer.
  55 Please send patches and suggestions to the Perl 6 Internals mailing list.
  56
  57 =head1 COPYRIGHT
  58
  59 Copyright (C) 2004-2009, Parrot Foundation.
  60
  61 =cut
  62
  63 # Local Variables:
  64 #   mode: pir
  65 #   fill-column: 100
  66 # End:
  67 # vim: expandtab shiftwidth=4 ft=pir: