fix off-by-one error in documentation example

[p5sagit/Function-Parameters.git] / lib / Function / Parameters.pm

diff --git a/lib/Function/Parameters.pm b/lib/Function/Parameters.pm
index c87f78e..36e686c 100644 (file)
--- a/lib/Function/Parameters.pm
+++ b/lib/Function/Parameters.pm
@@ -455,7 +455,7 @@ And here's what it turns into:
 
  sub foo ($$$;$) :method :lvalue :Banana(2 + 2) {
    sub foo ($$$;$);
-   Carp::croak "Not enough arguments for method foo" if @_ < 2;
+   Carp::croak "Not enough arguments for method foo" if @_ < 3;
    Carp::croak "Too many arguments for method foo" if @_ > 4;
    my $self = shift;
    my ($x, $y, $z) = @_;