inc/Test/Builder.pm

462     my $todo    = $self->todo();
464     local $self->{Todo} = $todo if $in_todo;
466     $self->_unoverload_str( \$todo );
492         $out .= " # TODO $todo";
493         $result->{reason} = $todo;
494         $result->{type}   = 'todo';
1345 sub todo {
1351     my $todo = $self->find_TODO($pack);
1352     return $todo if defined $todo;
1386         push @{ $self->{Todo_Stack} } => $self->todo;