view release on metacpan or  search on metacpan

MixNMatch.pm  view on Meta::CPAN

}

sub _process_print_options {
	my $print_options = shift;

	if (! defined $print_options) {
		return;
	}

	my $opts_hr = {};
	foreach my $print_option (split m/,/, $print_options) {
		$opts_hr->{$print_option} = 1;
	}

	return $opts_hr;
}

# Run script.
sub run {
	my $self = shift;