/usr/local/CPAN/Context-Handle/Context/Handle/RV/Void.pm

• package Context::Handle::RV::Void
  • new
  • value
• __END__
• EOF

#!/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__