view release on metacpan or  search on metacpan

MxScreen/Form/Button.pm  view on Meta::CPAN

73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
                "must specify -action when using -on_error or -dyn_on_error";
 
        $self->[VALUE] = $value eq '' ? $name : $value;
    $self->update(@_);
    return DVAL $self;
}
 
#
# ->update
#
sub update {
    DFEATURE my $f;
    my $self = shift;
  
    ($self->[NAME], 
     $self->[ACTION],
     $self->[TARGET], 
     $self->[DYN_TARGET], 
     $self->[ON_ERROR], 
     $self->[DYN_ON_ERROR], 
     @{$self->[CGI_ARGS]}) =

MxScreen/Form/Field.pm  view on Meta::CPAN

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
    $self->update(@_);
    return DVAL $self;
}
 
 
#
# ->update
#
#
sub update {
    DFEATURE my $f_;
    my $self = shift;
 
    ($self->[NAME],
     $self->[MANDATORY],
     $self->[VERIFY_ARG],
     $self->[STORAGE],
     $self->[PATCH],
     $self->[NOSTORAGE],
     @{$self->[CGI_ARGS]}) =