Lines Matching defs:TieOut
65 my $out = tie *OUT, 'TieOut';
191 $d->dumpglob( '', 0, 'read', *TieOut::read );
193 $d->dumpglob( '', 0, 'read', \&TieOut::read, 1 );
204 is( $d->CvGV_name(\&TieOut::read), 'TieOut::read', 'CvGV_name found sub' );
208 $d->dumpsub( '', 'TieOut::read' );
209 like( $out->read, qr/&TieOut::read in/, 'dumpsub found sub fine' );
213 $DB::sub{'TieOut::read'} = 'TieOut';
214 is( $d->findsubs( \&TieOut::read ), 'TieOut::read', 'findsubs reported sub' );
217 $d->dumpsub( '', 'TieOut::read' );
218 is( $out->read, "&TieOut::read in TieOut\n", 'dumpsub found sub fine again' );
271 package TieOut;