view release on metacpan or  search on metacpan

lib/Cheat/Sheet/Util.agi  view on Meta::CPAN

    $lc->print_subset_chart;        # pretty-print tables showing some
    $lc->print_equivalence_chart;   #   relationships; row/col as $ix
# List::Compare

#=head2 Hash::Util
use Hash::Util;                 # Hash locking, key locking, value locking
use Hash::Util qw(
    lock_keys lock_keys_plus unlock_keys 
    lock_value unlock_value 
    lock_hash unlock_hash lock_hash_recurse unlock_hash_recurse
    hash_locked hidden_keys legal_keys all_keys 
);
    # Restrict %hash to a set of keys; can delete but can't add other keys
    \%hash = lock_keys     ( %hash );           # current keys %hash
    \%hash = lock_keys     ( %hash, @keys );    # @keys; subset of keys @hash
    \%hash = lock_keys_plus( %hash, @keys );    #        superset
    \%hash = unlock_keys   ( %hash );           # remove restrictions
    # Cannot alter value of $key but can delete the k/v pair
    \%hash = lock_value    ( %hash, $key );
    \%hash = unlock_value  ( %hash, $key );
    # Lock the whole %hash; can't add, delete, or change value at all
    \%hash = lock_hash              ( %hash );
    \%hash = unlock_hash            ( %hash );
    \%hash = lock_hash_recurse      ( %hash );  # HoHoH... only
    \%hash = unlock_hash_recurse    ( %hash );  #   ditto
    # Other functions...
    $bool  = hash_unlocked ( %hash );       # true if %hash is unlocked
    @keys  = legal_keys    ( %hash );       # list of keys allowed
    @keys  = hidden_keys   ( %hash );       # see docs; experimental feature
    \%hash = all_keys( %hash, @keys, @hidden );       # experimental feature
    # Just like Daddy but take hashref arguments
    \%hash = lock_ref_keys          ( \%hash );
    \%hash = lock_ref_keys          ( \%hash, @keys );
    \%hash = lock_ref_keys_plus     ( \%hash, @keys );
    \%hash = unlock_ref_keys        ( \%hash );
    \%hash = lock_ref_value         ( \%hash, $key );
    \%hash = unlock_ref_value       ( \%hash, $key );
    \%hash = lock_hashref           ( \%hash );
    \%hash = unlock_hashref         ( \%hash );
    \%hash = lock_hashref_recurse   ( \%hash );
    \%hash = unlock_hashref_recurse ( \%hash );
    $bool  = hash_ref_unlocked      ( \%hash );
    @keys  = legal_ref_keys         ( \%hash );
    @keys  = hidden_ref_keys        ( \%hash );
## Hash::Util

__END__

#-#========================================================================#-#

lib/Cheat/Sheet/Util.perl  view on Meta::CPAN

    # Dump
    $lc->print_subset_chart;        # pretty-print tables showing some
    $lc->print_equivalence_chart;   #   relationships; row/col as $ix
# List::Compare

