use Test::More tests => 1;
use Data::Bind;

Data::Bind->sub_signature
    (\&foo,
     { var => '$bar'},
     { var => '&code'});

use Scalar::Util qw(blessed);

sub foo {
  my ($bar);
  Data::Bind->arg_bind(\@_);
  no warnings 'uninitialized';
  return "$bar:".code();
}

my $out = foo([\'this is a test', \sub {"foo"}]);
is($out, 'this is a test:foo');