view release on metacpan or  search on metacpan

lib/App/GitHooks/CommitMessage.pm  view on Meta::CPAN

77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
 
=head2 update_message()
 
Update the commit message.
 
        my $success = $commit_message->update_message( $new_message );
 
=cut
 
sub update_message
{
        my ( $self, $message ) = @_;
 
        # Update the message.
        $self->{'message'} = $message;
 
        # Remove various caches.
        delete( $self->{'lines'} );
        delete( $self->{'ticket_id'} );