The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More 'tests' => 5;
use lib '../lib';

use_ok('UDCode');
*subtract = \*UDCode::subtract;

is(subtract("", "abb"), "abb");
is(subtract("a", "abb"), "bb");
is(subtract("ab", "abb"), "b");
is(subtract("abb", "abb"), "");