Contracts in Perl 'Class::Agreement' #4

Tests

use Test::More 'no_plan';
my $q = Queue->new;
is $q->size, 0, 'empty queue';
$q->enqueue( 'foo' );
is $q->size, 1, 'one item';
Copyright © 2005 Ian Langworth