Acme-Addslashes

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

   "name" : "Acme-Addslashes",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "Exporter" : "5.65",
            "parent" : "0.224",
            "perl" : "v5.12.0"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.96"
         }
      }
   },
   "release_status" : "stable",

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300023, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Acme-Addslashes
requires:
  Exporter: 5.65
  parent: 0.224
  perl: v5.12.0
resources:
  bugtracker: https://github.com/LoonyPandora/Acme-Addslashes/issues
  homepage: https://github.com/LoonyPandora/Acme-Addslashes
  repository: https://github.com/LoonyPandora/Acme-Addslashes.git
version: 0.1.3

Makefile.PL  view on Meta::CPAN

  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "Acme-Addslashes",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Acme::Addslashes",
  "PREREQ_PM" => {
    "Exporter" => "5.65",
    "parent" => "0.224"
  },
  "VERSION" => "0.1.3",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};

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

    # 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

    my $totally_safe_string = addslashes("Robert'); DROP TABLE Students;--");