our $VERSION = '0.02';
+=head1 WARNING
+
+This module was an early experiment which turned out to be completely unpractical.
+Therefore its use is officially B<deprecated>.
+Please don't use it, and don't hesitate to contact me if you want to reuse the namespace.
+
=head1 SYNOPSIS
package Deuce;
: exists $core{$1} ? corewrap $1, $2
: subwrap $1, $2, prototype($caller.'::'.$1)
/sexg;
- s/\Q$;\E(\C{4})\Q$;\E/${$components[unpack('N',$1)]}/g;
+ s/\Q$;\E([\x00-\xff]{4})\Q$;\E/${$components[unpack('N',$1)]}/g;
$_ .= $lastline if defined $lastline;
return $count;
}
=head1 COPYRIGHT & LICENSE
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008,2017 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.