NAME

Data::Trans - Simple data transformer

SYNOPSYS

use Data::Trans;

my $tr = Data::Trans->new({
  array => sub {
    my ($tr, $data) = @_;
    [ map { $_ * 2 } @$data ]
  }
});

$tr->trans([0..9]); # [ 0, 2, 4, 6, 8, 10, 12, 14, 16, 18 ]

VERSION

version 0.01

SYNOPSIS

METHODS

new(\%args)

Constructor. The each keys are callback names. The each value is callback sub routine.

literal
scalar
array
hash
code
glob
blessed

trans($data)

AUTHOR

Toru Yamaguchi, <zigorou@cpan.org>

BUGS

Please report any bugs or feature requests to bug-data-trans@rt.cpan.org, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT & LICENSE

Copyright 2008 Toru Yamaguchi, All Rights Reserved.

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