sub foo {
    my $self = shift;
    $self->{+shift} = 3;
    return $self;
}