Acme-Addslashes

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

    * Make tests a bit more portable


0.1.2   2012-04-12

    [ FEATURE ]      
    * Now with extra long slashes, for even more protection!
      (Sam Kington)

    [ BUGFIX ]
    * Requires Perl 5.12 for the unicode_strings feature

    [ TESTS ]
    * Added additional tests, so more things get slashed up


0.1.1   2012-04-10

    [ DOCUMENTATION ]
    * UTF-8 encode the POD so people can actually get the joke.

MANIFEST  view on Meta::CPAN

CHANGES
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
lib/Acme/Addslashes.pm
t/001_basics.t
t/002_features.t

lib/Acme/Addslashes.pm  view on Meta::CPAN

    # R̸o̸b̸e̸r̸t̸'̸)̸;̸ ̸D̸R̸O̸P̸ ̸T̸A̸B̸L̸E̸ ̸S̸t̸u̸d̸e̸n̸t̸s̸;̸-̸-̸

    # If that's not enough slashes to be safe, I don't know what is

=cut

use v5.12;
use strict; # lolwut? strict??

use Encode qw(encode);
use feature qw(unicode_strings);
use parent "Exporter";

our @EXPORT_OK = qw(addslashes);

our $VERSION = '0.1.3';

=head1 FUNCTIONS

=head2 addslashes

t/001_basics.t  view on Meta::CPAN

use Test::More tests => 1;

use v5.12;
use strict;
use warnings;
use utf8;
use feature qw(unicode_strings);

use_ok 'Acme::Addslashes';

t/002_features.t  view on Meta::CPAN

use Test::More tests => 4;

use v5.12;
use strict;
use warnings;
use utf8;
use feature qw(unicode_strings);

use Acme::Addslashes qw(addslashes);
use Encode qw(decode);

ok(decode("utf8", addslashes q{Moose}) eq q{M̸o̸o̸s̸e̸}, 'Latin text slashed up');

ok(decode("utf8", addslashes qq{☃}) eq qq{☃̸}, 'Slashed up snowman');

ok(decode("utf8", addslashes qq{\x{1F4A9}}) eq qq{\x{1F4A9}\x{338}}, 'Slashed up Pile of Poo');