view release on metacpan or  search on metacpan

lib/util.pm  view on Meta::CPAN

    my $user_info = pick(\%user, 'name', 'email');

=head2 omit

    my $filtered = omit(\%hash, @keys);

Returns a new hashref with the specified keys removed.
Opposite of C<pick>.

    my $safe = omit(\%user, 'password', 'secret_token');

=head2 pluck

    my @ids = pluck(\@users, 'id');

Extracts a single field from an array of hashes. Returns a list
of values for that field from each hash.

    my @names = pluck(\@employees, 'name');

t/1011-extract.t  view on Meta::CPAN

use util qw(pick pluck);

# ============================================
# pick tests
# ============================================

my $user = {
    name => 'Alice',
    age => 30,
    email => 'alice@example.com',
    password => 'secret123',
    role => 'admin',
};

# Pick subset of keys
my $public = pick($user, qw(name age email));
is_deeply($public, { name => 'Alice', age => 30, email => 'alice@example.com' },
    'pick: extracts subset of keys');

# Pick single key
my $name_only = pick($user, 'name');

t/1074-omit.t  view on Meta::CPAN

use util qw(omit);

# ============================================
# omit tests (inverse of pick)
# ============================================

my $user = {
    name => 'Alice',
    age => 30,
    email => 'alice@example.com',
    password => 'secret123',
    role => 'admin',
};

# Omit sensitive keys
my $public = omit($user, qw(password role));
is_deeply($public, { name => 'Alice', age => 30, email => 'alice@example.com' },
    'omit: excludes specified keys');

# Omit single key
my $no_password = omit($user, 'password');
is_deeply($no_password, { name => 'Alice', age => 30, email => 'alice@example.com', role => 'admin' },
    'omit: single key');

# Omit non-existent key
my $same = omit($user, qw(nonexistent));
is_deeply($same, { name => 'Alice', age => 30, email => 'alice@example.com', password => 'secret123', role => 'admin' },
    'omit: ignores non-existent keys');

# Omit all keys
my $empty = omit($user, qw(name age email password role));
is_deeply($empty, {}, 'omit: all keys returns empty hash');

# Omit no keys (identity)
my $all = omit($user);
is_deeply($all, $user, 'omit: no keys returns copy of hash');

# Omit preserves values
my $nested = { a => [1,2,3], b => { x => 1 }, c => 42 };
my $omitted = omit($nested, 'c');
is($omitted->{a}, $nested->{a}, 'omit: preserves arrayref reference');
is($omitted->{b}, $nested->{b}, 'omit: preserves hashref reference');
ok(!exists $omitted->{c}, 'omit: key is actually removed');

# Omit with undefined values - they should not be copied
my $with_undef = { a => 1, b => undef, c => 3 };
my $omit_a = omit($with_undef, 'a');
is_deeply($omit_a, { c => 3 }, 'omit: skips undefined values in source');

# Original not modified
is($user->{password}, 'secret123', 'omit: original unchanged');

done_testing;