Lines Matching refs:note

169       my $note = $log->notes;
170       $note =~ s{^(perldelta.*\[)\w+(\].*)}{$1$status$2}ms;
171       $self->add_note( $log->id, $note );
195   my ($self, $id, $note) = @_;
196   my @lines = split "\n", _strip_comments($note);
266   my $note = $log->notes or return '';
267   my ($section) = $note =~ m{^perldelta:\s*([^\[]*)\s+}ms;
273   my $note = $log->notes or return '';
274   my ($status) = $note =~ m{^perldelta:\s*[^\[]*\[(\w+)\]}ms;
382   my $note = "perldelta: Unknown [blocking]\n";
383   $self->add_note( $log->id, $note );
406   my $note = $log->notes;
407   $note =~ s{^(perldelta.*\[)\w+(\].*)}{$1done$2}ms;
408   $self->add_note( $log->id, $note );
430   my $note = $self->edit_text( $template );
431   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {
448   my $note = $self->edit_text($template);
449   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {
466   my $note = $self->edit_text($template);
467   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {
476   my $note = "perldelta: None [ignored]\n";
477   $self->add_note( $log->id, $note );
491   my $note = $self->edit_text($template);
492   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {
519   my $note = $self->edit_text( $template );
520   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {