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.