=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libclass-autouse-perl-2.01/lib/Class/Autouse.pm-652- eval { libclass-autouse-perl-2.01/lib/Class/Autouse.pm:653: CORE::require($file); libclass-autouse-perl-2.01/lib/Class/Autouse.pm-654- }; ############################################## libclass-autouse-perl-2.01/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libclass-autouse-perl-2.01/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libclass-autouse-perl-2.01/inc/Module/Install.pm-378-sub _read { ############################################## libclass-autouse-perl-2.01/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libclass-autouse-perl-2.01/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libclass-autouse-perl-2.01/inc/Module/Install.pm-416-sub _write { ############################################## libclass-autouse-perl-2.01/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libclass-autouse-perl-2.01/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libclass-autouse-perl-2.01/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libclass-autouse-perl-2.01/inc/Module/Install/Makefile.pm-45-sub makemaker { libclass-autouse-perl-2.01/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libclass-autouse-perl-2.01/inc/Module/Install/Makefile.pm-47-} ############################################## libclass-autouse-perl-2.01/t/02_main.t-40-my $class = 'D'; libclass-autouse-perl-2.01/t/02_main.t:41:ok( refaddr(*UNIVERSAL::can{CODE}), "We know which version of UNIVERSAL::can we are using" ); libclass-autouse-perl-2.01/t/02_main.t:42:is( refaddr(*UNIVERSAL::can{CODE}), refaddr($Class::Autouse::ORIGINAL_CAN), libclass-autouse-perl-2.01/t/02_main.t-43- "Before autoloading, UNIVERSAL::can is in it's original state, and has been backed up"); libclass-autouse-perl-2.01/t/02_main.t:44:is( refaddr(*UNIVERSAL::isa{CODE}), refaddr($Class::Autouse::ORIGINAL_ISA), libclass-autouse-perl-2.01/t/02_main.t-45- "Before autoloading, UNIVERSAL::isa is in it's original state, and has been backed up"); libclass-autouse-perl-2.01/t/02_main.t-46-ok( Class::Autouse->autouse( $class ), "Test class '$class' autoused ok" ); libclass-autouse-perl-2.01/t/02_main.t:47:is( refaddr(*UNIVERSAL::can{CODE}), refaddr(*Class::Autouse::_can{CODE}), libclass-autouse-perl-2.01/t/02_main.t-48- "After autoloading, UNIVERSAL::can has been correctly hijacked"); libclass-autouse-perl-2.01/t/02_main.t:49:is( refaddr(*UNIVERSAL::isa{CODE}), refaddr(*Class::Autouse::_isa{CODE}), libclass-autouse-perl-2.01/t/02_main.t-50- "After autoloading, UNIVERSAL::isa has been correctly hijacked"); ############################################## libclass-autouse-perl-2.01/t/02_main.t-52-ok( $Class::Autouse::LOADED{$class}, "'can' loaded class '$class' while looking for 'method2'" ); libclass-autouse-perl-2.01/t/02_main.t:53:is( refaddr(*UNIVERSAL::can{CODE}), refaddr($Class::Autouse::ORIGINAL_CAN), libclass-autouse-perl-2.01/t/02_main.t-54- "When all classes are loaded, UNIVERSAL::can reverts back to the original state"); libclass-autouse-perl-2.01/t/02_main.t:55:is( refaddr(*UNIVERSAL::isa{CODE}), refaddr($Class::Autouse::ORIGINAL_ISA), libclass-autouse-perl-2.01/t/02_main.t-56- "Whan all classes are loaded, UNIVERSAL::isa reverts back to the original state"); ############################################## libclass-autouse-perl-2.01/t/02_main.t-118-is( ref($coderef), 'CODE', 'Good existant ->can autoloads correctly and returns a CODE ref' ); libclass-autouse-perl-2.01/t/02_main.t:119:is( refaddr(&$coderef), refaddr(&G::foo), '->can returns the expected function' ); libclass-autouse-perl-2.01/t/02_main.t-120-is( H->can('foo'), undef, 'Good non-existant ->can autoloads correctly' ); ############################################## libclass-autouse-perl-2.01/.pc/fix-spelling-error-in-manpage.patch/lib/Class/Autouse.pm-652- eval { libclass-autouse-perl-2.01/.pc/fix-spelling-error-in-manpage.patch/lib/Class/Autouse.pm:653: CORE::require($file); libclass-autouse-perl-2.01/.pc/fix-spelling-error-in-manpage.patch/lib/Class/Autouse.pm-654- };