+sub expect {
+ (undef, my $s, my $l, my $b, my $left, my $insert) = @_;
+ myfill($_[0], 0, $s, 0);
+ if ($b < $l) {
+ if ($left) {
+ myfill($_[0], $s, $b, defined $insert ? $insert : 1);
+ myfill($_[0], $s + $b, $l - $b, 1);
+ } else {
+ myfill($_[0], $s, $l - $b, 1);
+ myfill($_[0], $s + $l - $b, $b, defined $insert ? $insert : 1);
+ }
+ } else {
+ myfill($_[0], $s, $l, defined $insert ? $insert : 1);
+ }
+}
+