Contracts in Perl 'Class::Agreement' #3

The Queue Class

my $q = Queue->new;
$q->enqueue( 'foo' );
say $q->size;
my $item = $q->dequeue;
Copyright © 2005 Ian Langworth