[catagits/Gitalist.git] / lib / Gitalist / Util.pm

package Gitalist::Util;

use Sub::Exporter -setup => {
   exports => ['to_utf8']
};

=pod

=head1 NAME

Gitalist::Util - Your usual catch all utility function package.

=cut

# decode sequences of octets in utf8 into Perl's internal form,
# which is utf-8 with utf8 flag set if needed.  gitweb writes out
# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
sub to_utf8 {
	my $str = shift;
	if (utf8::valid($str)) {
		utf8::decode($str);
		return $str;
	} else {
		return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
	}
}

1;
Commit	Line	Data
86382b95	1	package Gitalist::Util;
	2
	3	use Sub::Exporter -setup => {
	4	exports => ['to_utf8']
	5	};
	6
	7	=pod
	8
	9	=head1 NAME
	10
	11	Gitalist::Util - Your usual catch all utility function package.
	12
	13	=cut
	14
	15	# decode sequences of octets in utf8 into Perl's internal form,
	16	# which is utf-8 with utf8 flag set if needed. gitweb writes out
	17	# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
	18	sub to_utf8 {
	19	my $str = shift;
	20	if (utf8::valid($str)) {
	21	utf8::decode($str);
	22	return $str;
	23	} else {
	24	return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
	25	}
	26	}
	27
	28	1;