Moose overrides in Event, File, Post

This commit is contained in:
Colin Kuskie 2010-04-09 10:16:59 -07:00
parent b6b5e6c939
commit 0c003083a0
3 changed files with 25 additions and 24 deletions

View file

@ -1515,9 +1515,9 @@ Requests that the events be committed
=cut
sub processPropertiesFromFormPost {
override processPropertiesFromFormPost => sub {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost; # Updates the event
super();
my $session = $self->session;
my $form = $session->form;
@ -1742,7 +1742,7 @@ sub processPropertiesFromFormPost {
delete $self->{_storageLocation};
return undef;
}
};
#-------------------------------------------------------------------