view release on metacpan or  search on metacpan

Snark.pm  view on Meta::CPAN

    if ($_[2]) {
	return ($_[1], $_[0]->{value});
    }
    else {
	return ($_[0]->{value}, $_[1]);
    }
}

1;
__END__
# Below is the stub of documentation for your module. You better edit it!
# And if I don't?  Who ya gonna tell?

=head1 NAME

Acme::Snark - What I tell you three times is true

=head1 SYNOPSIS

  use Acme::Snark;
  tie $foo, Acme::Snark;