===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libeval-context-perl-0.09.11/t/005_eval.t-185- {
libeval-context-perl-0.09.11/t/005_eval.t:186: $context->eval(CODE => '$x = 3 ;') ;
libeval-context-perl-0.09.11/t/005_eval.t-187- }qr/Global symbol "\$x" requires explicit package name/, 'not strict code' ;
##############################################
libeval-context-perl-0.09.11/t/005_eval.t-249- {
libeval-context-perl-0.09.11/t/005_eval.t:250: is($context->eval(CODE_FROM_FILE => "$base/file_0"), 7, 'value from file') ;
libeval-context-perl-0.09.11/t/005_eval.t-251- } 'code from file' ;
##############################################
libeval-context-perl-0.09.11/t/010_shared_variables.t-115- {
libeval-context-perl-0.09.11/t/010_shared_variables.t:116: my $output = $context->eval(CODE => 'boom!', INSTALL_VARIABLES => [[ '$variable' , undef, $Eval::Context::SHARED]]) ;
libeval-context-perl-0.09.11/t/010_shared_variables.t-117- } qr/Nothing previously shared to '\$variable' /, 'SHARED variable must exist' ;
##############################################
libeval-context-perl-0.09.11/t/010_shared_variables.t-130- {
libeval-context-perl-0.09.11/t/010_shared_variables.t:131: my $output = $context->eval(CODE => 'boom!', INSTALL_VARIABLES => [[ '$variable' , $scalar, $Eval::Context::SHARED]]) ;
libeval-context-perl-0.09.11/t/010_shared_variables.t-132- } qr/Need a reference to share from for '\$variable'/, 'can only share references' ;
##############################################
libeval-context-perl-0.09.11/t/010_shared_variables.t-135- {
libeval-context-perl-0.09.11/t/010_shared_variables.t:136: my $output = $context->eval(CODE => 'boom!', INSTALL_VARIABLES => [[ '$variable' , \$scalar, 111]]) ;
libeval-context-perl-0.09.11/t/010_shared_variables.t-137- } qr/Variable '\$variable' type must be SHARED or PERSISTENT/, 'SHARED or PERSISTENT' ;
##############################################
libeval-context-perl-0.09.11/t/008_variables.t-126- {
libeval-context-perl-0.09.11/t/008_variables.t:127: my $output = $context->eval(CODE => $test->[CODE], INSTALL_VARIABLES => [$test->[SETUP]]) ;
libeval-context-perl-0.09.11/t/008_variables.t-128- eval qq~ is($test->[EXPECTED_RESULT], 'eval side only') or diag "latest code:\n\$context->{LATEST_CODE}\n" ~ ;
##############################################
libeval-context-perl-0.09.11/t/008_variables.t-134- {
libeval-context-perl-0.09.11/t/008_variables.t:135: my $output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['my $variable = 42 ;'] ]) ;
libeval-context-perl-0.09.11/t/008_variables.t-136- } qr/Invalid variable definition/, 'no verbatim code' ;
##############################################
libeval-context-perl-0.09.11/t/008_variables.t-144- {
libeval-context-perl-0.09.11/t/008_variables.t:145: $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/008_variables.t-146- } 'void context' ;
##############################################
libeval-context-perl-0.09.11/t/008_variables.t-149- {
libeval-context-perl-0.09.11/t/008_variables.t:150: my $output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/008_variables.t-151- is($output, 42, 'right value in scalar context') ;
##############################################
libeval-context-perl-0.09.11/t/008_variables.t-155- {
libeval-context-perl-0.09.11/t/008_variables.t:156: my @output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/008_variables.t-157- is_deeply(\@output, [42], 'right value in array context') ;
##############################################
libeval-context-perl-0.09.11/t/006_install_subs.t-21-my $get_117 = sub{117} ;
libeval-context-perl-0.09.11/t/006_install_subs.t:22:my $result = new Eval::Context(PACKAGE => 'TEST')->eval(CODE => 'get_117() ;', INSTALL_SUBS => {get_117 => $get_117}) ;
libeval-context-perl-0.09.11/t/006_install_subs.t-23-
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-108-
libeval-context-perl-0.09.11/t/012_safe.t:109: $context->eval(PACKAGE => 'ABC', CODE => 'eval "1 + 1" ;', SAFE => {COMPARTMENT => $compartment}) ;
libeval-context-perl-0.09.11/t/012_safe.t-110- } 'COMPARTMENT' ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-117-
libeval-context-perl-0.09.11/t/012_safe.t:118:my $output = $context->eval(CODE => 'my $x = 1; __PACKAGE__ ;') ;
libeval-context-perl-0.09.11/t/012_safe.t-119-is($output, 'main', 'first eval package') ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-138-my $result = new Eval::Context(PACKAGE => 'TEST')
libeval-context-perl-0.09.11/t/012_safe.t:139: ->eval(SAFE => {}, CODE => 'get_117() ;', INSTALL_SUBS => {get_117 => $get_117}) ;
libeval-context-perl-0.09.11/t/012_safe.t-140-
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-144-$result = new Eval::Context(PACKAGE => 'TEST')
libeval-context-perl-0.09.11/t/012_safe.t:145: ->eval(SAFE => {}, CODE => 'get_118() ;', INSTALL_SUBS => {get_118 => $get_118}) ;
libeval-context-perl-0.09.11/t/012_safe.t-146-
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-164-
libeval-context-perl-0.09.11/t/012_safe.t:165:$context->eval(CODE => 'my $variable = 24 ; SavePersistent(\'$variable\', $variable) ;') ;
libeval-context-perl-0.09.11/t/012_safe.t-166-
libeval-context-perl-0.09.11/t/012_safe.t:167:my $output = $context->eval(CODE => 'my $variable = GetPersistent(\'$variable\') ;') ;
libeval-context-perl-0.09.11/t/012_safe.t-168-is($output, 24, 'access to persistent functionality') or diag DumpTree $context ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-180- {
libeval-context-perl-0.09.11/t/012_safe.t:181: $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/012_safe.t-182- } 'void context' ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-185- {
libeval-context-perl-0.09.11/t/012_safe.t:186: my $output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/012_safe.t-187- is($output, 42, 'right value in scalar context') ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-191- {
libeval-context-perl-0.09.11/t/012_safe.t:192: my @output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/012_safe.t-193- is_deeply(\@output, [42], 'right value in array context') ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-212-
libeval-context-perl-0.09.11/t/012_safe.t:213:my $output = $context->eval(CODE => '$variable', INSTALL_VARIABLES => [ ['$variable', 42] ]) ;
libeval-context-perl-0.09.11/t/012_safe.t-214-is($output, 42, 'right value in scalar context') ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-218- # Eval context returns the code as an error, make sure the error is not part of the code
libeval-context-perl-0.09.11/t/012_safe.t:219: $context->eval(CODE => "my \$error = 'this_i' . 's_the_croak_message';\ncroak(\$error) ;",) ;
libeval-context-perl-0.09.11/t/012_safe.t-220- } qr/this_is_the_croak_message/, 'croak within a safe' ;
##############################################
libeval-context-perl-0.09.11/t/012_safe.t-227- # Eval context returns the code as an error, make sure the error is not part of the code
libeval-context-perl-0.09.11/t/012_safe.t:228: $context->eval(CODE => 'my $error = "this_i" . "s_the_die_message"; die $error ;',) ;
libeval-context-perl-0.09.11/t/012_safe.t-229- } qr/this_is_the_die_message/, 'die within a safe while using Carp' ;
##############################################
libeval-context-perl-0.09.11/lib/Eval/Context.pm-304-
libeval-context-perl-0.09.11/lib/Eval/Context.pm:305: $context->Eval(CODE => '$hash{A}++ ;') ;
libeval-context-perl-0.09.11/lib/Eval/Context.pm-306-
##############################################
libeval-context-perl-0.09.11/lib/Eval/Context.pm-739- $compartment
libeval-context-perl-0.09.11/lib/Eval/Context.pm:740: ? $compartment->reval($self->{LATEST_CODE}, $compartment_use_strict)
libeval-context-perl-0.09.11/lib/Eval/Context.pm-741- : eval $self->{LATEST_CODE} ; ## no critic (BuiltinFunctions::ProhibitStringyEval)
##############################################
libeval-context-perl-0.09.11/lib/Eval/Context.pm-751- $compartment
libeval-context-perl-0.09.11/lib/Eval/Context.pm:752: ? $compartment->reval($self->{LATEST_CODE}, $compartment_use_strict)
libeval-context-perl-0.09.11/lib/Eval/Context.pm-753- : eval $self->{LATEST_CODE} ; ## no critic (BuiltinFunctions::ProhibitStringyEval)
##############################################
libeval-context-perl-0.09.11/lib/Eval/Context.pm-763- defined $compartment
libeval-context-perl-0.09.11/lib/Eval/Context.pm:764: ? $compartment->reval($self->{LATEST_CODE}, $compartment_use_strict)
libeval-context-perl-0.09.11/lib/Eval/Context.pm-765- : eval $self->{LATEST_CODE} ; ## no critic (BuiltinFunctions::ProhibitStringyEval)
##############################################
libeval-context-perl-0.09.11/lib/Eval/Context.pm-1443-
libeval-context-perl-0.09.11/lib/Eval/Context.pm:1444: $context->Eval(CODE => '$hash{A}++ ;') ;
libeval-context-perl-0.09.11/lib/Eval/Context.pm-1445-