mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-12 14:18:32 +00:00
e6158cd2f8
Unlike Scalar::Util, Scalar::Util::PP::looks_like_number shifts @_, so calling it as &looks_like_number works differently in both versions; see https://rt.cpan.org/Public/Bug/Display.html?id=80525
29 lines
504 B
Perl
29 lines
504 B
Perl
BEGIN {
|
|
require Scalar::Util::PP;
|
|
*Scalar::Util:: = \*Scalar::Util::PP::;
|
|
$INC{"Scalar/Util.pm"} = __FILE__;
|
|
};
|
|
|
|
BEGIN {
|
|
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
|
|
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
|
|
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
|
|
};
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
{
|
|
package isa_subtest;
|
|
use Mo;
|
|
|
|
has attr => (
|
|
is => 'rw',
|
|
isa => 'Int',
|
|
);
|
|
|
|
1;
|
|
}
|
|
|
|
isa_subtest->new(attr => 100);
|