X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=blobdiff_plain;f=README;h=4ff0b7457af8fa65ff32a2d99cffc861ec826120;hp=a9792c1a0a74566a0b3d68975bd2279805897033;hb=bddf69cf5d7e479af6e609e493f344c3b191e69a;hpb=812065270f1262b670f91bc7de80f67c583a123e diff --git a/README b/README index a9792c1..4ff0b74 100644 --- a/README +++ b/README @@ -2,16 +2,18 @@ NAME Sub::Prototype::Util - Prototype-related utility routines. VERSION - Version 0.06 + Version 0.07 SYNOPSIS - use Sub::Prototype::Util qw/flatten recall/; + use Sub::Prototype::Util qw/flatten recall wrap/; my @a = qw/a b c/; my @args = ( \@a, 1, { d => 2 }, undef, 3 ); my @flat = flatten '\@$;$', @args; # ('a', 'b', 'c', 1, { d => 2 }) recall 'CORE::push', @args; # @a contains 'a', 'b', 'c', 1, { d => 2 }, undef, 3 + my $splice = wrap 'CORE::splice', compile => 1; + my @b = $splice->(\@a, 4, 2); # @a is now ('a', 'b', 'c', 1, 3) and @b is ({ d => 2 }, undef) DESCRIPTION Prototypes are evil, but sometimes you just have to bear with them,