t/lib/overload_nomethod.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan( tests => 3);
  10 use warnings;
  11 use strict;
  12
  13 package Foo;
  14 use overload
  15   nomethod => sub { die "unimplemented\n" };
  16 sub new { bless {}, shift };
  17
  18 package main;
  19
  20 my $foo = Foo->new;
  21
  22 eval {my $val = $foo + 1};
  23 ok( $@ =~ /unimplemented/, "'+'  not implemented; 'nomethod' special key invoked" );
  24
  25 eval {$foo += 1};
  26 ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
  27
  28 eval {my $val = 0; $val += $foo};
  29 ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
  30