view release on metacpan or  search on metacpan

t/taint.t  view on Meta::CPAN

#!/usr/bin/perl -T
use strict;
use warnings;

use Config;
use Test::More $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/
    ? ( skip_all => 'No taint support' ) : ( tests => 2 );
use Module::Metadata;
use Carp 'croak';

# stolen liberally from Class-Tiny/t/lib/TestUtils.pm - thanks xdg!

 view release on metacpan or  search on metacpan

t/taint.t  view on Meta::CPAN

#!/usr/bin/perl -Tw

use strict;
use Config;
use Test::More $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/
    ? ( skip_all => 'No taint support' ) : ( tests => 2 );

use UNIVERSAL::require;

my $tainted = $0;

 view release on metacpan or  search on metacpan

cpan/Module-Metadata/t/taint.t  view on Meta::CPAN

#!/usr/bin/perl -T
use strict;
use warnings;

use Config;
use Test::More $Config{ccflags} =~ /-DSILENT_NO_TAINT_SUPPORT/
    ? ( skip_all => 'No taint support' ) : ( tests => 2 );
use Module::Metadata;
use Carp 'croak';

# stolen liberally from Class-Tiny/t/lib/TestUtils.pm - thanks xdg!