Data::Pulp - Pulp your data into a consistent goop
Version 0.01
use Data::Pulp; my $pulper = pulper case { $_ eq 'apple' } then { 'APPLE' } case { $_ eq 'banana' } case { $_ eq 'cherry' } then { 'CHERRY' } case { ref eq 'SCALAR' } then { 'SCALAR' } empty { 'empty' } nil { 'nil' } case { m/xyzzy/ } then { 'Nothing happens.' } default { croak "Don't understand $_" } ; $pulper->pulp( 'apple' ) # APPLE $pulper->pulp( 'banana' ) # CHERRY $pulper->pulp( 'xyyxyzzyx' ) # Nothing happens. $pulper->pulp( undef ) # nil $pulper->pulp( '' ) # empty $pulper->pulp( '1' ) # Throw an exception: Don't understand 1 # You can also operate on an array or hash my $set = $pulper->prepare( [ qw/apple banana cherry/, '', undef, qw/xyzzy xyyxyzzyx grape/ ] ) $set->all # APPLE, CHERRY, CHERRY, empty, nil, Nothing happens ... $set->first # APPLE $set->last # Throw an exception: Don't understand grape
Data::Pulp is a tool for coercing and/or validating input data. Instead of doing this:
if ( defined $value ) { if ( ref $value eq ... ) { ... } elsif ( $value =~ m/.../ ) { ... } ... } else { }
You can do something like this:
my $pulper = pulper case { $_ eq ... } then { ... } case { m/.../ } then { ... } nil { ... # Do action if value is undefined } ; $pulper->pulp( $value )
A pulper can act transparently on a single value, ARRAY, or HASH:
my $set = $pulper->prepare( $value ) # A single value list my $set = $pulper->prepare( [ $value, ... ] ) my $set = $pulper->prepare( { key => $value, ... } ) # Throws away the keys, basically
So, given a subroutine:
sub method { my $data = shift; # $data could be a single value, or an array, or even a hash my $set = $pulper->prepare( $data ) my @data = $set->all # Get all the data coerced how you want # or throw an exception if something bad is encountered ... }
Robert Krimen, <rkrimen at cpan.org>
<rkrimen at cpan.org>
Please report any bugs or feature requests to bug-data-pulp at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Data-Pulp. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
bug-data-pulp at rt.cpan.org
You can find documentation for this module with the perldoc command.
perldoc Data::Pulp
You can also look for information at:
RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Data-Pulp
AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/Data-Pulp
CPAN Ratings
http://cpanratings.perl.org/d/Data-Pulp
Search CPAN
http://search.cpan.org/dist/Data-Pulp/
Copyright 2009 Robert Krimen, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Data::Pulp, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::Pulp
CPAN shell
perl -MCPAN -e shell install Data::Pulp
For more information on module installation, please visit the detailed CPAN module installation guide.