languages/perl6/src/classes/Num.pir

   1 ## $Id$
   2
   3 =head1 TITLE
   4
   5 Num - Perl 6 numbers
   6
   7 =head1 SUBROUTINES
   8
   9 =over 4
  10
  11 =item onload()
  12
  13 =cut
  14
  15 .namespace [ 'Num' ]
  16
  17 .sub 'onload' :anon :init :load
  18     .local pmc p6meta, numproto
  19     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
  20     numproto = p6meta.'new_class'('Num', 'parent'=>'Float Any')
  21     p6meta.'register'('Float', 'parent'=>numproto, 'protoobject'=>numproto)
  22 .end
  23
  24
  25 =item ACCEPTS()
  26
  27 =cut
  28
  29 .sub 'ACCEPTS' :method
  30     .param num topic
  31     .return 'infix:=='(topic, self)
  32 .end
  33
  34
  35 =item perl()
  36
  37 Returns a Perl representation of the Num.
  38
  39 =cut
  40
  41 .sub 'perl' :method
  42     $S0 = self
  43     .return($S0)
  44 .end
  45
  46
  47 =back
  48
  49 =cut
  50
  51 # Local Variables:
  52 #   mode: pir
  53 #   fill-column: 100
  54 # End:
  55 # vim: expandtab shiftwidth=4 ft=pir: