Select Code to Download

use FindBin;
...

my ($itself) = grep { 0 <= index $0, $_ } $checker->dir->read;
ok $itself, 'test script found';

    has 'dir'  => ( is => 'ro', isa => 'IO::Dir', required => 1 );

...

        return $class->$orig(dir => 'IO::Dir'->new($args{dir}))
    }

#!/usr/bin/perl
use warnings;
...

my $itself = grep $0 =~ m{(?:^|/)\Q$_\E$}x, $checker->read_dir;
is $itself, 1, 'test script found';

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,