view release on metacpan or  search on metacpan

lib/App/wmiirc/Role/Fade.pm  view on Meta::CPAN

  my($self) = @_;

  return $self->_fade_pos == ($self->fade_count - 1)
    ? _rgb_tuple_fmt($self->fade_end_color)
    : _blend_alpha_tuple($self->fade_start_color,
                        1-($self->_fade_pos/$self->fade_count),
                        $self->fade_end_color,
                        $self->_fade_pos/$self->fade_count);
}

# Go on to the next position, return true if there are more iterations left.
sub fade_next {
  my($self) = @_;
  if($self->_fade_pos == $self->fade_count - 1) {
    return 0;
  } else {
    $self->_fade_pos($self->_fade_pos + 1);
    return 1;
  }
}