sub report {
my ($self) = @_;
- my $code = $self->policy->report(@_);
+ my $code = $self->policy->handle(@_);
return defined $code ? $code : NEXT;
}
=head1 COPYRIGHT & LICENSE
-Copyright 2008-2009 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.