Help for this page

Select Code to Download


  1. or download this
      sub pack {
        my $self=shift;
        my $record=join(':', @{$self}{keys %{$self->{_permitted}}});
        return $record;
  }
  2. or download this
    my @permitted=qw(name price description);
my %fields;
@fields{@permitted}=undef;
  3. or download this
      sub pack {
        my $self=shift;
        my $record=join(':', @{$self}{@permitted});
        return $record;
  }