t/build_sub_installer.t

   1 use strict;
   2 use warnings;
   3 use Test::More 'no_plan';
   4
   5 use Devel::Declare ();
   6
   7 BEGIN {
   8   Devel::Declare->build_sub_installer('Foo', 'bar', '&')
   9                 ->(sub { $_[0]->("woot"); });
  10 }
  11
  12 my $args;
  13
  14 {
  15   package Foo;
  16
  17   bar { $args = join(', ', @_); };
  18 }
  19
  20 is($args, 'woot', 'sub installer worked');