Lines Matching defs:foo
49 is( DB->skippkg('foo'), 1, 'DB->skippkg() should push args' );
52 package foo;
82 is( DB::_clientname('foo=A(1)'), 'foo',
163 %DB::sub = ( foo => 'foo:23-45' , bar => 'ba:r:7-890' );
166 my @subs = DB->subs( 'foo', 'boo', 'bar' );
168 my @expected = ( [ 'foo', 23, 45 ], [ 'ba:r', 7, 890 ] );
196 local @DB::dbline = ( 'foo' );
197 is( DB->lines->[0], 'foo', 'DB::lines() should return ref to @DB::dbline' );
228 1 => "foo\0bar",
236 is( join(' ', @{ $ret{1} }), 'two foo bar', '... should stash data in hash');
253 'main::foo' => 'foo:1-4',
256 DB->set_break(1, 'foo');
257 is( $DB::dbline{1}, "foo\0", 'DB::set_break() should set break condition' );
268 'main::foo' => 'foo:1-4',
270 DB->set_break('foo', 'baz');
291 'main::foo' => 'foo:1-4',
293 DB->set_tbreak('foo', 'baz');
307 my @foo;
308 local *{ "::_<foo" } = \@foo;
312 'TEST::foo' => 'foo:10-15',
313 'main::foo' => 'foo:11-12',
314 'bar::bar' => 'foo:10-16',
317 $foo[11] = $dualtrue;
319 is( DB::_find_subline('TEST::foo'), 11,
321 is( DB::_find_subline("TEST'foo"), 11, '... should handle old package sep');
322 is( DB::_find_subline('foo'), 11,
329 $foo[11] = $dualfalse;
331 is( DB::_find_subline('TEST::foo'), 15,
355 local *{ "::_<foo" } = [ 0, 0, 0, 1 ];
359 'main::foo' => 'foo:1-3',
363 DB->clr_breaks('foo');
433 local *{ "::_<foo" } = [ 0, 0, 0, 1 ];
437 'main::foo' => 'foo:1-3',
441 DB->clr_actions('foo');
477 ok( ! defined DB::evalcode('foo'),
480 DB::evalcode('foo', 'bar');
481 is( DB::evalcode('foo'), 'bar', '... should return value when set' );