Contracts in Perl 'Class::Agreement' #15

Invariants

class MUTABLE_NUMBER feature
    decrement is
        ...

    invariant
        item > 0
end
Copyright © 2005 Ian Langworth