package Foo;

    sub new { bless {todo => 0, done => 0}, shift };
    
    sub add { shift->{todo}++ };
    
    sub remove {
        my $self = shift;
        $self->{todo}--;
        $self->{done}++;
    };
    
    sub todo { shift->{todo} };
    sub done { shift->{done} };