Lines Matching defs:field
10 our @EXPORT_BASE = qw(field const stub super);
29 # Exported functions like field and super should be hidden so as not to
202 sub field {
210 my ($field, $default) = @values;
212 die "Cannot have a default for a weakened field ($field)"
214 return if defined &{"${package}::$field"};
226 $code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
228 $code .= sprintf $code{set_default}, $field, $default_string, $field
230 $code .= sprintf $code{return_if_get}, $field;
231 $code .= sprintf $code{set}, $field;
232 $code .= sprintf $code{weaken}, $field, $field
234 $code .= sprintf $code{sub_end}, $field;
239 *{"${package}::$field"} = $sub;
259 my ($field, $default) = @values;
262 return if defined &{"${package}::$field"};
263 *{"${package}::$field"} = sub { $default }
273 my ($field, $default) = @values;
276 return if defined &{"${package}::$field"};
277 *{"${package}::$field"} =
281 "Method $field in package $package must be subclassed";