view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    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

lib/Data/Pulp.pm  view on Meta::CPAN

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