view release on metacpan or  search on metacpan

Print.pm  view on Meta::CPAN

		$ret = $ret_value;
	}

	return $ret;
}

sub _print_multi {
	my ($self, $obj, $method_name, $prefix) = @_;

	my $ret_value = $obj->$method_name;
	my @ret_values = split m//ms, $ret_value;
	my @ret;
	my $not_coded = 0;
	foreach my $process_ret_value (@ret_values) {
		if ($process_ret_value eq ' ') {
			next;
		}
		if ($process_ret_value eq '|') {
			if (! $not_coded) {
				$not_coded = 1;
			} else {