view release on metacpan or  search on metacpan

t/04-return-value-capturing.t  view on Meta::CPAN

use lib 't/lib';
use lib 'lib';
use lib '../lib';
use Test::Wiretap;

{
  package ValueHolder;

  sub new {
    my ($class, $value) = @_;
    my $self = bless {} => $class;
    $self->set_attr($value);
    return $self;
  }
  sub set_attr {
    my ($self, $value) = @_;
    $self->{deeply_stored_value}[0] = $value;
  }
  sub get_attr {
    my ($self, $value) = @_;
    return $self->{deeply_stored_value}[0];