languages/pugs/pmc/pugsundef.pmc

   1 /*
   2 Copyright (C) 2001-2008, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 pugsundef.pmc - Pugs Undef
   8
   9 =head1 DESCRIPTION
  10
  11 C<PugsUndef> extends C<Exception> and C<Undef> to provide a Perl 6 C<Undef>.
  12
  13 =head2 Methods
  14
  15 =over 4
  16
  17 =cut
  18
  19 */
  20
  21 #include "parrot/embed.h"
  22
  23 pmclass PugsUndef extends PugsAny need_ext
  24     extends Exception
  25     extends Undef
  26     does string
  27     does boolean
  28     does integer
  29     does float
  30     dynpmc
  31     group pugs_group
  32     hll Perl6
  33     maps Exception
  34 {
  35 }
  36
  37 /*
  38
  39 =back
  40
  41 =cut
  42
  43 */
  44
  45 /*
  46  * Local variables:
  47  *   c-file-style: "parrot"
  48  * End:
  49  * vim: expandtab shiftwidth=4:
  50  */