File Coverage

lib/Egg/Plugin/Charset/Shift_JIS.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition	0	2	0.0
subroutine	4	6	66.6
pod			n/a
total	16	29	55.1

package Egg::Plugin::Charset::Shift_JIS;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: Shift_JIS.pm 337 2008-05-14 12:30:09Z lushe $
#
use strict;
use warnings;
use Jcode;
use base qw/Egg::Plugin::Charset/;

our $VERSION = '3.00';

sub _setup {
	my($e)= @_;
	my $c= $e->config;
	$c->{content_language} = 'ja';
	$c->{content_type}     = 'text/html';
	$c->{charset_out}      = 'Shift_JIS';
	$e->next::method;
}
sub _convert_output_body {
	my $e= shift;
	my $body= shift || return 0;
	$$body= Jcode->new($body)->sjis;
}

1;

__END__

=head1 NAME

Egg::Plugin::Charset::Shift_JIS - Plugin to output contents with Shift_JIS.

=head1 SYNOPSIS

  use Egg qw/ Charset::Shift_JIS /;

=head1 DESCRIPTION

This plugin is a subclass of L<Egg::Plugin::Charset>.

Contents are output with Shift_JIS.

The conversion of the character-code is L<Jcode>. Has gone.

=head1 SEE ALSO

L<Egg::Release>,
L<Egg::Plugin::Charset>,

=head1 AUTHOR

Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2008 Bee Flag, Corp. E<lt>L<http://egg.bomcity.com/>E<gt>.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.

=cut