NAME
   Data::Pulp - Pulp your data into a consistent goop

VERSION
   Version 0.01

SYNOPSIS
       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

DESCRIPTION
   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

           ...
       }

AUTHOR
   Robert Krimen, "<rkrimen at cpan.org>"

BUGS
   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.

SUPPORT
   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/>

ACKNOWLEDGEMENTS
COPYRIGHT & LICENSE
   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.

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.