make accessors

make_accessors.pl

for my $field (qw(type nph expires cookie charset attachment p3p)) {
    my $slot = __PACKAGE__."::$field";
    my $code = sub {
        my $self = shift;
        my $value = shift;

        if ($value) {
            $self->set($field => $value);
        }
        else {
            my @values = $self->get($field);
            wantarray ? @values : $values[0];
        }
    };

    no strict 'refs';
    *$slot = $code;
}