=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-91- #Also find methods inherited by the package libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm:92: my @isalist = eval( '@' . $mock_package . '::ISA'); libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-93- die('Could not eval @' . $mock_package .'::ISA') if $@; ############################################## libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-102- if(grep { m/^$method$/} keys %available_methods){ libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm:103: $args{$method} = eval( '\&' . $available_methods{$method}); libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-104- die("Error during fake module setup. " . $@) if($@); ############################################## libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-106- #Need to check if the method is inherited from a parent package libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm:107: $args{$method} = eval('sub{ die \'Test::MockDBI-ERROR : Unsupported method ' . $method . '\'; } '); libtest-mockdbi-perl-0.70/lib/Test/MockDBI.pm-108- } ############################################## libtest-mockdbi-perl-0.70/t/103-bad_method.t-45- my $retval = 1; libtest-mockdbi-perl-0.70/t/103-bad_method.t:46: eval('$retval = $dbh->' . $method . '();'); libtest-mockdbi-perl-0.70/t/103-bad_method.t-47- ok(!$retval, $method . ' failed successfully'); ############################################## libtest-mockdbi-perl-0.70/t/103-bad_method.t-54- #Executing bad methods libtest-mockdbi-perl-0.70/t/103-bad_method.t:55: is(eval('$dbh->' . $_ . '();'), undef, $_ . ' failed successfully') for(@methods); libtest-mockdbi-perl-0.70/t/103-bad_method.t-56- ############################################## libtest-mockdbi-perl-0.70/t/103-bad_method.t-59- my $retval = 1; libtest-mockdbi-perl-0.70/t/103-bad_method.t:60: eval('$retval = $dbh->' . $method . '();'); libtest-mockdbi-perl-0.70/t/103-bad_method.t-61- ok(!$retval, $method . ' failed successfully'); ############################################## libtest-mockdbi-perl-0.70/t/103-bad_method.t-84- my $retval = 1; libtest-mockdbi-perl-0.70/t/103-bad_method.t:85: eval('$retval = $sth->' . $method . '();'); libtest-mockdbi-perl-0.70/t/103-bad_method.t-86- ok(!$retval, $method . ' failed successfully'); ############################################## libtest-mockdbi-perl-0.70/t/103-bad_method.t-96- my $retval = 1; libtest-mockdbi-perl-0.70/t/103-bad_method.t:97: eval('$retval = $sth->' . $method . '();'); libtest-mockdbi-perl-0.70/t/103-bad_method.t-98- ok(!$retval, $method . ' failed successfully');