#!/usr/bin/perl
package Context::Handle::RV::Void;
use strict;
use warnings;
sub new {
my $pkg = shift;
my $code = shift;
$code->();
bless [ ], $pkg;
}
sub value { undef }
__PACKAGE__;
__END__
#!/usr/bin/perl
package Context::Handle::RV::Void;
use strict;
use warnings;
sub new {
my $pkg = shift;
my $code = shift;
$code->();
bless [ ], $pkg;
}
sub value { undef }
__PACKAGE__;
__END__