Tie::Scalar::Sticky Tie::Scalar::Sticky is a Perl module with block assignments to scalars.
Download

Tie::Scalar::Sticky Ranking & Summary

Tie::Scalar::Sticky Tags

block Perl module scalars block assignments scalars assignments

Tie::Scalar::Sticky Description

Tie::Scalar::Sticky is a Perl module with block assignments to scalars. Tie::Scalar::Sticky is a Perl module with block assignments to scalars.SYNOPSIS use strict; use Tie::Scalar::Sticky; tie my $sticky, 'Tie::Scalar::Sticky'; $sticky = 42; $sticky = ''; # still 42 $sticky = undef; # still 42 $sticky = 0; # now it's zero tie my $sticky, 'Tie::Scalar::Sticky' => qw/ foo bar /; $sticky = 42; $sticky = 'foo'; # still 42 $sticky = 'bar'; # still 42 $sticky = 0; # now it's zeroScalars tie'ed to this module will 'reject' any assignments of undef or the empty string or any of the extra arugments provided to tie(). It simply removes the need for you to validate assignments, such as: $var = $val unless grep $val eq $_, qw(not one of these);Actually, that is the exact idea used in this module ...So, why do this? Because i recently had to loop through a list where some items were undefined and the previously defined value should be used instead. In a nutshell: tie my $sticky, 'Tie::Scalar::Sticky' => 9, 'string'; for (3,undef,'string',2,'',1,9,0) { $sticky = $_; print $sticky, ' '; }Should print: 3 3 2 2 1 0 Requirements: · Perl

Tie::Scalar::Sticky Related Software