31 sub serve {
 32     my $self = shift;
 33     return ( $self->{apple} ) ? $self->{apple}->serve() : 'squeezed';
 34 }
 35