Lines 106-112
sub find {
Link Here
|
106 |
if (@$msgs) { |
106 |
if (@$msgs) { |
107 |
return $class->new($msgs->[0]); |
107 |
return $class->new($msgs->[0]); |
108 |
} else { |
108 |
} else { |
109 |
return undef; |
109 |
return; |
110 |
} |
110 |
} |
111 |
} |
111 |
} |
112 |
|
112 |
|
Lines 142-148
sub find_last_message {
Link Here
|
142 |
if (@$msgs) { |
142 |
if (@$msgs) { |
143 |
return $class->new($msgs->[0]); |
143 |
return $class->new($msgs->[0]); |
144 |
} else { |
144 |
} else { |
145 |
return undef; |
145 |
return; |
146 |
} |
146 |
} |
147 |
} |
147 |
} |
148 |
|
148 |
|
Lines 316-322
sub append {
Link Here
|
316 |
} |
316 |
} |
317 |
if (not $self->metadata) { |
317 |
if (not $self->metadata) { |
318 |
carp "Can't append to messages that don't have metadata."; |
318 |
carp "Can't append to messages that don't have metadata."; |
319 |
return undef; |
319 |
return; |
320 |
} |
320 |
} |
321 |
my $metadata = $self->metadata; |
321 |
my $metadata = $self->metadata; |
322 |
push @{$metadata->{body}}, $item; |
322 |
push @{$metadata->{body}}, $item; |
323 |
- |
|
|