Searched refs:_find_subline (Results 1 – 2 of 2) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/lib/ |
| D | DB.pm | 384 $i = _find_subline($i) if ($i =~ /\D/);
399 $i = _find_subline($i) if ($i =~ /\D/);
411 sub _find_subline { subroutine
431 $i = _find_subline($i) if ($i =~ /\D/);
457 $i = _find_subline($i) if ($i =~ /\D/);
476 $i = _find_subline($i) if ($i =~ /\D/);
|
| D | DB.t | 324 is( DB::_find_subline('TEST::foo'), 11,
326 is( DB::_find_subline("TEST'foo"), 11, '... should handle old package sep');
327 is( DB::_find_subline('foo'), 11,
331 is( DB::_find_subline('bar'), 11,
336 is( DB::_find_subline('TEST::foo'), 15,
339 ok( ! defined DB::_find_subline('sirnotappearinginthisfilm'),
|