�����������ҏ����������돢����::���·�����я��ߏ�����

Yuji Shimada / Data-Encoder - search.cpan.org

\���\���\���\������¼\����ޏ�叢�·������\������¼\��ď����ҏ��¾��������¹������¾���¹�����¡�Storable ������ JSON ������ Data::MessagePack �����������я��«������»��������Ï�����»�ߏ����Ï������������¹���̏�¡��������«�����я��»�����я����������\���\���\��ď��¼\���\�����¼\¹���̡돫����������������¹��¡�
���³�����������ď����������Ң���Ï�����������\���\���\��ď��¼\���\�����¼\¹������������²��������쏢������·��𡯏�������¡�\·\���\��\���������\���\���\������¼\������̏����Ώ��·������������½��Џ��­���������·�����ď�¡�

»�������ď����������Ï�����\���\���\������¼\������������·��������¡�Data::Serializer �����������������Ï������̏������������я��������¹���̏�¡��������������³������������\³���¼\�������\��\������������������·������������������������������¡񏩡��������� encrypt ������µ����½���������������������������������������¼�����������������á��������������������������ď�����������¡��·���·������½��Џ�����������¼���������¡�

»��������������������돪�²¼���������������Ï��������������������������¹��¡�

use Data::Encoder;

my $encoder = Data::Encoder->load('JSON');
my $json = $encoder->encode([qw/foo bar/]);
my $data = $encoder->decode($json);

���������������������������ޏ��������¹��������¡�

\��\���\���\³\��������쏢�����������돪�²¼���������������Ï�����������������������¡�new() / encode() / decode() ������ 3������������ method �����ҏ�����µ������¹�����������������Ï��������������������������������������¹��¡�

The Data::Encoder Protocol

* my $encoder = Data::Encoder::Thing->new([$args:HashRef|ArrayRef])

  The module SHOULD have a <new> method.
  
  This method creates a new instance of Data::Encoder module.

* my $encoded = $encoder->encode($stuff [, @args]);

  The module SHOULD have a <encode> method.
  
* my $decoded = $encoder->decode($stuff [, @args]);

  The module SHOULD have a <decod> method.

��������������¡�Tiffany ������\���\���\������������¹��������¡�

�돫⏢ď�ԏ��������«����·���������������������������������������������¡�Config \���\���\���\������«������ Driver ������»������������¹�����������������Ï�����»�����������������½Ð������������������������¡��������«���������«�����������̏��������¹��¡��������������³�������돪�������\���\���\������¼\�������������������������������������»�����я�¡�

������¼«������������µ������·������ Driver ������»��������������ď�����¾���¹�����������¡�돪�²¼���������������Ï���������+��¡ߏ����؏��­������ load ���¹���������Ð���������������������¹���·��¡��·���·������ Module ������½��Џ����������叢����������������������������������������������¾���¹��������� Data::Encoder::Custom �����������������Ï�����������������������������¡��½������������������»��������������������Ώ������������������������������«���������·���������������»�����я�¡�

# loading MyModule.pm
my $encoder = Data::Encoder->load('+MyModule');

# create a custom encoder
my $encoder = Data::Encoder->load('Custom', {
    encoder => sub { (my $stuff = $_[0]) =~ tr/A-Za-z/a-zA-Z/; $stuff },
    decoder => sub { (my $stuff = $_[0]) =~ tr/a-zA-Z/A-Za-z/; $stuff },
});
my $encoded = $encoder->encode("ABcd");
my $decoded = $encoder->decode($encoded);

����������������𡯏�����½��Џ����������������Ώ����ď������������򏢱���²��ď��«�����Џ��������������«���������·���������������»�����я��̏�¡