use Hash::Util;                 # Hash locking, key locking, value locking
use Hash::Util qw(
    lock_keys lock_keys_plus unlock_keys 
    lock_value unlock_value 
    lock_hash unlock_hash lock_hash_recurse unlock_hash_recurse
    hash_locked hidden_keys legal_keys all_keys 
);
    # Restrict %hash to a set of keys; can delete but can't add other keys
    \%hash = lock_keys     ( %hash );           # current keys %hash
    \%hash = lock_keys     ( %hash, @keys );    # @keys; subset of keys @hash
    \%hash = lock_keys_plus( %hash, @keys );    #        superset
    \%hash = unlock_keys   ( %hash );           # remove restrictions
    # Cannot alter value of $key but can delete the k/v pair
    \%hash = lock_value    ( %hash, $key );
    \%hash = unlock_value  ( %hash, $key );
    # Lock the whole %hash; can't add, delete, or change value at all
    \%hash = lock_hash              ( %hash );
    \%hash = unlock_hash            ( %hash );
    \%hash = lock_hash_recurse      ( %hash );  # HoHoH... only
    \%hash = unlock_hash_recurse    ( %hash );  #   ditto
    # Other functions...
    $bool  = hash_unlocked ( %hash );       # true if %hash is unlocked
    @keys  = legal_keys    ( %hash );       # list of keys allowed
    @keys  = hidden_keys   ( %hash );       # see docs; experimental feature
    \%hash = all_keys( %hash, @keys, @hidden );       # experimental feature
    # Just like Daddy but take hashref arguments
    \%hash = lock_ref_keys          ( \%hash );
    \%hash = lock_ref_keys          ( \%hash, @keys );
    \%hash = lock_ref_keys_plus     ( \%hash, @keys );
    \%hash = unlock_ref_keys        ( \%hash );
    \%hash = lock_ref_value         ( \%hash, $key );
    \%hash = unlock_ref_value       ( \%hash, $key );
    \%hash = lock_hashref           ( \%hash );
    \%hash = unlock_hashref         ( \%hash );
    \%hash = lock_hashref_recurse   ( \%hash );
    \%hash = unlock_hashref_recurse ( \%hash );
    $bool  = hash_ref_unlocked      ( \%hash );
    @keys  = legal_ref_keys         ( \%hash );
    @keys  = hidden_ref_keys        ( \%hash );
## Hash::Util

#============================================================================#
__END__

lib/Cheat/Sheet/Util.pod  view on Meta::CPAN

        $lc->print_equivalence_chart;   #   relationships; row/col as $ix
    # List::Compare

=head2  Hash::Util

    use Hash::Util;                 # Hash locking, key locking, value locking
    use Hash::Util qw(
        lock_keys lock_keys_plus unlock_keys
        lock_value unlock_value
        lock_hash unlock_hash lock_hash_recurse unlock_hash_recurse
        hash_locked hidden_keys legal_keys all_keys
    );
        # Restrict %hash to a set of keys; can delete but can't add other keys
        \%hash = lock_keys     ( %hash );           # current keys %hash
        \%hash = lock_keys     ( %hash, @keys );    # @keys; subset of keys @hash
        \%hash = lock_keys_plus( %hash, @keys );    #        superset
        \%hash = unlock_keys   ( %hash );           # remove restrictions
        # Cannot alter value of $key but can delete the k/v pair
        \%hash = lock_value    ( %hash, $key );
        \%hash = unlock_value  ( %hash, $key );
        # Lock the whole %hash; can't add, delete, or change value at all
        \%hash = lock_hash              ( %hash );
        \%hash = unlock_hash            ( %hash );
        \%hash = lock_hash_recurse      ( %hash );  # HoHoH... only
        \%hash = unlock_hash_recurse    ( %hash );  #   ditto
        # Other functions...
        $bool  = hash_unlocked ( %hash );       # true if %hash is unlocked
        @keys  = legal_keys    ( %hash );       # list of keys allowed
        @keys  = hidden_keys   ( %hash );       # see docs; experimental feature
        \%hash = all_keys( %hash, @keys, @hidden );       # experimental feature
        # Just like Daddy but take hashref arguments
        \%hash = lock_ref_keys          ( \%hash );
        \%hash = lock_ref_keys          ( \%hash, @keys );
        \%hash = lock_ref_keys_plus     ( \%hash, @keys );
        \%hash = unlock_ref_keys        ( \%hash );
        \%hash = lock_ref_value         ( \%hash, $key );
        \%hash = unlock_ref_value       ( \%hash, $key );
        \%hash = lock_hashref           ( \%hash );
        \%hash = unlock_hashref         ( \%hash );
        \%hash = lock_hashref_recurse   ( \%hash );
        \%hash = unlock_hashref_recurse ( \%hash );
        $bool  = hash_ref_unlocked      ( \%hash );
        @keys  = legal_ref_keys         ( \%hash );
        @keys  = hidden_ref_keys        ( \%hash );
    ## Hash::Util

=head1 SEE ALSO

=over

=item * L<Cheat::Meta>