===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libmoose-perl-2.2013/inc/Clean.pm-46- open STDERR, '>', $devnull;
libmoose-perl-2.2013/inc/Clean.pm:47: { exec("$^X Makefile.PL && $make distclean") }
libmoose-perl-2.2013/inc/Clean.pm-48- die "couldn't exec: $!";
##############################################
libmoose-perl-2.2013/inc/MMHelper.pm-21-
libmoose-perl-2.2013/inc/MMHelper.pm:22: return eval(ccflags_dyn($is_dev));
libmoose-perl-2.2013/inc/MMHelper.pm-23-}
##############################################
libmoose-perl-2.2013/t/basics/global_destruction.t-46- 'in_global_destruction state is passed to DEMOLISH properly (true)'
libmoose-perl-2.2013/t/basics/global_destruction.t:47:) for split //, `$^X t/basics/global-destruction-helper.pl`;
libmoose-perl-2.2013/t/basics/global_destruction.t-48-
##############################################
libmoose-perl-2.2013/t/type_constraints/util_type_constraints.t-59-
libmoose-perl-2.2013/t/type_constraints/util_type_constraints.t:60:my $negative2 = subtype Number => where { $_ < 0 } => message {"$_ is not a negative number"};
libmoose-perl-2.2013/t/type_constraints/util_type_constraints.t-61-
##############################################
libmoose-perl-2.2013/t/type_constraints/misc_type_tests.t-79- ok( $foo->equals($foo), "Foo equals Foo");
libmoose-perl-2.2013/t/type_constraints/misc_type_tests.t:80: ok( 0+$foo == refaddr($foo), "overloading works");
libmoose-perl-2.2013/t/type_constraints/misc_type_tests.t-81-}
##############################################
libmoose-perl-2.2013/t/native_traits/shallow_clone.t-36-
libmoose-perl-2.2013/t/native_traits/shallow_clone.t:37:isnt(refaddr($array), refaddr($array_clone), "array clone refers to new copy");
libmoose-perl-2.2013/t/native_traits/shallow_clone.t-38-is_deeply($array_clone, $array, "...but contents are the same");
libmoose-perl-2.2013/t/native_traits/shallow_clone.t:39:isnt(refaddr($hash), refaddr($hash_clone), "hash clone refers to new copy");
libmoose-perl-2.2013/t/native_traits/shallow_clone.t-40-is_deeply($hash_clone, $hash, "...but contents are the same");
##############################################
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-16- => as 'Str'
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t:17: => where { $_ =~ m{^[mf]$}s };
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-18-
##############################################
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-67-
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t:68: type 'bey2_color' => where { $_ =~ m{^(?:brown|blue)$} };
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-69-
##############################################
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-78-
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t:79: type 'gey_color' => where { $_ =~ m{^(?:green|blue)$} };
libmoose-perl-2.2013/t/recipes/basics_genome_overloadingsubtypesandcoercion.t-80-
##############################################
libmoose-perl-2.2013/TODO-448-
libmoose-perl-2.2013/TODO:449:fail() will just return false unless the call is made via `$tc->check_or_fail($value);`
libmoose-perl-2.2013/TODO-450-
##############################################
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl-21- released => sub {
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl:22: system( $^X, '-e', "require $module" ) == 0 or die;
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl-23- },
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl-24- blead => sub {
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl:25: system( $^X, @blib, '-e', "require $module" ) == 0 or die;
libmoose-perl-2.2013/benchmarks/cmop/loading-benchmark.pl-26- },
##############################################
libmoose-perl-2.2013/benchmarks/moose_bench.pl-45- eval {
libmoose-perl-2.2013/benchmarks/moose_bench.pl:46: system("(cd '$moose_dir' && '$^X' '-I$cmop_dir/lib' Makefile.PL && make && sudo make install) >/dev/null");
libmoose-perl-2.2013/benchmarks/moose_bench.pl-47-
##############################################
libmoose-perl-2.2013/benchmarks/moose_bench.pl-130- warn "Building $cmop_dir";
libmoose-perl-2.2013/benchmarks/moose_bench.pl:131: system("(cd '$cmop_dir' && '$^X' Makefile.PL && make && sudo make install) >/dev/null");
libmoose-perl-2.2013/benchmarks/moose_bench.pl-132-
##############################################
libmoose-perl-2.2013/benchmarks/lotsa-classes.pl-73- my $cmd = "time -p $^X -I$lib -MAll -e '1'";
libmoose-perl-2.2013/benchmarks/lotsa-classes.pl:74: `$cmd > /dev/null 2>&1`; # to cache
libmoose-perl-2.2013/benchmarks/lotsa-classes.pl-75-# print "$cmd\n";
libmoose-perl-2.2013/benchmarks/lotsa-classes.pl:76: system($cmd);
libmoose-perl-2.2013/benchmarks/lotsa-classes.pl-77- print "\n";
##############################################
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints.pm-410-sub as { +{ as => shift }, @_ }
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints.pm:411:sub where (&) { +{ where => $_[0] } }
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints.pm-412-sub message (&) { +{ message => $_[0] } }
##############################################
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm-69- => as 'Value'
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm:70: => where { ref(\$_) eq 'SCALAR' || ref(\(my $val = $_)) eq 'SCALAR' }
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm-71- => inline_as {
##############################################
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm-109- => as 'Num'
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm:110: => where { (my $val = $_) =~ /\A-?[0-9]+\z/ }
libmoose-perl-2.2013/lib/Moose/Util/TypeConstraints/Builtins.pm-111- => inline_as {
##############################################
libmoose-perl-2.2013/lib/Moose/Meta/TypeConstraint.pm-7-
libmoose-perl-2.2013/lib/Moose/Meta/TypeConstraint.pm:8:use overload '0+' => sub { refaddr(shift) }, # id an object
libmoose-perl-2.2013/lib/Moose/Meta/TypeConstraint.pm-9- '""' => sub { shift->name }, # stringify to tc name
##############################################
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-26- => as 'Str'
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod:27: => where { $_ =~ m{^[mf]$}s };
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-28-
##############################################
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-96-
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod:97: type 'bey2_color' => where { $_ =~ m{^(?:brown|blue)$} };
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-98-
##############################################
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-110-
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod:111: type 'gey_color' => where { $_ =~ m{^(?:green|blue)$} };
libmoose-perl-2.2013/lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod-112-
##############################################
libmoose-perl-2.2013/lib/Moose/Manual/Exceptions.pod-95- as 'Str',
libmoose-perl-2.2013/lib/Moose/Manual/Exceptions.pod:96: where { $_ =~ /^[a-zA-Z]+$/; };
libmoose-perl-2.2013/lib/Moose/Manual/Exceptions.pod-97-
##############################################
libmoose-perl-2.2013/lib/Class/MOP/Attribute.pm-619- 'object_identity' => (
libmoose-perl-2.2013/lib/Class/MOP/Attribute.pm:620: default => sub { Scalar::Util::refaddr( $_[0] ) },
libmoose-perl-2.2013/lib/Class/MOP/Attribute.pm-621- )
##############################################
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-68- return 1
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm:69: if refaddr($expected_method) == refaddr($actual_method);
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-70-
##############################################
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-74- if ( $inherited_method->_uninlined_body
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm:75: && refaddr( $inherited_method->_uninlined_body )
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm:76: == refaddr($expected_method) ) {
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-77- return 1;
##############################################
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-79- }
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm:80: elsif ( refaddr( $inherited_method->body )
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm:81: == refaddr($expected_method) ) {
libmoose-perl-2.2013/lib/Class/MOP/Method/Inlined.pm-82- return 1;
##############################################
libmoose-perl-2.2013/.pc/0001-Work-around-a-numification-problem-on-ia64.patch/lib/Moose/Meta/TypeConstraint.pm-7-
libmoose-perl-2.2013/.pc/0001-Work-around-a-numification-problem-on-ia64.patch/lib/Moose/Meta/TypeConstraint.pm:8:use overload '0+' => sub { refaddr(shift) }, # id an object
libmoose-perl-2.2013/.pc/0001-Work-around-a-numification-problem-on-ia64.patch/lib/Moose/Meta/TypeConstraint.pm-9- '""' => sub { shift->name }, # stringify to tc name