t/foreign/Method-Signatures-Simple/RT80508.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More tests => 1;
   5
   6 {
   7     package My::Obj;
   8     use Function::Parameters qw(:strict);
   9
  10     method with_space ( $this : $that ) {
  11         return ($this, $that);
  12     }
  13 }
  14
  15 is_deeply [ My::Obj->with_space (1) ], [ 'My::Obj', 1 ], 'space between invocant name and colon should parse';
  16
  17 __END__
  18