Opaque objects


  sub new {
    my $value = 0;
    bless sub {
      local $_ = shift;
      /get/ and return $value
	    or
      /set/ and $value = shift
	    or
      die "Unknown method: $_";
    }, shift;
  }
  sub get { +shift->("get", @_) }
  sub set { +shift->("set", @_) }

Forward to Compiled regexes
Back to Undocumented language features
Up to Stages of a Perl Programmer section index
Up to YAPC 2000 course index

YAPC 2000: Stages of a Perl Programmer - 47