view release on metacpan or  search on metacpan

Validator.pm  view on Meta::CPAN

	return;
}

sub _use_plugins {
	my $self = shift;

	if (! defined $self->{'_opts'}->{'u'}) {
		return ();
	}
	my @use_options = split m/,/, $self->{'_opts'}->{'u'};
	my @use_plugins;
	foreach my $use_option (@use_options) {
		my ($type, $name) = split m/:/ms, $use_option, 2;
		if ($type eq 'plugin') {
			push @use_plugins, $name;
		}
	}

	return @use_plugins;
}

1;