--- a/lib/Quancom.pm	Tue Jan 27 04:13:21 2009 +0100
+++ b/lib/Quancom.pm	Tue Jan 27 04:53:30 2009 +0100
@@ -83,8 +83,8 @@
 
 sub set {
     my $self = shift;
+    croak "bad usage" if @_ < 2;
 
-    croak "bad usage";
     my $value = pop @_ ? 1 : 0;
     my @bits   = map { $_ - 1 } @_;
     my @groups = map { 0 } 0 .. 7;