use lib qw{blib/lib};
-use Sub::Prototype::Util qw/flatten recall/;
+use Sub::Prototype::Util qw/flatten recall wrap/;
my @a = qw/a b c/;
print "At the beginning, \@a contains :\n", Dumper(\@a);
recall 'CORE::push', @args; # @a contains 'a', 'b', 'c', 1, { d => 2 }, undef, 3
print "After recalling CORE::push with \@args, \@a contains :\n", Dumper(\@a);
+
+my $splice = wrap 'CORE::splice';
+my @b = $splice->(\@a, 4, 2);
+print "After calling wrapped splice with \@a, it contains :\n", Dumper(\@a);
+print "What was returned :\n", Dumper(\@b);