Project: Rakudo

Revision: 30828

Author: pmichaud

Date: 06 Sep 2008 14:25:09

• /trunk/languages/perl6/src/classes/Code.pir

  ......	@@ -37,20 +37,6 @@
  37	37	.return (match)
  38	38	.end
  39	39
  40		=item REJECTS(topic)
  41
  42		=cut
  43
  44		.sub 'REJECTS' :method
  45		.param pmc topic
  46		.local pmc match
  47		match = self(topic)
  48		if match goto matched
  49		.return (1)
  50		matched:
  51		.return (0)
  52		.end
  53
  54	40	=item perl()
  55	41
  56	42	Return a response to .perl.