NAME

HTML::MobileJpCSS - css inliner and converter

SYNOPSIS

  use HTML::MobileJpCSS;
  my $inliner = HTML::MobileJpCSS->new(base_dir => '/path/to/documentroot/');
  $inliner->apply(<<'...');
  <?xml version="1.0" encoding="Shift_JIS"?>
  <!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/2.1) 1.0//EN" "i-xhtml_4ja_10.dtd">
  <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
  <head>
    <link rel="stylesheet" href="/css/foo.css" />
  </head>
  <body>
    <div class="title">bar</div>
  </body>
  </html>
  ...

  # foo.css
  .title {
    color: red;
  }

  # result
  <?xml version="1.0" encoding="Shift_JIS"?>
  <!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/2.1) 1.0//EN" "i-xhtml_4ja_10.dtd">
  <html>
  <head>
    <link rel="stylesheet" href="/css/foo.css" />
  </head>
  <body>
    <div class="title" style="color:red;">bar</div>
  </body>
  </html>

DESCRIPTION

  HTML::MobileJpCSS is css inliner.

  this module is possible the specification of a style based EZweb in each career(DoCoMo,EZweb,Softbank[,Willcom])

METHODS

new

  constructor of HTML::MobileJpCSS->new();

agent

HTTP_USER_AGENT or instance of HTTP::MobileAgent (default: instance of HTTP::MobileAgent)

inliner_ezweb

inline css when user_agent is EZweb (default: none)

base_dir

concatenate local css file specified with '<link rel="stylesheet" href="/css/foo.css">' (default: none)

  my $inliner = HTML::DoCoMoCSS->new(base_dir => '/path/to');

css_file

read css file (default: none)

  my $inliner = HTML::DoCoMoCSS->new(css_file => '/path/to/css/foo.css');

style_map

you can specify each career style with \%hash "EXAMPLES" my $inliner = HTML::DoCoMoCSS->new(style => { hr => { text-align => { I => 'float', }, }, });

apply($content)

AUTHOR

Kazunari Komoriya <kmry1462@gmail.com>

LICENCE AND COPYRIGHT

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

CPAN RT