=cut
- my $self = shift;
+ my ( $self, $arg ) = @_;
- if ( my $arg = lc shift ) {
+ if ( $arg ) {
+ $arg = lc $arg;
return $self->error("Invalid match type: $arg")
unless $arg eq 'full' || $arg eq 'partial';
$self->{'match_type'} = $arg;
=cut
- my $self = shift;
+ my ( $self, $type ) = @_;
- if ( my $type = uc (shift || '') ) {
+ if ( $type ) {
+ $type = uc $type;
$type =~ s/_/ /g;
return $self->error("Invalid constraint type: $type")
unless $VALID_CONSTRAINT_TYPE{ $type };
=head1 AUTHOR
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
=cut