Changeset 14622 for lang/perl/HTML-MobileJp-Filter

Timestamp:

06/26/08 07:29:09 (5 years ago)

Author:

tomi-ru

Message:

プラグインでは$cを意識しないようにした方がシンプルなのでMooseX::Plaggerizeつかうのやめた

Location:

lang/perl/HTML-MobileJp-Filter/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/HTML/MobileJp/Filter.pm (modified) (3 diffs)
• lib/HTML/MobileJp/Filter/Base.pm (modified) (2 diffs)
• lib/HTML/MobileJp/Filter/DoCoMoCSS.pm (modified) (1 diff)
• lib/HTML/MobileJp/Filter/DoCoMoGUID.pm (modified) (1 diff)
• lib/HTML/MobileJp/Filter/EntityReference.pm (modified) (1 diff)
• lib/HTML/MobileJp/Filter/FallbackImage.pm (modified) (1 diff)

lang/perl/HTML-MobileJp-Filter/trunk/Makefile.PL

@@ -4 +4 @@
 all_from 'lib/HTML/MobileJp/Filter.pm';
 
-requires 'Foo::Bar';
+requires 'Class::Trigger';
+requires 'UNIVERSAL::require';
+requires 'HTTP::MobileAgent';
+
+requires 'Encode';
+requires 'Encode::JP::Mobile';
+requires 'HTML::DoCoMoCSS';
+requires 'HTML::StickyQuery::DoCoMoGUID';
+requires 'HTML::Entities::ConvertPictogramMobileJp';
 
 build_requires 'Test::More';
 
+use_test_base;
 auto_include;
 

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter.pm

@@ -2 +2 @@
 use strict;
 use warnings;
+our $VERSION = '0.01';
 
 use Carp;
@@ -7 +8 @@
 use UNIVERSAL::require;
 
-use base 'Class::Accessor::Fast';
-__PACKAGE__->mk_accessors(qw( filters mobile_agent html ));
-
 sub new {
     my ($class, %config) = @_;
-    my $self = $class->SUPER::new(\%config);
+    my $self = bless \%config, $class;
     
-    for my $plugin (@{ $self->filters || [] }) {
-        my $module = __PACKAGE__ .'::'. delete $plugin->{module};
+    for my $filter (@{ $self->{filters} || [] }) {
+        my $module = __PACKAGE__ .'::'. $filter->{module};
         $module->require or croak $@;
-        $module->new($self, $plugin);
+        $module->new($self, $filter);
     }
     
-    $self; 
+    $self;
 }
 
@@ -26 +24 @@
     my ($self, %option) = @_;
     
-    $self->html("");
-    $self->{$_} = delete $option{$_} for keys %option;
+    $self->{$_} = $option{$_} for keys %option;
     
-    $self->call_trigger('filter', $self);
+    $self->call_trigger('filter_process');
     
-    $self->html;
+    $self->{html};
 }
 
 1;
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+HTML::MobileJp::Filter - Glue module for fighting Japanese mobile web
+
+=head1 SYNOPSIS
+
+  use HTML::MobileJp::Filter;
+  use HTTP::MobileAgent;
+  use YAML;
+
+  my $filter = HTML::MobileJp::Filter->new(YAML::Load <<'...'
+  ---
+  filters:
+    - module: DoCoMoCSS
+      config:
+        base_dir: root
+    - module: DoCoMoGUID
+    - module: FallbackImage
+      config:
+        template: '<img src="%s.gif" />'
+        params:
+          - unicode_hex
+  ...
+  );
+
+  $html = $filter->filter(
+      mobile_agent => HTTP::MobileAgent->new,
+      html         => $html,
+  );
+
+=head1 DESCRIPTION
+
+HTML::MobileJp::Filter is
+
+B<Note:> This module is still alpha, its possible the API will change.
+
+ご意見募集中です！
+
+=head1 METHODS
+
+=over 4
+
+=item new( filters => [ ] )
+
+=item filter( mobile_agent => $ua, html => $html )
+
+=back
+
+=head1 AUTHOR
+
+Naoki Tomita E<lt>tomita@cpan.orgE<gt>
+
+=head1 DEVELOPMENT
+
+L<http://coderepos.org/share/browser/lang/perl/HTML-MobileJp-Filter>
+
+#mobilejp on irc.freenode.net (I've joined as "tomi-ru")
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+
+=cut

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter/Base.pm

