t/lib/overload_nomethod.t

   1 use warnings;
   2 use strict;
   3 use Test::Simple tests => 3;
   4
   5 package Foo;
   6 use overload
   7   nomethod => sub { die "unimplemented\n" };
   8 sub new { bless {}, shift };
   9
  10 package main;
  11
  12 my $foo = Foo->new;
  13
  14 eval {my $val = $foo + 1};
  15 ok( $@ =~ /unimplemented/, "'+'  not implemented; 'nomethod' special key invoked" );
  16
  17 eval {$foo += 1};
  18 ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
  19
  20 eval {my $val = 0; $val += $foo};
  21 ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
  22