UTF8 Japanese for Pod::ProjectDocs

utf8japanese.diff

diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\ArrowImage.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\ArrowImage.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\ArrowImage.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\ArrowImage.pm	Tue May 22 05:30:59 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::ArrowImage;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::File/;
 use MIME::Base64;
 use File::Basename;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Config.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Config.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Config.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Config.pm	Tue May 22 05:31:12 2012
@@ -1,7 +1,7 @@
 package Pod::ProjectDocs::Config;
 use strict;
 use warnings;
-
+use utf8;
 use base qw/Class::Accessor::Fast/;
 
 use Readonly;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\CSS.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\CSS.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\CSS.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\CSS.pm	Tue May 22 05:31:06 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::CSS;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::File/;
 use File::Basename;
 
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Doc.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Doc.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Doc.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Doc.pm	Tue May 22 05:31:19 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::Doc;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::File/;
 use File::Basename;
 use File::Spec;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\DocManager.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\DocManager.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\DocManager.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\DocManager.pm	Tue May 22 05:31:25 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::DocManager;
 use strict;
 use warnings;
+use utf8;
 use base qw/Class::Accessor::Fast/;
 
 use File::Find;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\File.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\File.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\File.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\File.pm	Tue May 22 05:31:30 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::File;
 use strict;
 use warnings;
+use utf8;
 use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
 
 use IO::File;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\IndexPage.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\IndexPage.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\IndexPage.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\IndexPage.pm	Tue May 22 05:31:36 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::IndexPage;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::File/;
 use Pod::ProjectDocs::Template;
 
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\JavaScriptPod.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\JavaScriptPod.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\JavaScriptPod.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\JavaScriptPod.pm	Tue May 22 05:32:05 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::Parser::JavaScriptPod;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::Parser/;
 use URI::Escape;
 __PACKAGE__->language('javascript');
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\PerlPod.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\PerlPod.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\PerlPod.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser\PerlPod.pm	Tue May 22 05:31:56 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::Parser::PerlPod;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::ProjectDocs::Parser/;
 use URI::Escape;
 __PACKAGE__->language('perl');
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Parser.pm	Tue May 22 06:28:11 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::Parser;
 use strict;
 use warnings;
+use utf8;
 use base qw/Pod::Parser Class::Accessor::Fast Class::Data::Inheritable/;
 use Pod::ParseUtils;
 use URI::Escape;
@@ -86,6 +87,7 @@
     $parser->parse_tree->append( $pod_para );
 }
 
+use Data::Dumper;use Encode;
 sub verbatim {
     my ($parser, $paragraph, $line_num, $pod_para) = @_;
     $parser->parse_tree->append( $pod_para );
@@ -634,7 +636,7 @@
     my $doc        = $args{doc};
     my $components = $args{components};
     my $mgr_desc   = $args{desc};
-    open(FILE, $doc->origin) or warn $!;
+    open(FILE, '<:encoding(UTF-8)', $doc->origin) or warn $!;
     while(<FILE>) {
         next unless /^\s*sub\s+(\w+)/;
         my $method = $1;
@@ -650,7 +652,9 @@
     $self->current_files_output_path( $doc->get_output_path );
     $self->_prepare($doc, $components, $mgr_desc);
 #   local $SIG{__WARN__} = sub { };
-    $self->parse_from_file($doc->origin);
+    open (my $fh, '<:encoding(UTF-8)', $doc->origin) or warn $!;
+    $self->parse_from_filehandle($fh);
+    close $fh;
     my $title = $self->_get_title;
     $doc->title($title);
     $self->current_files_output_path('');
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Template.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Template.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Template.pm	Fri Aug 19 12:19:29 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs\Template.pm	Tue May 22 05:31:49 2012
@@ -1,6 +1,7 @@
 package Pod::ProjectDocs::Template;
 use strict;
 use warnings;
+use utf8;
 use Template;
 use File::Basename;
 use File::Spec;
diff -ruN original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs.pm utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs.pm
--- original\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs.pm	Fri Aug 19 12:23:31 2011
+++ utf8japanese\Pod-ProjectDocs-0.40\lib\Pod\ProjectDocs.pm	Tue May 22 05:30:50 2012
@@ -1,7 +1,7 @@
 package Pod::ProjectDocs;
 use strict;
 use warnings;
-
+use utf8;
 use base qw/Class::Accessor::Fast/;
 
 use File::Spec;