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

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

#!/usr/bin/perl

package Context::Handle::RV::List;

use strict;
use warnings;

sub new {
	my $pkg = shift;
	my $code = shift;
	bless [ $code->() ], $pkg;
}

sub value {
	my $self = shift;
	@$self;
}

__PACKAGE__;

__END__