=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libmasonx-interp-withcallbacks-perl-1.19/lib/MasonX/Interp/WithCallbacks.pm-231- ( cb_classes => [qw(myCallbacker)] ); libmasonx-interp-withcallbacks-perl-1.19/lib/MasonX/Interp/WithCallbacks.pm:232: $interp->exec($comp, %args); libmasonx-interp-withcallbacks-perl-1.19/lib/MasonX/Interp/WithCallbacks.pm-233- ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-243-# Try a simple callback. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:244:$interp->exec($comp, "$key|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-245-is( $outbuf, 'Success', "Check simple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-302-# Test the aborted method. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:303:$interp->exec($comp, "$key|test_aborted_cb" => 1 ); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-304-is( $outbuf, 'yes', "Check aborted result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-318-# Make sure the note isn't available on the next request. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:319:$interp->exec($comp, "$key|get_note_cb" => $note_key ); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-320-is( $outbuf, '', "Check no note result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-392- libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:393:$interp->exec($comp, "$key|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-394-is( $outbuf, 'Success', "Check simple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-397-# And try it with a null value. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:398:$interp->exec($comp, "$key|simple_cb" => ''); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-399-is( $outbuf, '', "Check null result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-402-# And with undef. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:403:$interp->exec($comp, "$key|simple_cb" => undef); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-404-is( $outbuf, '', "Check undef result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-407-# But 0 should succeed. libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:408:$interp->exec($comp, "$key|simple_cb" => 0); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-409-is( $outbuf, 'Success', "Check 0 result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-422- "Construct interp object that handles exceptions" ); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t:423:$interp->exec($comp, "$key|exception_cb" => 0); libmasonx-interp-withcallbacks-perl-1.19/t/01basic.t-424-$outbuf = ''; ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/02priority.t-86-# Test the default priority. libmasonx-interp-withcallbacks-perl-1.19/t/02priority.t:87:$interp->exec($comp, "$key|def_priority_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/02priority.t-88- ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-83-# Test the package key. libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t:84:$interp->exec($comp, "$key|test_pkg_key_cb" => 1 ); libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-85-is( $outbuf, $key, "Check pkg key" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-99-# Test the class key. libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t:100:$interp->exec($comp, "$key|test_class_key_cb" => 1 ); libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-101-is( $outbuf, $key, "Check class key" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-113-# Test the trigger key. libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t:114:$interp->exec($comp, "$key|test_trigger_key_cb" => 1 ); libmasonx-interp-withcallbacks-perl-1.19/t/03keys.t-115-is( $outbuf, "$key|test_trigger_key_cb", "Check trigger key" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-113-# Make sure an exception get thrown for a non-existant package. libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t:114:eval { $interp->exec($comp, 'NoSuchLuck|foo_cb' => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-115-ok( $err = $@, "Catch bad package exception" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-123-# Make sure an exception get thrown for a non-existant callback. libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t:124:eval { $interp->exec($comp, "$key|foo_cb" => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-125-ok( $err = $@, "Catch missing callback exception" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-133-# Now die from within our callback function. libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t:134:eval { $interp->exec($comp, "$key|mydie_cb" => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-135-ok( $err = $@, "Catch our exception" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-144-# Now throw our own exception. libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t:145:eval { $interp->exec($comp, "$key|myfault_cb" => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-146-ok( $err = $@, "Catch our exception" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-157- }), "Construct Interp object with custom exception handler" ); libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t:158:eval { $interp->exec($comp, "$key|mydie_cb" => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/04errors.t-159-$outbuf = ''; ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-225- # Now make sure that the simple callback executes. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:226: $interp->exec($comp, "$key|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-227- is( $outbuf, 'Simple Success', "Check simple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-231- # And the "complete" callback. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:232: $interp->exec($comp, "$key|complete_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-233- is( $outbuf, 'Complete Success', "Check complete result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-237- # Check the class name. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:238: $interp->exec($comp, "$key|inherit_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-239- is( $outbuf, 'Yes', "Check inherit result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-243- # Check class inheritance and SUPER method calls. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:244: $interp->exec($comp, $base_key . "Sub|inherit_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-245- is( $outbuf, 'Yes and Yes', "Check SUPER inherit result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-265- # Try a method defined only in a subclass. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:266: $interp->exec($comp, $base_key . "Sub|subsimple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-267- is( $outbuf, 'Subsimple Success', "Check subsimple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-271- # Try a method that overrides its parent but doesn't call its parent. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:272: $interp->exec($comp, $base_key . "Sub|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-273- is( $outbuf, 'Oversimple Success', "Check oversimple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-277- # Try a method that overrides its parent but doesn't call its parent. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:278: $interp->exec($comp, $base_key . "Sub|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-279- is( $outbuf, 'Oversimple Success', "Check oversimple result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-283- # Check that the proper class ojbect is constructed. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:284: $interp->exec($comp, "$key|class_cb" => $classes{$key}); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-285- $outbuf = ''; ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-318- # Test aborted for a false value. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:319: $interp->exec($comp, "$key|test_aborted_cb" => 0); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-320- is( $outbuf, 'no', "Check false aborted result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-324- # Test aborted for a true value. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:325: $interp->exec($comp, "$key|test_aborted_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-326- is( $outbuf, 'yes', "Check true aborted result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-330- # Try throwing an execption. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:331: eval { $interp->exec($comp, "$key|exception_cb" => 1) }; libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-332- ok( my $err = $@, "Catch $key exception" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-339- # Try die'ing. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:340: eval { $interp->exec($comp, "$key|exception_cb" => 0) }; libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-341- ok( $err = $@, "Catch $key die" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-357- # Check priority 0 sticks. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:358: $interp->exec($comp, "$key|highest_cb" => undef); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-359- $outbuf = ''; ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-362- # Requester should be WithCallbacks object. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:363: $interp->exec($comp, "$key|isa_interp_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-364- $outbuf = ''; ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-367- # Changing the comp path should change the executed component. libmasonx-interp-withcallbacks-perl-1.19/t/05object.t:368: $interp->exec($comp, "$key|change_comp_cb" => '/alt.mc'); libmasonx-interp-withcallbacks-perl-1.19/t/05object.t-369- is $outbuf, 'This is the alt component.', ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/06object_request.t-208-# callbacks. libmasonx-interp-withcallbacks-perl-1.19/t/06object_request.t:209:$interp->exec($comp, "$base_key|pre_post_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/06object_request.t-210-is( $outbuf, 'Attributes okay', "Check attribute check result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-106-# Make sure the functional callback works. libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t:107:$interp->exec($comp, 'foo|another_cb' => 1); libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-108-is( $outbuf, 'Another Success', "Check functional result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-112-# Make sure OO callback works. libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t:113:$interp->exec($comp, "$base_key|simple_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-114-is( $outbuf, 'Simple Success', "Check OO result" ); ############################################## libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-126-# Make sure that the default class key is the class name. libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t:127:$interp->exec($comp, "Params::Callback::TestKey|my_key_cb" => 1); libmasonx-interp-withcallbacks-perl-1.19/t/07combined.t-128-$outbuf = '';