|
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 |
- |
|
|