=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtype-tiny-perl-1.012000/Changes-966- - Added: Type::Params' `multisig` function now sets a variable libtype-tiny-perl-1.012000/Changes:967: `${^TYPE_PARAMS_MULTISIG}` to indicate which signature succeeded. libtype-tiny-perl-1.012000/Changes-968- - Optimization of Type::Params positional parameter checking for simple ############################################## libtype-tiny-perl-1.012000/Changes-1549- - Fix Type::Tiny::Duck's inlining of code when given the variable name libtype-tiny-perl-1.012000/Changes:1550: `$_`. libtype-tiny-perl-1.012000/Changes-1551- Fixes RT#94196. ############################################## libtype-tiny-perl-1.012000/Changes-2557- [ Bug Fixes ] libtype-tiny-perl-1.012000/Changes:2558: - Overloading of `$type eq $type` now works in Perl 5.8. libtype-tiny-perl-1.012000/Changes-2559- Fixes RT#85895. ############################################## libtype-tiny-perl-1.012000/Makefile.PL-3- libtype-tiny-perl-1.012000/Makefile.PL:4:my $EUMM = eval( $ExtUtils::MakeMaker::VERSION ); libtype-tiny-perl-1.012000/Makefile.PL-5- ############################################## libtype-tiny-perl-1.012000/Makefile.PL-232- eval "require $module" or next; libtype-tiny-perl-1.012000/Makefile.PL:233: my $installed = eval(sprintf('$%s::VERSION', $module)); libtype-tiny-perl-1.012000/Makefile.PL-234- $conflicts->accepts_module($module, $installed) or next; ############################################## libtype-tiny-perl-1.012000/doap.ttl-1204- a doap-changeset:Bugfix; libtype-tiny-perl-1.012000/doap.ttl:1205: rdfs:label "Overloading of `$type eq $type` now works in Perl 5.8."; libtype-tiny-perl-1.012000/doap.ttl-1206- doap-changeset:fixes <http://purl.org/NET/cpan-uri/rt/ticket/85895>; ############################################## libtype-tiny-perl-1.012000/doap.ttl-1561- a doap-changeset:Change; libtype-tiny-perl-1.012000/doap.ttl:1562: rdfs:label "Types::Standard::to_TypeTiny now accepts unblessed coderefs and converts them to type constraints. This allows things like `Int & sub { $_ < 10 }` to work."; libtype-tiny-perl-1.012000/doap.ttl-1563- ], [ ############################################## libtype-tiny-perl-1.012000/doap.ttl-3119- a doap-changeset:Bugfix; libtype-tiny-perl-1.012000/doap.ttl:3120: rdfs:label "Fix Type::Tiny::Duck's inlining of code when given the variable name `$_`."; libtype-tiny-perl-1.012000/doap.ttl-3121- doap-changeset:fixes <http://purl.org/NET/cpan-uri/rt/ticket/94196>; ############################################## libtype-tiny-perl-1.012000/doap.ttl-4182- a doap-changeset:Addition; libtype-tiny-perl-1.012000/doap.ttl:4183: rdfs:label "Type::Params' `multisig` function now sets a variable `${^TYPE_PARAMS_MULTISIG}` to indicate which signature succeeded."; libtype-tiny-perl-1.012000/doap.ttl-4184- ], [ ############################################## libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-47- my $test = path($file); libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:48: say "[] a :Test; :test_script f`${\ $test->relative(PROJ_DIR) } ${\ PROJ_NAME }`; :purpose \"${\ podpurpose($test,1) }\"."; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-49- } ############################################## libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-68- { libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:69: say "m`$mod ${\ PROJ_NAME }`"; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-70- for my $test (sort @{ $mods{$mod} }) libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-71- { libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:72: say "\t:unit_test [ a :UnitTest; :test_script f`${\ $test->relative(PROJ_DIR) } ${\ PROJ_NAME }`; :purpose \"${\ podpurpose($test,1) }\" ];"; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-73- } ############################################## libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-84- my $test = path($file); libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:85: say "[] a :IntegrationTest; :test_script f`${\ $test->relative(PROJ_DIR) } ${\ PROJ_NAME }`; :purpose \"${\ podpurpose($test,1) }\"."; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-86- } ############################################## libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-101- } libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:102: say "[] a :RegressionTest; :test_script f`${\ $test->relative(PROJ_DIR) } ${\ PROJ_NAME }`; :purpose \"${\ podpurpose($test,1) }\"."; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-103- } ############################################## libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-109- { libtype-tiny-perl-1.012000/t/mk-test-manifest.pl:110: say "\t:regression_test [ a :RegressionTest; :test_script f`${\ $test->relative(PROJ_DIR) } ${\ PROJ_NAME }`; :purpose \"${\ podpurpose($test,1) }\"];"; libtype-tiny-perl-1.012000/t/mk-test-manifest.pl-111- } ############################################## libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-151-is( libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:152: refaddr($plain), libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:153: refaddr($paramd), libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-154- 'parameterizing with [] has no effect' ############################################## libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-158-my $p2 = ArrayRef[Types::Standard::Int]; libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:159:is(refaddr($p1), refaddr($p2), 'parameterizing is cached'); libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-160- ############################################## libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-216- libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:217: is( refaddr($orig), refaddr($coerced), "just returned orig unchanged" ); libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-218-}; ############################################## libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-223- libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:224: isnt( refaddr($orig), refaddr($coerced), "coercion happened" ); libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-225- is($coerced->[0], 42, "... and data looks good"); ############################################## libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-232- libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t:233: is( refaddr($orig), refaddr($coerced), "coercion failed, so orig was returned" ); libtype-tiny-perl-1.012000/t/21-types/ArrayRef.t-234- should_fail($coerced, $ArrayOfRounded); ############################################## libtype-tiny-perl-1.012000/t/21-types/HasMethods.t-122-is( libtype-tiny-perl-1.012000/t/21-types/HasMethods.t:123: refaddr($plain), libtype-tiny-perl-1.012000/t/21-types/HasMethods.t:124: refaddr($paramd), libtype-tiny-perl-1.012000/t/21-types/HasMethods.t-125- 'parameterizing with [] has no effect' ############################################## libtype-tiny-perl-1.012000/t/21-types/HasMethods.t-129-my $p2 = HasMethods['foo']; libtype-tiny-perl-1.012000/t/21-types/HasMethods.t:130:is(refaddr($p1), refaddr($p2), 'parameterizing is cached'); libtype-tiny-perl-1.012000/t/21-types/HasMethods.t-131- ############################################## libtype-tiny-perl-1.012000/t/21-types/HashRef.t-205- libtype-tiny-perl-1.012000/t/21-types/HashRef.t:206: is( refaddr($orig), refaddr($coerced), "just returned orig unchanged" ); libtype-tiny-perl-1.012000/t/21-types/HashRef.t-207-}; ############################################## libtype-tiny-perl-1.012000/t/21-types/HashRef.t-212- libtype-tiny-perl-1.012000/t/21-types/HashRef.t:213: isnt( refaddr($orig), refaddr($coerced), "coercion happened" ); libtype-tiny-perl-1.012000/t/21-types/HashRef.t-214- is($coerced->{foo}, 42, "... and data looks good"); ############################################## libtype-tiny-perl-1.012000/t/21-types/HashRef.t-221- libtype-tiny-perl-1.012000/t/21-types/HashRef.t:222: is( refaddr($orig), refaddr($coerced), "coercion failed, so orig was returned" ); libtype-tiny-perl-1.012000/t/21-types/HashRef.t-223- should_fail($coerced, $HashOfRounded); ############################################## libtype-tiny-perl-1.012000/t/21-types/LowerCaseSimpleStr.t-175-my $coerced = LowerCaseSimpleStr->coerce($arr); libtype-tiny-perl-1.012000/t/21-types/LowerCaseSimpleStr.t:176:is(refaddr($coerced), refaddr($arr), 'does not coerce non-strings'); libtype-tiny-perl-1.012000/t/21-types/LowerCaseSimpleStr.t-177- ############################################## libtype-tiny-perl-1.012000/t/21-types/LowerCaseStr.t-160-my $coerced = LowerCaseStr->coerce($arr); libtype-tiny-perl-1.012000/t/21-types/LowerCaseStr.t:161:is(refaddr($coerced), refaddr($arr), 'does not coerce non-strings'); libtype-tiny-perl-1.012000/t/21-types/LowerCaseStr.t-162- ############################################## libtype-tiny-perl-1.012000/t/21-types/Map.t-225- libtype-tiny-perl-1.012000/t/21-types/Map.t:226: is( refaddr($orig), refaddr($coerced), "just returned orig unchanged" ); libtype-tiny-perl-1.012000/t/21-types/Map.t-227-}; ############################################## libtype-tiny-perl-1.012000/t/21-types/Map.t-232- libtype-tiny-perl-1.012000/t/21-types/Map.t:233: isnt( refaddr($orig), refaddr($coerced), "coercion happened" ); libtype-tiny-perl-1.012000/t/21-types/Map.t-234- is($coerced->{3}, 4, "... and data looks good"); ############################################## libtype-tiny-perl-1.012000/t/21-types/Map.t-241- libtype-tiny-perl-1.012000/t/21-types/Map.t:242: is( refaddr($orig), refaddr($coerced), "coercion failed, so orig was returned" ); libtype-tiny-perl-1.012000/t/21-types/Map.t-243- should_fail($coerced, $HashOfRounded); ############################################## libtype-tiny-perl-1.012000/t/21-types/ScalarRef.t-123-is( libtype-tiny-perl-1.012000/t/21-types/ScalarRef.t:124: refaddr($plain), libtype-tiny-perl-1.012000/t/21-types/ScalarRef.t:125: refaddr($paramd), libtype-tiny-perl-1.012000/t/21-types/ScalarRef.t-126- 'parameterizing with [] has no effect' ############################################## libtype-tiny-perl-1.012000/t/21-types/UpperCaseSimpleStr.t-175-my $coerced = UpperCaseSimpleStr->coerce($arr); libtype-tiny-perl-1.012000/t/21-types/UpperCaseSimpleStr.t:176:is(refaddr($coerced), refaddr($arr), 'does not coerce non-strings'); libtype-tiny-perl-1.012000/t/21-types/UpperCaseSimpleStr.t-177- ############################################## libtype-tiny-perl-1.012000/t/21-types/UpperCaseStr.t-160-my $coerced = UpperCaseStr->coerce($arr); libtype-tiny-perl-1.012000/t/21-types/UpperCaseStr.t:161:is(refaddr($coerced), refaddr($arr), 'does not coerce non-strings'); libtype-tiny-perl-1.012000/t/21-types/UpperCaseStr.t-162- ############################################## libtype-tiny-perl-1.012000/t/40-regression/ttxs-gh1.t-35- as Str, libtype-tiny-perl-1.012000/t/40-regression/ttxs-gh1.t:36: where { $_ =~ /^[A-Za-z:]+$/ }, libtype-tiny-perl-1.012000/t/40-regression/ttxs-gh1.t-37-# inline_as { undef, "$_ =~ /^[A-Za-z:]+\$/" }, ############################################## libtype-tiny-perl-1.012000/t/20-unit/Error-TypeTiny-Assertion/basic.t-45- libtype-tiny-perl-1.012000/t/20-unit/Error-TypeTiny-Assertion/basic.t:46:is(refaddr($e), refaddr($Error::TypeTiny::LastError), '$Error::TypeTiny::LastError'); libtype-tiny-perl-1.012000/t/20-unit/Error-TypeTiny-Assertion/basic.t-47- ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t-47-is( libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t:48: refaddr($type->coercion->moose_coercion), libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t:49: refaddr($orig->coercion), libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t-50-); ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t-52-is( libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t:53: refaddr($type->moose_type->coercion), libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t:54: refaddr($orig->coercion), libtype-tiny-perl-1.012000/t/20-unit/Type-Coercion-FromMoose/errors.t-55-); ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Library/import-params.t-69-use MyTypes Ref => { libtype-tiny-perl-1.012000/t/20-unit/Type-Library/import-params.t:70: where => sub { ref $_[0] eq 'ARRAY' or ref $_[0] eq 'HASH' }, libtype-tiny-perl-1.012000/t/20-unit/Type-Library/import-params.t-71- -as => 'ContainerRef', ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t-74-is( libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t:75: refaddr( [$chk2->($arr)]->[0] ), libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t:76: refaddr($arr), libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t-77- 'if value passes type constraint; no need to clone arrayref' ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t-80-isnt( libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t:81: refaddr( [$chk2->($arr2)]->[0] ), libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t:82: refaddr($arr2), libtype-tiny-perl-1.012000/t/20-unit/Type-Params/coerce.t-83- 'if value fails type constraint; need to clone arrayref' ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Parser/basic.t-35-{ libtype-tiny-perl-1.012000/t/20-unit/Type-Parser/basic.t:36: my ($a, $b) = map { ref($_) ? $_ : _std_eval($_) } @_[0, 1]; libtype-tiny-perl-1.012000/t/20-unit/Type-Parser/basic.t-37- my ($A, $B) = map { $_->inline_check('$X') } ($a, $b); ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Registry/methods.t-37- ? $_ libtype-tiny-perl-1.012000/t/20-unit/Type-Registry/methods.t:38: : do { require Type::Parser; Type::Parser::_std_eval($_) } libtype-tiny-perl-1.012000/t/20-unit/Type-Registry/methods.t-39- } @_[0, 1]; ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny/esoteric.t-43-ok( libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny/esoteric.t:44: eval("my \$foo = 42; $check") && !eval("my \$foo = 4.2; $check"), libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny/esoteric.t-45- '$type->_inline_check', ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny-Enum/basic.t-64-is( libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny-Enum/basic.t:65: refaddr(FBB->compiled_check), libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny-Enum/basic.t:66: refaddr(enum(FBB2 => [qw/foo foo foo bar baz/])->compiled_check), libtype-tiny-perl-1.012000/t/20-unit/Type-Tiny-Enum/basic.t-67- "don't create duplicate coderefs", ############################################## libtype-tiny-perl-1.012000/t/20-unit/Type-Utils/dwim-both.t-37- use Mouse::Util::TypeConstraints qw(:all); libtype-tiny-perl-1.012000/t/20-unit/Type-Utils/dwim-both.t:38: subtype "FortyFive", as "Int", where { $_ == 40 or $_ == 5 }; libtype-tiny-perl-1.012000/t/20-unit/Type-Utils/dwim-both.t-39-} ############################################## libtype-tiny-perl-1.012000/t/30-integration/Exporter-Tiny/role-conflict.t-60-use Scalar::Util "refaddr"; libtype-tiny-perl-1.012000/t/30-integration/Exporter-Tiny/role-conflict.t:61:note refaddr(\&Local::Role1::Str); libtype-tiny-perl-1.012000/t/30-integration/Exporter-Tiny/role-conflict.t:62:note refaddr(\&Local::Role2::Str); libtype-tiny-perl-1.012000/t/30-integration/Exporter-Tiny/role-conflict.t-63- ############################################## libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t-108- libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t:109: ::is(refaddr($type->moose_type), refaddr($orig), '... refaddr matches'); libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t:110: ::is(refaddr($type->coercion->moose_coercion), refaddr($orig->coercion), '... coercion refaddr matches'); libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t-111- ############################################## libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t-297-is( libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t:298: Scalar::Util::refaddr( $intersect->Types::TypeTiny::to_TypeTiny ), libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t:299: Scalar::Util::refaddr( $intersect->Types::TypeTiny::to_TypeTiny->moose_type->Types::TypeTiny::to_TypeTiny->moose_type->Types::TypeTiny::to_TypeTiny ), libtype-tiny-perl-1.012000/t/30-integration/Moose/basic.t-300- 'round-tripping between ->moose_type and ->Types::TypeTiny::to_TypeTiny preserves reference address' ############################################## libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm-859- libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm:860: my( $eval_result, $eval_error ) = _eval( $code, \@imports ); libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm-861- my $ok = $tb->ok( $eval_result, "use $module;" ); ############################################## libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm-919- libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm:920: my( $eval_result, $eval_error ) = _eval($code); libtype-tiny-perl-1.012000/inc/archaic/Test/More.pm-921- my $ok = $tb->ok( $eval_result, "require $module;" ); ############################################## libtype-tiny-perl-1.012000/lib/Eval/TypeTiny.pm-120- libtype-tiny-perl-1.012000/lib/Eval/TypeTiny.pm:121: my ($compiler, $e) = _clean_eval($source); libtype-tiny-perl-1.012000/lib/Eval/TypeTiny.pm-122- if ($e) { ############################################## libtype-tiny-perl-1.012000/lib/Type/Coercion.pm-76-sub _stringify_no_magic { libtype-tiny-perl-1.012000/lib/Type/Coercion.pm:77: sprintf('%s=%s(0x%08x)', blessed($_[0]), Scalar::Util::reftype($_[0]), Scalar::Util::refaddr($_[0])); libtype-tiny-perl-1.012000/lib/Type/Coercion.pm-78-} ############################################## libtype-tiny-perl-1.012000/lib/Type/Library.pm-35- if not defined $subname; libtype-tiny-perl-1.012000/lib/Type/Library.pm:36: !$already{refaddr($_[1])}++ and return($subname->(@_)) libtype-tiny-perl-1.012000/lib/Type/Library.pm-37- if $subname; ############################################## libtype-tiny-perl-1.012000/lib/Type/Params.pm-810- Types::TypeTiny::is_TypeTiny($_) ? sprintf('TYPE=%s', $_->{uniq}) : libtype-tiny-perl-1.012000/lib/Type/Params.pm:811: Types::Standard::is_Ref($_) ? sprintf('REF=%s', refaddr($_)) : libtype-tiny-perl-1.012000/lib/Type/Params.pm-812- Types::Standard::is_Undef($_) ? sprintf('UNDEF') : ############################################## libtype-tiny-perl-1.012000/lib/Type/Parser.pm-126- { libtype-tiny-perl-1.012000/lib/Type/Parser.pm:127: return eval($node->{token}->spelling); #ARGH libtype-tiny-perl-1.012000/lib/Type/Parser.pm-128- } ############################################## libtype-tiny-perl-1.012000/lib/Type/Registry.pm-30- my $reg = $class->for_class( libtype-tiny-perl-1.012000/lib/Type/Registry.pm:31: ref($caller) ? sprintf('HASH(0x%08X)', refaddr($caller)) : $caller libtype-tiny-perl-1.012000/lib/Type/Registry.pm-32- ); ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-351-sub _stringify_no_magic { libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:352: sprintf('%s=%s(0x%08x)', blessed($_[0]), Scalar::Util::reftype($_[0]), Scalar::Util::refaddr($_[0])); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-353-} ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-558- return CMP_EQUAL libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:559: if Scalar::Util::refaddr($A) == Scalar::Util::refaddr($B); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-560- libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-561- return CMP_EQUIVALENT libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:562: if Scalar::Util::refaddr($A->compiled_check) == Scalar::Util::refaddr($B->compiled_check); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-563- ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-566- return CMP_EQUIVALENT libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:567: if Scalar::Util::refaddr($A_stem) == Scalar::Util::refaddr($B_stem); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-568- return CMP_EQUIVALENT libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:569: if Scalar::Util::refaddr($A_stem->compiled_check) == Scalar::Util::refaddr($B_stem->compiled_check); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-570- ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-579- return CMP_SUBTYPE libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:580: if Scalar::Util::refaddr($A_prime) == Scalar::Util::refaddr($B_stem); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-581- return CMP_SUBTYPE libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:582: if Scalar::Util::refaddr($A_prime->compiled_check) == Scalar::Util::refaddr($B_stem->compiled_check); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-583- if ($A_prime->can_be_inlined and $B_stem->can_be_inlined) { ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-594- return CMP_SUPERTYPE libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:595: if Scalar::Util::refaddr($B_prime) == Scalar::Util::refaddr($A_stem); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-596- return CMP_SUPERTYPE libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:597: if Scalar::Util::refaddr($B_prime->compiled_check) == Scalar::Util::refaddr($A_stem->compiled_check); libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-598- if ($A_stem->can_be_inlined and $B_prime->can_be_inlined) { ############################################## libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-1489-sub _compiled_type_coercion { shift->coercion->compiled_coercion(@_) }; libtype-tiny-perl-1.012000/lib/Type/Tiny.pm:1490:sub _identity { Scalar::Util::refaddr(shift) }; libtype-tiny-perl-1.012000/lib/Type/Tiny.pm-1491-sub _unite { require Type::Tiny::Union; "Type::Tiny::Union"->new(type_constraints => \@_) }; ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-443- libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:444: return $ttt_cache{ refaddr($t) } if $ttt_cache{ refaddr($t) }; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-445- ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-494- my $new = $tt_class->new(%$tt_opts); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:495: $ttt_cache{ refaddr($t) } = $new; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:496: weaken($ttt_cache{ refaddr($t) }); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-497- ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-637- libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:638: $ttt_cache{ refaddr($t) } = $new; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:639: weaken($ttt_cache{ refaddr($t) }); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-640- return $new; ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-662- my $new = "Type::Tiny"->new(%opts); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:663: $ttt_cache{ refaddr($t) } = $new; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:664: weaken($ttt_cache{ refaddr($t) }); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-665- return $new; ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-691- my $new = "Type::Tiny"->new(%opts); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:692: $ttt_cache{ refaddr($t) } = $new; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:693: weaken($ttt_cache{ refaddr($t) }); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-694- return $new; ############################################## libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-733- my $new = "Type::Tiny"->new(%opts); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:734: $ttt_cache{ refaddr($t) } = $new; libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm:735: weaken($ttt_cache{ refaddr($t) }); libtype-tiny-perl-1.012000/lib/Types/TypeTiny.pm-736- return $new;