@@ -4 +4 @@
 
 use base 'Class::Accessor::Fast';
-__PACKAGE__->mk_accessors(qw( config ));
+__PACKAGE__->mk_accessors(qw( mobile_agent config ));
 
 sub new {
-    my ($class, $provider, $config) = @_;
+    my ($class, $c, $config) = @_;
     my $self = $class->SUPER::new($config);
-     
-    $provider->add_trigger(filter => sub {
-        $self->filter(@_);
+      
+    $c->add_trigger(filter_process => sub {
+        my $c = shift;
+        
+        $self->mobile_agent($c->{mobile_agent});
+        
+        my $ret = $self->filter($c->{html});
+        
+        $c->{html} = $ret if defined $ret;
     });
     
@@ -17 +23 @@
 }
 
+sub filter { }
+
 1;

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter/DoCoMoCSS.pm

@@ -8 +8 @@
 
 sub filter {
-    my ($self, $filter) = @_;
+    my ($self, $html) = @_;
     
-    unless ($filter->mobile_agent->is_docomo) {
+    unless ($self->mobile_agent->is_docomo) {
         return;
     }
     
     my $inliner = HTML::DoCoMoCSS->new(base_dir => $self->config->{base_dir});
-    
-    my $html = $filter->html;
-    
     $html = $inliner->apply($html);
-    $html = decode_utf8($html);
-    
-    $filter->html($html);
+    $html = Encode::decode_utf8($html);
 }
 
-
 1;

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter/DoCoMoGUID.pm

@@ -7 +7 @@
 
 sub filter {
-    my ($self, $filter) = @_;
+    my ($self, $html) = @_;
     
-    unless ($filter->mobile_agent->is_docomo) {
+    unless ($self->mobile_agent->is_docomo) {
         return;
     }
-
-    my $guid = HTML::StickyQuery::DoCoMoGUID->new;
-    my $html = $filter->html; 
-    $html = $guid->sticky( scalarref => \$html );
-    $filter->html($html);
+    
+    HTML::StickyQuery::DoCoMoGUID->new->sticky( scalarref => \$html );
 }
 

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter/EntityReference.pm

@@ -7 +7 @@
 
 sub filter {
-    my ($self, $filter) = @_;
+    my ($self, $html) = @_;
     
-    my $html = convert_pictogram_entities(
-        mobile_agent => $filter->mobile_agent,
-        html         => $filter->html,
+    convert_pictogram_entities(
+        mobile_agent => $self->mobile_agent,
+        html         => $html,
     );
-    
-    $filter->html($html);
 }
 

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter/FallbackImage.pm

@@ -9 +9 @@
 
 sub filter {
-    my ($self, $filter) = @_;
+    my ($self, $html) = @_;
     
-    unless ($filter->mobile_agent->is_non_mobile) {
+    unless ($self->mobile_agent->is_non_mobile) {
         return;
     }
     
-    my $html = $filter->{html}; 
-    
     $html =~ s{(\p{InMobileJPPictograms})}{
         my $char = Encode::JP::Mobile::Character->from_unicode(ord $1);
-        sprintf $self->config->{template}, do {
-            $char->$_ for @{ $self->config->{params} || [] };
-        };
+        
+        sprintf $self->config->{template},
+            map { $char->$_() } @{ $self->config->{params} };
+    
     }ge;
-
-    $filter->html($html);
+    
+    $html;
 }