t/method-installer-runtime.t

   1
   2 use strict;
   3
   4 use Test::More tests => 2;
   5
   6 use Devel::Declare::MethodInstaller::Simple;
   7
   8 # suppress warnings
   9 sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
  10
  11 BEGIN {
  12   Devel::Declare::MethodInstaller::Simple->install_methodhandler(
  13     name => 'method',
  14     into => 'main',
  15   );
  16 }
  17
  18 ok(!main->can('foo'), 'foo() not installed yet');
  19
  20 method foo { }
  21
  22 ok(main->can('foo'), 'foo() installed at runtime');
  23