Help for this page

Select Code to Download


  1. or download this
    foo    ENUM( "bar", "baz") NOT NULL
    
  2. or download this
    my $foo_bar = 1;  # Could store the string representation, too
    my $foo_baz = 2;
    ...
        inflate => sub { my $f = shift; bless \$f, __PACKAGE__ . '::FOO' }
    +, 
        deflate => sub { my $f = shift; $$f; }, 
    );