=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtest-databaserow-perl-2.04/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libtest-databaserow-perl-2.04/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libtest-databaserow-perl-2.04/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libtest-databaserow-perl-2.04/inc/Module/Install/GithubMeta.pm-19- local $ENV{LANG}='C'; libtest-databaserow-perl-2.04/inc/Module/Install/GithubMeta.pm:20: return unless my ($git_url) = `git remote show -n $remote` =~ /URL: (.*)$/m; libtest-databaserow-perl-2.04/inc/Module/Install/GithubMeta.pm-21- return unless $git_url =~ /github\.com/; # Not a Github repository ############################################## libtest-databaserow-perl-2.04/inc/Module/Install/Makefile.pm-45-sub makemaker { libtest-databaserow-perl-2.04/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libtest-databaserow-perl-2.04/inc/Module/Install/Makefile.pm-47-} ############################################## libtest-databaserow-perl-2.04/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libtest-databaserow-perl-2.04/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libtest-databaserow-perl-2.04/inc/Module/Install.pm-378-sub _read { ############################################## libtest-databaserow-perl-2.04/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libtest-databaserow-perl-2.04/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libtest-databaserow-perl-2.04/inc/Module/Install.pm-416-sub _write { ############################################## libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-89-# has where => ( is => 'ro', isa => 'HashRef[HashRef]'. coerce => 1, predicate => "has_where"); libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm:90:sub where { my $self = shift; return $self->{where} } libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm:91:sub has_where { my $self = shift; return exists $self->{where} } libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-92-sub _coerce_and_verify_where { ############################################## libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-98- if (ref $where eq "ARRAY") { libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm:99: $where = { "=" => { @{ $where } } }; libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-100- } ############################################## libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-135- my @conditions; libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm:136: my $where = $self->where; libtest-databaserow-perl-2.04/lib/Test/DatabaseRow/Object.pm-137- foreach my $oper (sort keys %{$where}) { ############################################## libtest-databaserow-perl-2.04/t/01basic.t-87- table => "foo", libtest-databaserow-perl-2.04/t/01basic.t:88: where => $where libtest-databaserow-perl-2.04/t/01basic.t-89- ); ############################################## libtest-databaserow-perl-2.04/t/01basic.t-111- table => "foo", libtest-databaserow-perl-2.04/t/01basic.t:112: where => $where libtest-databaserow-perl-2.04/t/01basic.t-113- );