t/method-installer-runtime.t

   1
   2 use strict;
   3
   4 use Test::More tests => 3;
   5
   6 use lib 'lib';
   7 use Devel::Declare::MethodInstaller::Simple;
   8
   9 # suppress warnings
  10 sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
  11
  12 BEGIN {
  13   Devel::Declare::MethodInstaller::Simple->install_methodhandler(
  14     name => 'method',
  15     into => 'main',
  16   );
  17 }
  18
  19 is eval { foo() } , undef;
  20 like $@, qr/subroutine &main::foo/;
  21
  22 method foo { 1 }
  23
  24 is foo(), 1;
  25