Searched refs:_find_subline (Results 1 - 2 of 2) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | DB.t | 272 '... should use _find_subline() to resolve subname' );
295 '... should use _find_subline() to resolve subname' );
305 # test DB::_find_subline()
319 is( DB::_find_subline('TEST::foo'), 11,
320 'DB::_find_subline() should find fully qualified sub' );
321 is( DB::_find_subline("TEST'foo"), 11, '... should handle old package sep');
322 is( DB::_find_subline('foo'), 11,
326 is( DB::_find_subline('bar'), 11,
331 is( DB::_find_subline('TEST::foo'), 15,
334 ok( ! defined DB::_find_subline('sirnotappearinginthisfil
[all...] |
| H A D | DB.pm | 385 $i = _find_subline($i) if ($i =~ /\D/);
400 $i = _find_subline($i) if ($i =~ /\D/);
412 sub _find_subline { subroutine
432 $i = _find_subline($i) if ($i =~ /\D/);
458 $i = _find_subline($i) if ($i =~ /\D/);
477 $i = _find_subline($i) if ($i =~ /\D/);
|
Completed in 22 milliseconds