Searched refs:evalcode (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DDB.t476 # test DB::evalcode()
477 ok( ! defined DB::evalcode('foo'),
478 'DB::evalcode() should return undef for undef value' );
480 DB::evalcode('foo', 'bar');
481 is( DB::evalcode('foo'), 'bar', '... should return value when set' );
H A DDB.pm138 &eval if ($evalarg = $c->evalcode);
521 sub evalcode { subroutine
590 CLIENT->evalcode(STRING) # eval STRING in executing code's context
724 =item CLIENT->evalcode(STRING)
781 =item CLIENT->evalcode(STRING)

Completed in 16 milliseconds