t/foreign/Method-Signatures/one_line.t

   1 #!perl
   2 use warnings FATAL => 'all';
   3 use strict;
   4 use Test::More tests => 1;
   5
   6 {
   7     package Thing;
   8
   9     use Function::Parameters qw(:strict);
  10     method foo {"wibble"}
  11
  12     ::is( Thing->foo, "wibble" );
  13 }