Contracts in Perl 'Class::Agreement' #21

Dependent Contacts

method 'decrement';
    dep {
        my $old_item = self->item;
        return sub {
            self->item == $old_item - 1;
        };
    };
Copyright © 2005 Ian Langworth