v6/v6-KindaPerl6/t/kp6/29-signature.t

   1 my sub ab ($a,$b) {
   2     if ($a == $b) {
   3         say "ok";
   4     } else {
   5         say "not ok # "~$a~" != "~$b;;
   6     }
   7 };
   8
   9 say '1..2';
  10 say 'ok 1';
  11
  12 say '# Signature: ', &ab.signature;
  13 if (&ab.signature).arity == 2 {
  14     say "ok 2 arity";
  15 }
  16 else {
  17     say "not ok 2"
  18 }
  19
  20 =begin
  21
  22 =head1 AUTHORS
  23
  24 The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.
  25
  26 =head1 SEE ALSO
  27
  28 The Perl 6 homepage at L<http://dev.perl.org/perl6>.
  29
  30 The Pugs homepage at L<http://pugscode.org/>.
  31
  32 =head1 COPYRIGHT
  33
  34 Copyright 2007 by Flavio Soibelmann Glock and others.
  35
  36 This program is free software; you can redistribute it and/or modify it
  37 under the same terms as Perl itself.
  38
  39 See L<http://www.perl.com/perl/misc/Artistic.html>
  40
  41 =end
  42