NAME

Data::ToruCa - ToruCa of NTT DoCoMo for treated.

SYNOPSIS

use Data::ToruCa;
$Data::ToruCa::VERBOSE = 1;#Warning is output by the favorite.

my $trc = Data::ToruCa->new($toruca_data);#making from ToruCa data.

my $trc = Data::ToruCa->new({
    url => 'http://example.jp/toruca_detail.trc',
    data1 => 'title',
    data2 => 'description.',
    data3 => 'Tokyo',
    cat => '0001',
  });#making from HASH.

  $trc->data1('change title');
  print $trc->url;

  print $trc->build;

  $trc->type('CARD');
  $trc->html_build('<a href='http://example.jp/'>top page</a>');

  $trc->mime($mime_parts);
  print $trc->detail_build;

use Data::ToruCa qw(cat2pict);
print cat2pict('0001');#print 'sun' pict of imode.

DESCRIPTION

ToruCa that the cellular phone of NTT DoCoMo in Japan uses is treated.

Export

cat2pic($category_code)

convert to imode pict from category code of toruca.

Methods

new($toruca_object)

making from ToruCa data.

new(%toruca_data)

making from HASH.

ext

get of ext type of ToruCa.

content_type

get of Content-Type of ToruCa.

version([$set_data])

getter/setter of ToruCa Version.

type([$set_data])

getter/setter of ToruCa Type.

url([$set_data])

getter/setter of ToruCa URL.

data1([$set_data])

getter/setter of ToruCa Data1.

data2([$set_data])

getter/setter of ToruCa Data2.

data3([$set_data])

getter/setter of ToruCa Data3.

cat([$set_data])

getter/setter of ToruCa category.

pict

convert to imode pict from category code of toruca of this object.

mime([$set_data])

getter/setter of MIME data of ToruCa Detail data.

parse($toruca_object)

The ToruCa data is anakyzed.

build

The ToruCa data is made.

detail_build

The ToruCa data of detail is made. use mime data.

html_build

The detailed data of ToruCa is made.

rw_build($html)

The ToruCa data for Felica is made.

Onlu one html file can be appended.

SEE ALSO

japanese site.

http://www.nttdocomo.co.jp/p_s/imode/make/toruca/index.html

AUTHOR

Kazuhiro, Osawa<lt>ko@yappo.ne.jp>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Kazuhiro, Osawa

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.5 or, at your option, any later version of Perl 5 you may have available.