=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libpegex-perl-0.75/xt/test-pegex-repos.t-134- my $output = capture_merged { libpegex-perl-0.75/xt/test-pegex-repos.t:135: $error = system($cmd); libpegex-perl-0.75/xt/test-pegex-repos.t-136- }; ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-160- for my $v (@$signature) { libpegex-perl-0.75/inc/lib/TestML/Run.pm:161: $self->{vars}{$v} = $self->exec($args->[$i++]); libpegex-perl-0.75/inc/lib/TestML/Run.pm-162- } ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-198- libpegex-perl-0.75/inc/lib/TestML/Run.pm:199: @args = map {$self->uncook($self->exec($_))} @args; libpegex-perl-0.75/inc/lib/TestML/Run.pm-200- ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-219- libpegex-perl-0.75/inc/lib/TestML/Run.pm:220: @args = map {$self->uncook($self->exec($_))} @args; libpegex-perl-0.75/inc/lib/TestML/Run.pm-221- ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-227- my ($self, $left, $right, $label, $not) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:228: my $got = $self->{vars}{Got} = $self->exec($left); libpegex-perl-0.75/inc/lib/TestML/Run.pm:229: my $want = $self->{vars}{Want} = $self->exec($right); libpegex-perl-0.75/inc/lib/TestML/Run.pm-230- my $method = $self->get_method('assert_%s_eq_%s', $got, $want); ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-252- my ($self, $left, $right, $label, $not) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:253: my $got = $self->exec($left); libpegex-perl-0.75/inc/lib/TestML/Run.pm:254: my $want = $self->exec($right); libpegex-perl-0.75/inc/lib/TestML/Run.pm-255- my $method = $self->get_method('assert_%s_has_%s', $got, $want); ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-290- my ($self, $left, $right, $label, $not) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:291: my $got = $self->exec($left); libpegex-perl-0.75/inc/lib/TestML/Run.pm:292: my $want = $self->exec($right); libpegex-perl-0.75/inc/lib/TestML/Run.pm-293- my $method = $self->get_method('assert_%s_like_%s', $got, $want); ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-387- my ($self, $list, $expr) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:388: $list = $self->exec($list); libpegex-perl-0.75/inc/lib/TestML/Run.pm:389: $expr = $self->exec($expr); libpegex-perl-0.75/inc/lib/TestML/Run.pm-390- ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-459- my $name = $func->[0]; libpegex-perl-0.75/inc/lib/TestML/Run.pm:460: $func = $self->exec($func); libpegex-perl-0.75/inc/lib/TestML/Run.pm-461- die "Tried to call '$name' but is not a function" ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-472- my ($self, $hash, $key) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:473: $hash = $self->exec($hash); libpegex-perl-0.75/inc/lib/TestML/Run.pm:474: $key = $self->exec($key); libpegex-perl-0.75/inc/lib/TestML/Run.pm-475- $self->cook($hash->[0]{$key}); ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-479- my ($self, $list, $index) = @_; libpegex-perl-0.75/inc/lib/TestML/Run.pm:480: $list = $self->exec($list); libpegex-perl-0.75/inc/lib/TestML/Run.pm-481- return [] if not @{$list->[0]}; ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-492- libpegex-perl-0.75/inc/lib/TestML/Run.pm:493: $self->setv($name, $self->exec($expr)); libpegex-perl-0.75/inc/lib/TestML/Run.pm-494- ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-505- else { libpegex-perl-0.75/inc/lib/TestML/Run.pm:506: $self->setv($name, $self->exec($expr)); libpegex-perl-0.75/inc/lib/TestML/Run.pm-507- } ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-515- my $value = $self->{block}{point}{$name}; libpegex-perl-0.75/inc/lib/TestML/Run.pm:516: $self->exec($value) if defined $value; libpegex-perl-0.75/inc/lib/TestML/Run.pm-517-} ############################################## libpegex-perl-0.75/inc/lib/TestML/Run.pm-603- libpegex-perl-0.75/inc/lib/TestML/Run.pm:604: my $label = $self->exec($label_expr); libpegex-perl-0.75/inc/lib/TestML/Run.pm-605-