t/foreign/Method-Signatures/lib/BarfyDie.pm

   1 # For use with t/error_interruption.t
   2
   3 package BarfyDie;
   4
   5 use strict;
   6 use warnings;
   7
   8 use Function::Parameters qw(:strict);
   9
  10
  11 # This _should_ produce a simple error like the following:
  12 # Global symbol "$foo" requires explicit package name at t/lib/BarfyDie.pm line 13.
  13 $foo = 'hi!';
  14
  15
  16 method foo ($bar)
  17 {
  18 }
  19
  20
  21 1;