examples/pasm/trace.pasm

   1 # Copyright (C) 2001-2003, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/pasm/trace.pasm - Tracing
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/pasm/trace.pasm
  11
  12 =head1 DESCRIPTION
  13
  14 Shows you what happens when you turn on tracing.
  15
  16 =cut
  17
  18 sweepoff
  19 print "Howdy!\n"
  20 trace 1
  21 print "There!\n"
  22 trace 0
  23 print "Partner!\n"
  24 end
  25
  26 # Local Variables:
  27 #   mode: pir
  28 #   fill-column: 100
  29 # End:
  30 # vim: expandtab shiftwidth=4 ft=pir: