view release on metacpan or search on metacpan
lib/App/EvalServerAdvanced/Sandbox/Plugin/Perlbot.pm view on Meta::CPAN
$ret =~ s/\{//;
$ret =~ s/package (?:\w+(?:::)?)+;//;
$ret =~ s/no warnings;//;
$ret =~ s/\s+/ /g;
$ret =~ s/\s*\}\s*$//;
$ret =~ s/no feature ':all';//;
$ret =~ s/use feature [^;]+;//;
$ret =~ s/^\(\)//g;
$ret =~ s/^\s+|\s+$//g;
return $ret;
};
view release on metacpan or search on metacpan
script/_genpass-id view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_genpass-wordlist view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_chinese-zodiac-of view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_genpw-id view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_genpw-ind view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
- Use Rinci function metadata attribute cmdline.skip_format=>1 so
that pericmd-inline skips providing --format, --json, --naked-res
[RT#105641].
- Replace 'use 5.010' with 'use feature say' to avoid
Data::Dumper's Deparse feature producing 'no feature :all' which
is not supported by perl 5.14-.
- Use prepend: section to avoid clash in FUNCTIONS POD section.
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_metasyn view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_ppgrep view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
script/_reposdb-inline view on Meta::CPAN
#
#=item * when dumping code references
#
#For example, in perls earlier than 5.016, feature.pm does not understand:
#
# no feature ':all';
#
#so we replace it with:
#
# no feature;
#
view release on metacpan or search on metacpan
t/testdata/P522.pm view on Meta::CPAN
# SKIP ?$] < 5.010 && "say not implemented on this Perl version"
# say with use 5.10.0
use 5.10.0;
say 'foo';
>>>>
no feature ':all';
use feature ':5.10';
say 'foo';
####
# SKIP ?$] < 5.010 && "say not implemented on this Perl version"
# say with use feature ':5.10';
t/testdata/P522.pm view on Meta::CPAN
# CONTEXT use feature ':5.10';
# say with use 5.10.0 in the context of use feature
use 5.10.0;
say 'foo';
>>>>
no feature ':all';
use feature ':5.10';
say 'foo';
####
# SKIP ?$] < 5.010 && "say not implemented on this Perl version"
# CONTEXT use 5.10.0;
t/testdata/P522.pm view on Meta::CPAN
# SKIP ?$] < 5.015 && "__SUB__ not implemented on this Perl version"
# __SUB__ with use 5.15.0
use 5.15.0;
__SUB__;
>>>>
no feature ':all';
use feature ':5.16';
__SUB__;
####
# SKIP ?$] < 5.015 && "__SUB__ not implemented on this Perl version"
# __SUB__ with use feature ':5.15';
t/testdata/P522.pm view on Meta::CPAN
# CONTEXT use feature ':5.15';
# __SUB__ with use 5.15.0 in the context of use feature
use 5.15.0;
__SUB__;
>>>>
no feature ':all';
use feature ':5.16';
__SUB__;
####
# SKIP ?$] < 5.015 && "__SUB__ not implemented on this Perl version"
# CONTEXT use 5.15.0;
t/testdata/P522.pm view on Meta::CPAN
BEGIN { $^H{'reflags'} = '0';
$^H{'reflags_charset'} = '2'; }
print /a/d, s/b/c/d;
}
{
no feature ':all';
use feature ':5.12';
print /a/d, s/b/c/d;
}
####
# [perl #119807] s//\(3)/ge should not warn when deparsed (\3 warns)
t/testdata/P522.pm view on Meta::CPAN
}
}
CORE::evalbytes '';
() = CORE::__SUB__;
>>>>
no feature ':all';
use feature ':default';
CORE::say $_;
CORE::state $x;
CORE::given ($x) {
CORE::when (3) {
t/testdata/P522.pm view on Meta::CPAN
no feature 'unicode_strings';
print;
>>>>
use feature 'current_sub', 'evalbytes';
print $_;
no feature ':all';
use feature ':default';
print $_;
no feature ':all';
use feature ':5.12';
print $_;
no feature 'unicode_strings';
print $_;
####
view release on metacpan or search on metacpan
lib/Data/Dmp/Prune.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($OPT_REMOVE_PRAGMAS) {
$res_before_first_line = "{";
} elsif ($OPT_PERL_VERSION < 5.016) {
# older perls' feature.pm doesn't yet support q{no feature ':all';}
# so we replace it with q{no feature}.
$res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+//gm;
$res = "sub" . $res_before_first_line . $res_after_first_line;
$res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
lib/Data/Dmp.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($OPT_REMOVE_PRAGMAS) {
$res_before_first_line = "{";
} elsif ($OPT_PERL_VERSION < 5.016) {
# older perls' feature.pm doesn't yet support q{no feature ':all';}
# so we replace it with q{no feature}.
$res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+//gm;
$res = "sub" . $res_before_first_line . $res_after_first_line;
$res =~ s/^\s+//gm;
lib/Data/Dmp.pm view on Meta::CPAN
=item * when dumping code references
For example, in perls earlier than 5.016, feature.pm does not understand:
no feature ':all';
so we replace it with:
no feature;
view release on metacpan or search on metacpan
lib/Data/Dump/HTML/Collapsible.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($OPT_REMOVE_PRAGMAS) {
$res_before_first_line = "{";
} elsif ($OPT_PERL_VERSION < 5.016) {
# older perls' feature.pm doesn't yet support q{no feature ':all';}
# so we replace it with q{no feature}.
$res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+//gm;
$res = "sub" . $res_before_first_line . $res_after_first_line;
$res =~ s/^\s+//gm;
lib/Data/Dump/HTML/Collapsible.pm view on Meta::CPAN
=item * when dumping code references
For example, in perls earlier than 5.016, feature.pm does not understand:
no feature ':all';
so we replace it with:
no feature;
view release on metacpan or search on metacpan
lib/Data/Dump/HTML/PopUp.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($OPT_REMOVE_PRAGMAS) {
$res_before_first_line = "{";
} elsif ($OPT_PERL_VERSION < 5.016) {
# older perls' feature.pm doesn't yet support q{no feature ':all';}
# so we replace it with q{no feature}.
$res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+//gm;
$res = "sub" . $res_before_first_line . $res_after_first_line;
$res =~ s/^\s+//gm;
lib/Data/Dump/HTML/PopUp.pm view on Meta::CPAN
=item * when dumping code references
For example, in perls earlier than 5.016, feature.pm does not understand:
no feature ':all';
so we replace it with:
no feature;
view release on metacpan or search on metacpan
lib/Data/Dump/IfSmall.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($REMOVE_PRAGMAS) {
$res_before_first_line = "{\n";
#} elsif ($PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+\n//gm;
$res = "sub " . $res_before_first_line . $res_after_first_line;
view release on metacpan or search on metacpan
lib/Data/Dump/Options.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($REMOVE_PRAGMAS) {
$res_before_first_line = "{\n";
#} elsif ($PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+\n//gm;
$res = "sub " . $res_before_first_line . $res_after_first_line;
view release on metacpan or search on metacpan
lib/Data/Dump/Patch/Deparse.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($OPT_REMOVE_PRAGMAS) {
$res_before_first_line = "{ ";
} elsif ($OPT_PERL_VERSION < 5.016) {
# older perls' feature.pm doesn't yet support q{no feature ':all';}
# so we replace it with q{no feature}.
$res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+//gm;
$res = "sub " . $res_before_first_line . $res_after_first_line;
$res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
lib/Data/Dump/SkipObjects.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($REMOVE_PRAGMAS) {
$res_before_first_line = "{\n";
#} elsif ($PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+\n//gm;
$res = "sub " . $res_before_first_line . $res_after_first_line;
view release on metacpan or search on metacpan
lib/Data/Dump/SortKeys.pm view on Meta::CPAN
$res =~ /(.+?)^(#line .+)/ms;
if ($REMOVE_PRAGMAS) {
$res_before_first_line = "{\n";
#} elsif ($PERL_VERSION < 5.016) {
# # older perls' feature.pm doesn't yet support q{no feature ':all';}
# # so we replace it with q{no feature}.
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
}
$res_after_first_line =~ s/^#line .+\n//gm;
$res = "sub " . $res_before_first_line . $res_after_first_line;
view release on metacpan or search on metacpan
script/rsybak view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
lib/Klonk/pragma.pm view on Meta::CPAN
package Klonk::pragma 0.01;
use strict;
use warnings;
use warnings FATAL => qw(uninitialized);
use constant MIN_PERL_VERSION => '5.36';
no feature ':all';
use feature ':' . MIN_PERL_VERSION;
no feature qw(bareword_filehandles);
use Function::Parameters 2;
use Carp ();
view release on metacpan or search on metacpan
bin/_check-module-version view on Meta::CPAN
# $res =~ /(.+?)^(#line .+)/ms;
#
# if ($OPT_REMOVE_PRAGMAS) {
# $res_before_first_line = "{";
# } elsif ($OPT_PERL_VERSION < 5.016) {
# $res_before_first_line =~ s/no feature ':all';/no feature;/m;
# }
# $res_after_first_line =~ s/^#line .+//gm;
#
# $res = "sub" . $res_before_first_line . $res_after_first_line;
# $res =~ s/^\s+//gm;
view release on metacpan or search on metacpan
lib/Perlito5X/feature.pm view on Meta::CPAN
print "But not here.\n";
}
say "Yet it is here.";
C<no feature> with no features specified will reset to the default group. To
disable I<all> features (an unusual request!) use C<no feature ':all'>.
=head1 AVAILABLE FEATURES
=head2 The 'say' feature
lib/Perlito5X/feature.pm view on Meta::CPAN
use v5.10.0;
will do an implicit
no feature ':all';
use feature ':5.10';
and so on. Note how the trailing sub-version
is automatically stripped from the
version.
view release on metacpan or search on metacpan
lib/Sah/Schema/perl/filename.pm view on Meta::CPAN
"summary" => "Filename of Perl script/module/POD, e.g. /path/Foo/Bar.pm",
"x.completion" => sub {
package Sah::Schema::perl::filename;
use warnings;
use strict;
no feature ':all';
use feature ':5.10';
require Complete::File;
require Complete::Module;
require Complete::Util;
my(%args) = @_;
view release on metacpan or search on metacpan
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('2')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigFloat;
my $got = 'Math::BigFloat'->new($_);
'Math::BigFloat'->new('1.1')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigFloat;
my $got = 'Math::BigFloat'->new($_);
'Math::BigFloat'->new('2.1')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigFloat;
my $got = 'Math::BigFloat'->new($_);
'Math::BigFloat'->new('3.1')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('2')->beq($got);
},
t/toml-test/valid/array/array.t view on Meta::CPAN
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('3')->beq($got);
},