sub put { my ($self, $chunks) = @_; my $old_queue_octets = $self->[TOTAL_OCTETS_LEFT]; {% use_bytes %} foreach (grep { length } @$chunks) { $self->[TOTAL_OCTETS_LEFT] += length; push @{$self->[OUTPUT_QUEUE]}, $_; } if ($self->[TOTAL_OCTETS_LEFT] && (!$old_queue_octets)) { $self->[CURRENT_OCTETS_LEFT] = length($self->[OUTPUT_QUEUE]->[0]); $self->[CURRENT_OCTETS_DONE] = 0; } $self->[TOTAL_OCTETS_LEFT]; }
In reply to What is: {% use_bytes %}? by johnnywang
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |