Tie-Reduce
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Tie/Reduce.pm view on Meta::CPAN
## OO interface
sub new {
my $class = shift;
my ($coderef, $initial_value) = @_;
no warnings 'uninitialized';
if (ref($coderef) ne 'CODE') {
require Carp;
Carp::croak("Expected coderef; got $coderef");
}
bless [$initial_value, $coderef] => $class;
}
sub get_value {
$_[0][0];
}
sub set_value {
$_[0][0] = $_[1];
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.871 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )