diff options
| author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-03 09:54:30 +0000 |
|---|---|---|
| committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-03 09:54:30 +0000 |
| commit | e44959e862c790ea3eeb7c671314cfd248946416 (patch) | |
| tree | f98f7875badc687d079662decc23d42c84194343 /lib/Reaction/InterfaceModel/Reflector/DBIC.pm | |
| parent | b68d6a353206242782e4444b7d6a6f6c20cbff6e (diff) | |
| download | reaction-e44959e862c790ea3eeb7c671314cfd248946416.tar.gz reaction-e44959e862c790ea3eeb7c671314cfd248946416.zip | |
generate clearer for !required action attributes
Diffstat (limited to 'lib/Reaction/InterfaceModel/Reflector/DBIC.pm')
| -rw-r--r-- | lib/Reaction/InterfaceModel/Reflector/DBIC.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm index 2d4e1a3..e986785 100644 --- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm +++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm @@ -809,6 +809,8 @@ class DBIC, which { is => 'rw', isa => $from_attr->_isa_metadata, required => $from_attr->is_required, + ($from_attr->is_required + ? () : (clearer => "clear_$attr_name}")), predicate => "has_${attr_name}", ); |